C     ******************************
C     **  FORTRAN PROGRAM         **
C     **                          **
C     **                          **
C     **                          **
C     **                          **
C     ******************************
C
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
C
C  円周率の例です．PAIと書く人がいますが辞書を見れば明白です．
C  一番下の例がお薦めです．また，変数はきっちり定義しましょう
C  倍精度であればD0を最後に付けるようにしましょう．
C
C
      PI=3.141592654
      PI=3.141592654D0
      PI=4.D0*DATAN(1.D0)
C
      WRITE(*,*) PI
C
C
      STOP
      END