











































      INTEGER      MAXLEV, MAXMAP, MAXGRD, MAXGR2, MXGDCB

      PARAMETER    (MAXGRD = 240)


      PARAMETER    (MXGDCB = (MAXGRD**3)/2)

      PARAMETER    (MAXGR2 = 100)


      PARAMETER    (MAXLEV = 5)
      PARAMETER    (MAXMAP = 10)

      INTEGER*2    GRID(MAXGRD,MAXGRD,MAXGRD)
      INTEGER      ALLGRD(2*MXGDCB)

      CHARACTER*80 MAPNAM(MAXMAP), MAPTXT(MAXMAP)

      INTEGER      MAPORG(3,MAXMAP), MAPWID(3,MAXMAP), MAPNOW,
     +             NDIVA(MAXMAP), NDIVB(MAXMAP),NDIVC(MAXMAP), 
     +             NU(MAXMAP), NV(MAXMAP), NW(MAXMAP),IPLUS(MAXMAP),
     +             MAPNUM, IGRID2(MAXGR2,MAXGR2,MAXGR2), ILVNOW

      INTEGER      IQ7381,IQ7382,IQ7383,IQ7384,IQ7385,IQ7386,IQ7387

      REAL         MAPLEV(MAXLEV,MAXMAP), UVWORG(3,MAXMAP),
     +             UVWMAT(3,3,MAXMAP), STEPU(MAXMAP), STEPV(MAXMAP),
     +             STEPW(MAXMAP), ACELLM(MAXMAP), BCELLM(MAXMAP),
     +             CCELLM(MAXMAP), ALPHAM(MAXMAP), BETAM(MAXMAP),
     +             GAMMAM(MAXMAP), MPCOLR(MAXLEV,MAXMAP) ,PROD(MAXMAP),
     +             ORTMAT(3,3), MAPMAX(MAXMAP), MAPMIN(MAXMAP),
     +             GRID2(MAXGR2,MAXGR2,MAXGR2), MAPSIG(MAXMAP),
     +             GRID3(MAXGR2,MAXGR2,MAXGR2)

      LOGICAL      FIX0, FIX1, RECEPT(MAXAA)

      CHARACTER*4  AQ7383, AQ7384

      EQUIVALENCE  (GRID(1,1,1)  ,ALLGRD(1))
      EQUIVALENCE  (GRID2(1,1,1) ,ALLGRD(1))
      EQUIVALENCE  (GRID3(1,1,1) ,ALLGRD(2*(MAXGR2**3)+1))
      EQUIVALENCE  (IGRID2(1,1,1),ALLGRD(1))
      EQUIVALENCE  (IQ7383,AQ7383)
      EQUIVALENCE  (IQ7384,AQ7384)

      COMMON       /WIFMP1/
     +             ALLGRD, IQ7381

      COMMON       /WIFMP2/
     +             MAPNAM, AQ7383, MAPTXT, AQ7384

      COMMON       /WIFMP3/
     +             MAPNUM, MAPNOW, MAPMAX, MAPMIN, PROD,   IPLUS,
     +             MAPLEV, MAPORG, MAPWID, MPCOLR, ILVNOW, IQ7385,
     +             ACELLM, BCELLM, CCELLM, ALPHAM, BETAM,  GAMMAM,
     +             MAPSIG

      COMMON       /WIFMP4/
     +             FIX0,   FIX1,   RECEPT, IQ7386

      COMMON       /WIFMP5/
     +             
     +             NDIVA,  NDIVB,  NDIVC,  NU,     NV,     NW,
     +             UVWORG, UVWMAT, STEPU,  STEPV,  STEPW,  ORTMAT,
     +             IQ7387, IQ7382



