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.
23 lines
1.2 KiB
Plaintext
23 lines
1.2 KiB
Plaintext
5 years ago
|
!IPK LAST UPDATED OCT 18 1996
|
||
|
|
!
|
||
|
|
! BLK2
|
||
|
|
!
|
||
|
|
INTEGER*8 MTSUM,MRSUM,MTSUMSV,MSUM
|
||
|
|
COMMON /BLKKB4/MTSUM,MRSUM,MTSUMSV(0:100),MSUM
|
||
|
|
INTEGER ENXT,NCM,NCMI,KNT,NDP,NNEW,MP,NAD,NAE,MLIST,NDELM &
|
||
|
|
,LIST,NINC,LNEW,NDROP,NELIM,NITST,NFWSAV,MTSUM1,NSEQ,NFWSV
|
||
|
|
COMMON /BLKB/ NCM,NCMI,KNT,NDP,NNEW,MP,NAD,NAE &
|
||
|
|
,MLIST(MAXE),ENXT(MAXE),NDELM(MAXP),LIST(MAXP) &
|
||
|
|
,NINC(MAXP),LNEW(8),NDROP(8),NELIM(MAXE),NITST &
|
||
|
|
,NFWS,NFWSAV,mtsum1,NSEQ,NFWSV(0:100)
|
||
|
|
!IPK MAY94 LINE ABOVE ADDED
|
||
|
|
!
|
||
|
|
INTEGER ICON
|
||
|
|
COMMON /BLKB1/ ICON(MAXE,MAXECON)
|
||
|
|
!
|
||
|
|
INTEGER NECON
|
||
|
|
COMMON /BLKB2/ NECON(MAXP,MAXECON)
|
||
|
|
!
|
||
|
|
INTEGER ITRAC,NTRAC
|
||
|
|
COMMON /BLKB3/ ITRAC(350),NTRAC,JTRAC(350),KTRAC(350)
|
||
|
|
!
|