C ELM0C                  PERTAINS TO FITTING FOR A SINGLE ELEMENT
C
C TYPEC        SUB-ELEMENT TYPE CODE (FOR COMPOUND ELEMENTS)
C TYPED        PHYSICAL ELEMENT TYPE WHILE PLOTTING
C NEXT         TYPE CODE OF FOLLOWING ELEMENT
C
      INTEGER         TYPEC, TYPED, NEXT
C
      COMMON /ELM0C/  TYPEC, TYPED, NEXT