- くだすれFORTRAN(超初心者用)その6
842 :デフォルトの名無しさん[sage]:2015/08/24(月) 05:54:40.65 ID:lgtNqCAf - ある参考書にあるプログラム例を映したのですが、実行するとエラーが出ます。内容が外部ファイルへの出力関係なので早急に解決したいのでよろしくお願いします。
プログラム integer :: n, i, j, fi = 10, fo = 11 open(fi, file = 'input.d') open(fo, file = 'output.d') read(fi, *) n close(fi) if(n < 3) stop 'stop, n < 3' d = 10.0d0 / dble(n - 1) do j = 1, n y = -5.0d0 + dble(j - 1) *d do i = 1, n x = -5.0d0 + dble(i - 1) *d z = sin(x) * cos(y) write(fo, '(3e12.4)') x, y, z enddo write(fo, *) ' ' enddo close(fo) エラーメッセージ Program received signal SIGSEGV: Segmentation fault - invalid memory reference. Backtrace for this error: #0 ffffffffffffffff #1 ffffffffffffffff #18まで同文 OS:Windows7(64bit) コンパイラ:gfortran よろしくお願いします
|