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.
30 lines
1.3 KiB
Fortran
30 lines
1.3 KiB
Fortran
5 years ago
|
MODULE BLK2MOD
|
||
|
|
|
||
|
|
!IPK LAST UPDATED OCT 18 1996
|
||
|
|
!
|
||
|
|
! BLK2
|
||
|
|
!
|
||
|
|
INTEGER*8 MTSUM,MRSUM,MTSUMSV,MSUM,MTSUM1
|
||
|
|
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,NSEQ,NFWSV
|
||
|
|
COMMON /BLKB/ mtsum1,NCM,NCMI,KNT,NDP,NNEW,MP,NAD,NAE &
|
||
|
|
,LNEW(8),NDROP(8),NITST &
|
||
|
|
,NFWS,NFWSAV,NSEQ,NFWSV(0:100)
|
||
|
|
!IPK MAY94 LINE ABOVE ADDED
|
||
|
|
|
||
|
|
ALLOCATABLE MLIST(:),ENXT(:),NDELM(:),LIST(:) &
|
||
|
|
,NINC(:),NELIM(:)
|
||
|
|
|
||
|
|
!
|
||
|
|
INTEGER ICON
|
||
|
|
ALLOCATABLE ICON(:,:)
|
||
|
|
!
|
||
|
|
INTEGER NECON
|
||
|
|
ALLOCATABLE NECON(:,:)
|
||
|
|
!
|
||
|
|
INTEGER ITRAC,NTRAC,NTRACT,NNEL
|
||
|
|
COMMON /BLKB3/ ITRAC(1000),NTRAC,JTRAC(1000,20),KTRAC(1000,20)
|
||
|
|
!
|
||
|
|
END MODULE
|
||
|
|
|