C************************************************************************
C*  / BLOCK5 /								*
C*									*
C*  This common area contains information from the CREX tables B an D   *
C************************************************************************
        INTEGER  ITBLDSZ
        PARAMETER ( ITBLDSZ = 100 )
C*
        INTEGER  ITBLBSZ
        PARAMETER ( ITBLBSZ = 100 )
C*
        COMMON /CREXTBD/ ntbldrc,  ntbld, ntblbrc, jseqd,  itblb,  
     +                   itbld, iscale,   iwidth, elmdesc,  elmname,
     +                   units
C*
        INTEGER   ntbld(300)
        INTEGER   iscale(1000),  iwidth(1000)
C*
        CHARACTER   jseqd(300)*6,   itbld(300,50)*6
C*
        CHARACTER   elmdesc(1000)*6,  elmname(1000)*64,  units(1000)*16
C