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