1      SUBROUTINE XNAM12(IOP)
2C
3      COMMON /POWER/  AD(50)
4      COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND
5C
6      LOGICAL EOF
7C
8      DIMENSION LEND(15),LDMD(15),JETPWR(89),LOCD(15)
9      DIMENSION NLNAME(6)
10C
11C***  NAMELIST JETPWR
12C
13      DATA NLNAME / 4HJ   ,4HE   ,4HT   ,4HP   ,4HW   ,4HR   /
14      DATA LEND / 14*6,5 /
15      DATA LDMD / 15*1 /
16      DATA LOCD / 13,14,15,16,17,18,19,20,21,22,23,24,25,26,27 /
17      DATA JETPWR /   4HA   ,4HI   ,4HE   ,4HT   ,4HL   ,4HJ   ,
18     1  4HN   ,4HE   ,4HN   ,4HG   ,4HS   ,4HJ   ,4HT   ,4HH   ,
19     2  4HS   ,4HT   ,4HC   ,4HJ   ,4HJ   ,4HI   ,4HA   ,4HL   ,
20     3  4HO   ,4HC   ,4HJ   ,4HE   ,4HV   ,4HL   ,4HO   ,4HC   ,
21     4  4HJ   ,4HE   ,4HA   ,4HL   ,4HO   ,4HC   ,4HJ   ,4HI   ,
22     5  4HN   ,4HL   ,4HT   ,4HA   ,4HJ   ,4HE   ,4HA   ,4HN   ,
23     6  4HG   ,4HL   ,4HJ   ,4HE   ,4HV   ,4HE   ,4HL   ,4HO   ,
24     7  4HA   ,4HM   ,4HB   ,4HT   ,4HM   ,4HP   ,4HJ   ,4HE   ,
25     8  4HS   ,4HT   ,4HM   ,4HP   ,4HJ   ,4HE   ,4HL   ,4HL   ,
26     9  4HO   ,4HC   ,4HJ   ,4HE   ,4HT   ,4HO   ,4HT   ,4HP   ,
27     A  4HA   ,4HM   ,4HB   ,4HS   ,4HT   ,4HP   ,4HJ   ,4HE   ,
28     B  4HR   ,4HA   ,4HD   /
29C
30C**   IF IOP EQUAL ZERO READ NAMELIST JETPWR
31C**   IF IOP EQUAL ONE WRITE NAMELIST JETPWR
32C
33      IF(IOP .EQ. 0)
34     1  CALL NAMER(KAND,9,NLNAME,6,JETPWR,89,LEND,15,LDMD,AD,50,
35     2             LOCD,EOF)
36      IF(IOP .EQ. 1)
37     1  CALL NAMEW(KAND,6,NLNAME,6,JETPWR,89,LEND,15,LDMD,AD,50,LOCD)
38C
39      RETURN
40      END
41