ごめｗ　バグってるｗ　X軸がちゃんと書かれない。

SUBROUTINE plot_xaxis()
INTEGER :: ix, iy, k(1)
IF ( MINVAL(valy) * MAXVAL(valy) < 0 ) THEN ! cross x-axis
k = MINLOC(ABS(valy))
　　　　　　　　〜〜〜〜〜〜

ABS( ) が抜けてた。入れといて。

連続投稿規制でかけない
汚しすまそ