PARAMETER (MAXCHR=127)
      PARAMETER (MAXVIT=22)
      PARAMETER (MAXTPC= 3)
      PARAMETER (NBASIN=11)
      PARAMETER (NRSMCX=4)
      PARAMETER (NRSMCW=2)
      PARAMETER (ISECVR= 5,ITERVR=17)
      PARAMETER (NSECVR=ITERVR-ISECVR)
      PARAMETER (NTERVR=MAXVIT-ITERVR+1)
      PARAMETER (NCRDMX=36)
      PARAMETER (NGRKMX=24)
C
      CHARACTER BUFIN*1,RSMCZ*4,STMIDZ*3,STMNMZ*9,FSTFLZ*1,STMDPZ*1,
     1          NORTH*1,SOUTH*1,EAST*1,WEST*1,SHALO*1,MEDIUM*1,
     2          DEEP*1,LATNS*1,LONEW*1,FMTVIT*6,FMTMIS*4,BUFINZ*127,
     3          STMREQ*9,RELOCZ*1,RELO*1,STMTPC*1,DASH*1,EXE*1,
     4          COLON*1,STAR*1,NAMVAR*5,IDBASN*1,NABASN*16,
     5          BLNK18*18,BLNK2*2,RSMCID*4,RSMCAP*1,BANG*1,CLIMO*1,
     6          RSMAVG*1,PERSIS*1,OVRLAP*1,LTLNSB*1,DRSPSB*1,SWITSB*1,
     7          CARDNM*9,GREKNM*9,latnsf,lonewf
C
      DIMENSION IVTVAR(MAXVIT),VITVAR(MAXVIT),VITFAC(MAXVIT),
     1          ISTVAR(MAXVIT),IENVAR(MAXVIT),STMTOP(0:MAXTPC),
     2          ICRDCH(NCRDMX),IGRKCH(NGRKMX)
C
      DIMENSION NAMVAR(MAXVIT+1),IDBASN(NBASIN),NABASN(NBASIN),
     1          BUFIN(MAXCHR),STMTPC(0:MAXTPC),FMTVIT(MAXVIT),
     2          MISSNG(MAXVIT),FMTMIS(MAXVIT),RSMCID(NRSMCX),
     3          RSMCAP(NRSMCX),RSMCPR(NBASIN),BSLTMN(NBASIN),
     4          BSLTMX(NBASIN),BSLNMN(NBASIN),BSLNMX(NBASIN),
     5          RSMCWT(NRSMCW),CARDNM(NCRDMX),GREKNM(NGRKMX)
C
      EQUIVALENCE (BUFIN(1),RSMCZ),(BUFIN(5),RELOCZ),(BUFIN(6),STMIDZ),
     1            (BUFIN(10),STMNMZ),(BUFIN(19),FSTFLZ),
     2            (BUFIN(35),LATNS),(BUFIN(41),LONEW),
     3            (BUFIN(93),STMDPZ),(BUFIN(1),BUFINZ),
     4            (BUFIN(121),LATNSF),(BUFIN(127),LONEWF)
C
      EQUIVALENCE (IVTVAR(1),IDATEZ),(IVTVAR(2),IUTCZ)
C
      EQUIVALENCE (VITVAR( 3),STMLTZ),(VITVAR( 4),STMLNZ),
     1            (VITVAR( 5),STMDRZ),(VITVAR( 6),STMSPZ),
     2            (VITVAR( 7),PCENZ), (VITVAR( 8),PENVZ),
     3            (VITVAR( 9),RMAXZ), (VITVAR(10),VMAXZ),
     4            (VITVAR(11),RMWZ),  (VITVAR(12),R15NEZ),
     5            (VITVAR(13),R15SEZ),(VITVAR(14),R15SWZ),
     6            (VITVAR(15),R15NWZ),(VITVAR(16),R26NEZ),
     7            (VITVAR(17),R26SEZ),(VITVAR(18),R26SWZ),
     8            (VITVAR(19),R26NWZ),(VITVAR(20),FCSTPZ),
     9            (VITVAR(21),FCLATZ),(VITVAR(22),FCLONZ)
C
      EQUIVALENCE (STMTPC(0), EXE),(STMTPC(1),SHALO),(STMTPC(2),MEDIUM),
     1            (STMTPC(3),DEEP)
C