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