C************************************************************************
C*									*
C*	ITBLBSZ           INTEGER       Maximum number of element       *
C*	                                descriptors in Table B          *
C*									*
C*	ITBLDSZ           INTEGER       Maximum number of unique        *
C*	                                sequence descriptors in Table D *
C*									*
C*  / BLOCK5 /								*
C*									*
C*  This common area contains information from the CREX tables B an D   *
C************************************************************************
        INTEGER  ITBLDSZ
        PARAMETER ( ITBLDSZ = 300 )
C*
        INTEGER  ITBLBSZ
        PARAMETER ( ITBLBSZ = 1000 )
C*
        COMMON /CREXTBD/ ntbldrc,  ntbld, ntblbrc, jseqd,  itblb,  
     +                   itbld, iscale,   iwidth, elmdesc,  elmname,
     +                   units
C*
        INTEGER   ntbld(ITBLDSZ)
        INTEGER   iscale(ITBLBSZ),  iwidth(ITBLBSZ)
C*
        CHARACTER   jseqd(ITBLDSZ)*6,   itbld(ITBLDSZ,30)*6
C*
        CHARACTER     elmdesc(ITBLBSZ)*6,  elmname(ITBLBSZ)*64,
     +                units(ITBLBSZ)*16
C*
        CHARACTER*1000  logmsg
C*
        COMMON /BLOCK4/  lrdsc, nchrs,  msc,  munits
C*
        CHARACTER   munits(100)*16
C*
        INTEGER    nchrs(100),   msc(100)
C*