1      SUBROUTINE XNAM14(IOP)
2C
3      COMMON /FLGTCD/ AF(141)
4      COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND
5C
6      INTEGER GRNDEF
7      LOGICAL EOF
8C
9      DIMENSION LENF(2),LDMF(2),GRNDEF(8),LOCF(2)
10      DIMENSION NLNAME(6)
11C
12      DATA NLNAME / 4HG   ,4HR   ,4HN   ,4HD   ,4HE   ,4HF   /
13      DATA LENF / 3,5 /
14      DATA LDMF / 1,10 /
15      DATA LOCF / 63,64 /
16      DATA GRNDEF /   4HN   ,4HG   ,4HH   ,4HG   ,4HR   ,4HD   ,
17     1  4HH   ,4HT   /
18C
19C**   IF IOP EQUAL ZERO READ NAMELIST GRNDEF
20C**   IF IOP EQUAL ONE WRITE NAMELIST GRNDEF
21C
22      IF(IOP .EQ. 0)
23     1   CALL NAMER(KAND,9,NLNAME,6,GRNDEF,8,LENF,2,LDMF,AF,141,
24     2              LOCF,EOF)
25      IF(IOP .EQ. 1)
26     1  CALL NAMEW(KAND,6,NLNAME,6,GRNDEF,8,LENF,2,LDMF,AF,141,LOCF)
27C
28      RETURN
29      END
30