DOUBLE PRECISION AL_PP(5)
      INTEGER MYINPUTVAR, GOOD
      INTEGER MYTRKVAR, MYVAR1, MYVAR2
      REAL MYVAR3
C     
      COMMON / CINPUT / AL_PP, MYINPUTVAR
      SAVE / CINPUT /
C
      COMMON / COUTPUT / GOOD, MYTRKVAR, MYVAR1, MYVAR2, MYVAR3 
      SAVE / COUTPUT /
C