C ELM13A              PRINT ELEMENT
C
C CDB      SECOND ITEM ON A 13 CARD.
C REFER    TRUE IF TRANSFER MATRIX IS TO BE CALCULATED IN ORIGINAL COORDINATE 
C
      INTEGER         CDB
      LOGICAL         REFER
C
      COMMON /ELM13A/ CDB, REFER