fortran77

    0

    1答えて

    Fortran 77で書かれたコードをFortran 90に変更しました。また、次のエラーをコンパイルしているImが見つかった場合、私はすでに検索していますが、xintは配列として宣言されています。 Integer :: n,nitp,m Integer,parameter :: mdi1=3500 Double Precision :: xint(mdi1),yint(mdi1) D50

    1

    2答えて

    私のコードは以下の書かれています: DIMENSION T(10) DATA A,B /9.,5./ IS=1 J=J+3 T(j-2)=A T(J-1)=A-B 80 T(J)=T(1)+T(J-1) J=J+1 IF(J.NE.10) GOTO 80 DO I=1,5 WRITE (*,15) I, T(J) END DO 15 FORMAT ('T('I2')=',

    0

    2答えて

    私の質問はかなりシンプルです。私はいくつかの古いFortranコードを継承しており、一般的な感じを得るためにそれを探しています。 TYPEの代わりにSTRUCTUREを使用していることに気付きました。両者の間に実用的な違いはありますか? TYPEを使用する上で他のメリットはありますか? この質問はよりphilosphicalなものです。私は(私は)書き直しコードがテストの面で何を意味しているかを知

    0

    1答えて

    次のコードを検討してください。それは一度に "n"個の要素を書き込む。 「n」は、インテルコンパイラの5であり、「n」はPGI 4 icels=128 jcels=128 imat=2 ! just for example write(ounit,*) x ((real(pr(i,j,imat)),i=1,icels),j=1,jcels) た場所

    1

    1答えて

    program sum IMPLICIT DOUBLE PRECISION (A-H,O-Z) x = 1 y = 2 z = (x*y)/dtan(0.0D0) print *, z end program sum このコードをOnline Fortran Compilerとコンパイルすると、「無限大」が得られます。このコードを別の言語で書くと、0で割り切れません。なぜなら、何ら

    2

    4答えて

    Fortran 77プログラムを異なる入力パラメータセットで複数回実行したい。私はすでに使用しているさまざまな入力パラメータに対して出力ファイル名が変更されていることを確認しましたが、パラメータを変更するたびにコードに行く必要がなく、入力パラメータの異なるセットでプログラムを実行する方法がわかりません。 私の質問を説明するために、ここでは簡単なコードです。 PROGRAM CODE IM

    1

    2答えて

    NUMとARRAYの両方の倍精度変数ですが、ifブロックの実行方法は不明です。それはいつ中止するのですか?実際に何をしていますか?8に行くと、doループを終了しますか? if(a) 1,2,3:場合は算術と呼ばれる おかげ DO 7 I = 1,28 IF (NUM - ARRAY(I)) 8,7,7 7 CONTINUE

    2

    1答えて

    コードの先頭に3つの値の配列が初期化されています。別の実行の場合、これらの初期値を明示的に変更するためにコードに入る必要があります。 これは非常に不満で時間がかかるので、コードがテキストファイルから初期値を読み込むようにコードを変更することに決めました。 私は変更に成功しましたが、コードはかなり遅くなりました(少なくとも20倍)。 Iコードで明示的に配列を初期化するとき、アレイは、= {0.001

    2

    1答えて

    Fortran 77でC言語で "#pragma GCC optimize(" o3 ")"のような関数固有のオプションプラグマを使用したいとします。 しかし、それを.fコードに適用しないでください。何か案は? foo.f: ... call hoge ... subroutine hoge IMPLICIT REAL*4(a-h,o-z) .

    1

    1答えて

    従来のFortranコードをfort77でコンパイルしようとしています。コマンド: fort77 -c leg_code.f leg_code.o がで失敗します。 Error on line XXX: syntax error ラインXXX読み取り: MAXFを持つ上でいくつかの行に定義されて CHARACTER(LEN=10) TREE(2,MAXF) :私は削除した場合 INTE