BLOCK DATA
    
      INTEGER     RCOUNT
      INTEGER     RTYPE 
      INTEGER     RSTYPE
      INTEGER     RTMAX 
      INTEGER     RSZMAX
      INTEGER     RECORD (41)   
      INTEGER     RSIZE 
      INTEGER     RSIZES (20)   
      INTEGER ICLP02
      COMMON      /RECORD/ RCOUNT   
      COMMON      /RECORD/ RTYPE
      COMMON      /RECORD/ RSTYPE   
      COMMON      /RECORD/ RTMAX
      COMMON      /RECORD/ RSZMAX   
      COMMON      /RECORD/ RECORD   
      COMMON      /RECORD/ RSIZE
      COMMON      /RECORD/ RSIZES   
      COMMON     /RECORD/ ICLP02
      DATA     RTMAX    /20/
      DATA     RSZMAX   /41/
      DATA     RSIZES(1)   /9/  
      DATA     RSIZES(2)   /1/  
      DATA     RSIZES(3)   /2/  
      DATA     RSIZES(4)   /41/ 
      DATA     RSIZES(5)   /11/ 
      DATA     RSIZES(6)   /11/ 
      DATA     RSIZES(7)   /12/ 
      DATA     RSIZES(8)   /12/ 
      DATA     RSIZES(9)   /10/ 
      DATA     RSIZES(10)  /0/  
      DATA     RSIZES(11)  /3/  
      DATA     RSIZES(12)  /4/  
      DATA     RSIZES(13)  /4/  
      DATA     RSIZES(14)  /3/  
      DATA     RSIZES(15)  /2/  
      DATA     RSIZES(16)  /2/  
      DATA     RSIZES(17)  /3/  
      DATA     RSIZES(18)  /11/ 
      DATA     RSIZES(19)  /1/  
      DATA     RSIZES(20)  /1/  
      END