f77_inc.f (day04/f77

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16
     17
     18
     19
     20

      SUBROUTINE INC( P )

      INTEGER P

      P = P + 1

      END SUBROUTINE

      PROGRAM MAIN

      INTEGER A

      A = 4

      WRITE (*,*) 'A before:', A

      CALL INC( A )

      WRITE (*,*) 'A after:', A

      END