c 説明用FORTRANプログラム（動作確認はしていません）
      PROGRAM  TEST
      COMMON  /COMMONDATA/X
      REAL(8) X
      
      CALL SUB01(1.0)
      CALL SUB02(10)
      CALL SUB03
      STOP
      END
c サブルーチンその１
SUBROUTINE SUB01(DX)
      REAL(8) DX
      COMMON  /COMMONDATA/X
      REAL(8) X
      
      X=DX
      RETURN
END
c サブルーチンその２
SUBROUTINE SUB02(LOOPNUM)
      INTEGER LOOPNUM
      COMMON  /COMMONDATA/X
      REAL(8) X
      INTEGER LCNT
      
      DO 10 LCNT=0,LOOPNUM
      X = X + 1.0
   10 CONTINUE
      RETURN
END
c サブルーチンその３
SUBROUTINE SUB03
      COMMON  /COMMONDATA/X
      REAL(8) X
      
      WRITE(1,110) X
  110 FORMAT(F12.3)
      RETURN
END