!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)
!