You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
85 lines
3.5 KiB
Plaintext
85 lines
3.5 KiB
Plaintext
|
|
|
|
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 |