INCLUDE 'PARAM.COM'
!     BLK1
!-
      REAL HSIZE
	  COMMON /SSIZE/  HSIZE


      INTEGER*2 INSKP,IESKP,INEW,NCORN,IJUN,ISWTAGN,iswtintp
!IPK MAY02      INTEGER*2 NOP,IMAT,IEM,NEF,NEFLAG,LINTYP,LAY
      INTEGER*2 IMAT,LINTYP,LAY
      INTEGER*4 NOP,IEM,NEF,NEFLAG
!     REAL*8 CORD,XUSR,YUSR,XC,YC,CMAP,XMAP,YMAP,pscale,xref,yref
      REAL*8 CORD,XUSR,YUSR,XC,YC,pscale,xref,yref
!
      COMMON /BLK/  CORD(MAXP,2),XUSR(MAXP),YUSR(MAXP),XC(MAXP),YC(MAXP)&
	               ,PSCALE,xref,yref&
                   , IPNN, IPEN, XMIN, YMIN, XMAX, YMAX, NLAYD,ILAYTP&
                   ,VOID, VDX, XSCALE, YSCALE,AMAP,IRESTT&
                   ,NXPMIN, NYPMIN, NXPMAX, NYPMAX, IPP&
                   ,XPMIN, YPMIN, XPMAX, YPMAX, WDSCAL,IESW&
                   ,MAXPTS,NPLAST,NELAST,NEFL,NENTRY,IECHG,ICHG&
                   ,NOP(MAXE,8),IMAT(MAXE),THTA(MAXE),IMATL(MAXE),CORDSN(MAXP,2)&
                   ,WD(MAXP) ,WD1(MAXP) ,INSKP(MAXP),  IESKP(MAXE)&
                   ,NCORN(MAXP),IIN, IBAK, LUNIT,IGIN,IS11,IMP,IGFG,ISWAP,ITRIAN&
                   ,WIDTH(MAXP), SS1(MAXP), SS2(MAXP), WIDS(MAXP)&
                   ,IJUN(MAXP),INEW(MAXP),IEM(MAXE)&
                   ,LINTYP(MAXLIN),NEFLAG(MAXP),NEF(MAXP,3),LAY(0:MAXP+1),WTLAY(0:MAXP,9)&
                   ,klint,jlint,lmpnam,IDELV&
                   ,WIDBS(MAXP),SSO(MAXP),nmapf,NSIGF,NODDEL(MAXP),IELDEL(MAXE)&
                   ,NPUNDO,NEUNDO,NOPSV(MAXE,8),nesav,nefsv(maxp,3),nefsav,IMATSV(MAXE)&
                   ,LOCK(MAXP),xadded,yadded,BS1(MAXP),icolsw,rad,colint,ielvsw,ISWTAGN,iswtintp
!IPK MAR02 ADD BS1
!IPK FEB02 ADD LOCK
!IPK MAY01 ADD NODDEL AND IELDEL
!IPK JUL98 WIDBS AND SSO ADDED
!IPK JAN98 IDELV ADDED
!ipk feb94 line above added, two lines changed may 94 to add xref,yref
!     9             ,LINTYP(MAXLIN),NEFLAG(150),NEF(600,3),LAY(MAXP)
!
!IPK MAR04      INTEGER*2 ILIST,LLIST
      INTEGER*4 ILIST,LLIST
      COMMON /BLK1/ ILIST(MAXLN,MAELN),LLIST(MAXLN),NLST&
      , ICCLN(50,350),NCLM
!
      CHARACTER*80 TITLE
      CHARACTER*24 HLABL
!ipk feb94 add
      character*40 mpnam
!ipk dec97 line above modified
 
      CHARACTER*1 ALABL(10)
      COMMON /BLKA1/ TITLE,HLABL,ALABL,MPNAM
!ipk dec97 line above modified
!
!IPK JAN01 INCREASE IPSW TO 10
      COMMON /HEDS/ NP,NE,NHTP,NMESS,NBRR,IPSW(15),IRMAIN,ISCRN,icolon(12),IQSW(2),IRDISP,ntempin,igfgsw,igfgswb,ICRIN,IPW1,WIDEL,WIDSCL,itrianout
!ycw mar97 add
      COMMON /CROSS/ ICRS,XPCS(2),YPCS(2),NCSNOD,XCND(50),YCND(50),&
                     NCSPTS,XELVP(50),YELVP(50),ZELVP(50),SELVP(50),&
                     ZREF,DFACTOR,ZMIN,IXNOD,LCROSS&
				    ,IVMIL(MCRS),NRIVL(MCRS),NOREACH(MCRS)&
                    ,CRSDAT(MCRS,MPTS,3),NRIVCR1(MAXP),WTRIVCR1(MAXP)&
                    ,NRIVCR2(MAXP),WTRIVCR2(MAXP),NCRSEC,XCRS(MCRS),YCRS(MCRS)
      LOGICAL LCROSS

      COMMON /UNITS/IOT,IOT1

	  COMMON /INTERPL/ IGRID(MAXGRD,MAXGRD),NX,NY,XGRID,YGRID

      real*8 xusrsto,yusrsto
	  INTEGER*2 IMATSTO
      common /loaded/ xusrsto(maxp,maxsto),yusrsto(maxp,maxsto),wdsto(maxp,maxsto),&
        WIDTHsto(MAXP,maxsto), SS1sto(MAXP,maxsto), SS2sto(MAXP,maxsto), WIDSsto(MAXP,maxsto)&
       ,WIDBSsto(MAXP,maxsto),SSOsto(MAXP,maxsto),bs1sto(maxp,maxsto)&
	   ,nopsto(maxe,8,maxsto),imatsto(maxe,maxsto),thtasto(maxe,maxsto)&
	   ,ICCLNSTO(50,350,MAXSTO)&
	   ,NPSTO(MAXSTO),NESTO(MAXSTO),NLSTSTO(MAXSTO),NCLMSTO(MAXSTO)


	  INTEGER*4 ILISTSTO,LLISTSTO
      COMMON /LOADED2/ ILISTSTO(MAXLN,MAELN,MAXSTO),LLISTSTO(MAXLN,MAXSTO)

	  COMMON /TMPLIST/ ilisttmp(100),INREORD