これは実際に前のもののフォローアップの質問です:私は、前の質問の答えと私の問題の解決策だと思ったものを後 Rounding of double precision to single precision: Forcing an upper bound 、私は再び私のプログラムを実行してみました同じ問題があることがわかった。 私が使用しているMersenne Twisterの実装では、符号付き32ビ
は今、私はこの program prova
CHARACTER (LEN=4) :: mvalue
common mvalue
mvalue='01.0'
call funzione(var1, var2,...)
end
subroutine funzione()
common mvalue
*(stuff with var1, var2, ...)*
open(10,fil
私はFORTRAN 77と同じコードのいくつかのバージョンで作業しています。すべてのコードでファイル名とバージョン番号を表示しますが、その行を変更するのは面倒です。ファイル名にバージョン番号があるので、コードが独自のファイル名を返す方法があるかどうか疑問に思っていましたか?私の今の行は、このようなものになります。codevers='testfile_v009'とprint *, 'Code Ver