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