Fortran の基礎

fortran

http://www.geocities.jp/eyeofeconomyandhealth/homepage/kata3.html より

  • 変数の頭文字がi,j,k,l,m,nの6つなら、その変数は整数型
  • 「implicit double precision(c)」(真ん中にその型の宣言文を書く)と書いてください。これにより、cで始まる変数は倍精度実数型になる
  • 「implicit double precision(e-k,q)」と書くと、e〜kまでとqで始まる変数が対象

1)次の変数は何型かを答えよ。イ: trauma　ロ: amin　ハ: ika　二: d45k
2)a〜gと、p〜uが頭文字の変数を暗黙の型宣言で複素数型にするには、どうしたらよいか。


1)イ=実数型、ロー実数型、ハ=整数型、二=実数型
2)プログラムの先頭行に、「implicit complex(a-g,p-u)」と書く


定数を設定．

      PARAMETER (NLWA=25, NIWA=150, NRWA=4000,
     &           NDGL=6 , N1=NDGL+1, MM=10)

ファイル入出力　

C     SOLOUT というファイルを開き，装置番号 6 をつける．
      OPEN(UNIT=6 ,FILE='SOLOUT') 
C
C     装置番号 6 に，行番号 999 で指定したフォーマットで出力
      WRITE(6,999)
999   FORMAT(' *** BRYSON ET. AL. EXAMPLE ***')
C
C     ファイル（装置番号 6）を閉じる
      CLOSE(6)


標準出力（6）と，反復

     WRITE(6,'(A)') 'HOGE DISPLAY INPUT DATA'
     DO J=1,M    
        WRITE(6,*)(Y(I,J),I=1,N)
     ENDDO