C     ********************************
C     ** SAMPLE PROGRAM No. 1       **
C     **                            **
C     **                            **
C     **                            **
C     ** 2000/01/30    TARO NOHARA  **
C     ********************************
C
      PI=4.0*ATAN(1.0)
C
      WRITE(6,600) PI
  600 FORMAT(' TARO NOHARA ',F10.7)
C
C
      STOP
      END