!IPK LAST UPDATED JULY 17 1998
!ipk last update Dec 10 1997
!IPK LAST UPDATED OCT 18 1996
!
      SAVE
!
!    This version is compiled for:  LARGE
!    MAXE   =  maximum number of elements                    = 200000
!    MAXP   =  maximum number of nodes                       =400000
!    MAXPL  =  maximum number of map data points             =1800000
!    MAXLIN =  maximum number of map lines                   =  3000
!    MAXLN  =  maximum number of reordering lines            =    20 
!    MAELN  =  maximum number of elements in a reodering list =  300
!    MAXPGEN=  maximum number elements in a genreated block   = 2000
!    MAXGRD =  maximum number of grid points                  = 3000
!    
!
!
!     PARAMETER (MAXE= 200000,MAXP=400000,MAXLIN=6000,MAXECON=60)
!     PARAMETER (MAXLN=20,MAELN=300,MAXPGEN=2000,MAXGRD=3000,MAXSTO=2)
!     PARAMETER (MAXE8=8*MAXE,MAXP2=2*MAXP) 

!    This version is compiled for:  MEDIUM
!    MAXE   =  maximum number of elements                    =130000
!    MAXP   =  maximum number of nodes                       =200000
!    MAXPL  =  maximum number of map data points             =1500000
!    MAXLIN =  maximum number of map lines                   =  3000
!    MAXLN  =  maximum number of reordering lines            =    20 
!    MAELN  =  maximum number of elements in a reodering list =  300
!    MAXPGEN=  maximum number elements in a genreated block   = 2000
!    MAXGRD =  maximum number of grid points                  = 1000
!    MAXSTO =  maximum storage locations                      = 2 
!
!
     PARAMETER (MAXPGEN=20000,MAXGRD=1000)
!     PARAMETER (MAXE8=8*MAXE,MAXP2=2*MAXP) 
!     PARAMETER (MCRS=7000,MPTS=75)

!    This version is compiled for: STANDARD
!    MAXE   =  maximum number of elements                    = 40000
!    MAXP   =  maximum number of nodes                       = 50000
!    MAXPL  =  maximum number of map data points             = 200000
!    MAXLIN =  maximum number of map lines                   =  3000
!    MAXLN  =  maximum number of reordering lines            =    20 
!    MAELN  =  maximum number of elements in a reodering list =  300
!    MAXPGEN=  maximum number elements in a genreated block   = 2000
!    MAXGRD =  maximum number of grid points                  = 300
!    MAXSTO =  maximum storage locations                      = 2 
!
!
!     PARAMETER (MAXE= 40000,MAXP=50000,MAXLIN=6000,MAXECON=60)
!     PARAMETER (MAXLN=20,MAELN=300,MAXPGEN=2000,MAXGRD=3000,MAXSTO=2)
!     PARAMETER (MCRS=600,MPTS=50)
! 	  PARAMETER (MAXE8=8*MAXE,MAXP2=2*MAXP) 

!
!    CORD is the screen scale variable
!    XUSR is the map scale variable
!    To get to CORD from XUSR use
!                  CORD(N,1)=(XUSR(N)+XS)/TXSCAL
!    To get to XUSR from CORD use
!                  XUSR(N2) = CORD(N2,1)*TXSCAL - XS
!    XS,YS and TXSCAL are kept in  TXFRM.COM
!      REAL*8 XS,YS,TXSCAL
!      COMMON  /TXFRM/  XS, YS, TXSCAL