C Program is compiled by the command ifc -o test test.f

      Program Test_Constants

C toto vlozime do hlavniho programu..........
      Integer, Parameter :: M = 100
C M je pojmenovana kontstanta, pomoci niz se nastavuji velikosti poli v
C hlavnim programu
C ...........................................

      Integer A(0:M)

C toto vlozime do hlavniho programu..........
      COMMON /Size/ MM
      MM = M
C ...........................................      

      Write (*,*) 'The value of the constant in MAIN is M= ', M

      A(100) = 314
      
      Write (*,*) 'A(100) = ', A(100)
      
      Call Routine1

      Stop
      End

      Subroutine Routine1 

C takto upravime deklaraci poli v podprogramech............
      Integer B(0:MM)
      COMMON /Size/ MM
C v podprogramech mohou byt jako horni meze poli pouzity Integer
C promenne      
C .........................................................      

      Write (*,*) 'The value of the constant in Routine1 is MM= ', MM

      B(100) = 315
      
      Write (*,*) 'B(100) = ', B(100)

      Call Routine2

      Return
      End

      Subroutine Routine2

C takto upravime deklaraci poli v podprogramech............
      Integer C(0:MM)
      COMMON /Size/ MM
C .........................................................      
      
      C(100) = 316

      Write (*,*) 'The value of the constant in Routine2 is MM= ', MM
      Write (*,*) 'C(100) = ', C(100)

      Return
      End