C FORDAT     NAMES OF DUMMY ARGUMENTS FOR BEAM SUBLINES
C
C FNAME      DUMMY ARGUMENT NAMES
C
      CHARACTER*15    FNAME(20)
C
      COMMON /FORDAT/ FNAME