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