C
      REAL*8   PUTDLY(2),PUTRAT,GETSEC,PUTAZ(2,2)
      REAL*8   PUTEL(2,2),CTSIT1, OUTUT1, OUTWBX, OUTWBY
      REAL*8   ATMDLY(4), ATMRATE(4), PMDLY, PMRATE, PMTRACK
      REAL*8   SITDLYP(6), SRCDLYP(4), DRYATMP(2), WETATMP(2)
      REAL*8   AXOP(2), UT1P(4), WOBP(4)
      REAL*8   GRAVDLY, GRAVRAT, DELTGRAV, EARTHGRAV
      REAL*8   SUN_CNTRB(2), SUN2CONT(2), TERM4
      REAL*8   R1SUNT1(3), R2SUNT1(3), C_SUN
      REAL*8   R1MOONT1(3), R2MOONT1(3), C_MOON
      REAL*8   R1EARTHT1(3), R2EARTHT1(3), C_EARTH
      REAL*8   R1PLANT1(3,7), R2PLANT1(3,7), C_PLAN(7)
C
      INTEGER*2 GETSIT(2),GETSRC,GETTAG(5)
      INTEGER*4 JOBNUM, IRET, MJDATE, MSGCTRL
C
      COMMON /CALCIO/ PUTDLY,PUTRAT,PUTAZ,PUTEL,CTSIT1,
     *                GETSEC,OUTUT1,OUTWBX,OUTWBY,
     *                ATMDLY, ATMRATE,
     *                JOBNUM,IRET,GETSIT,GETSRC,GETTAG,MJDATE,
     *                PMDLY, PMRATE, PMTRACK, SITDLYP, SRCDLYP,
     *                DRYATMP, WETATMP, AXOP, UT1P, WOBP,
     *                GRAVDLY, GRAVRAT, DELTGRAV,
     *                SUN_CNTRB, SUN2CONT, EARTHGRAV, TERM4,
     *                R1SUNT1, R2SUNT1, C_SUN,
     *                R1MOONT1, R2MOONT1, C_MOON,
     *                R1EARTHT1, R2EARTHT1, C_EARTH,
     *                R1PLANT1, R2PLANT1, C_PLAN

C
      COMMON /CTRLFLGS/ MSGCTRL