C **************************************
C   FORTRAN SAMPLE PROGRAM
C **************************************

      PROGRAM SAMPLE01
      IMPLICIT NONE
      INTEGER*4 IN,SUM,IND

      WRITE(6,FMT='(A)') 'Input(n)?'
      READ (5,10) IN
 10   FORMAT(I4)

      SUM=0
      DO IND=1,IN,1
         CALL SUB1(SUM,IND)
         WRITE(6,'(I5)') SUM 
      END DO

      END

C **************************************
C   SUBROUTINE
C **************************************
      SUBROUTINE SUB1(OUT,IN)
      IMPLICIT NONE
      INTEGER*4  IN,OUT

      OUT =  OUT + IN

      RETURN
      END