1 SUBROUTINE XNAM8(IOP) 2C 3C*** READ OR WRITE NAMELIST HTSCHR 4C 5 COMMON /HTI/ A6A(154) 6 COMMON /IBH/ A6D(363) 7 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 8C 9 INTEGER SCHR 10 LOGICAL EOF 11C 12 DIMENSION LENHS(34),LDMHS(34),SCHR(160),LOCHS(34),HS(306) 13 DIMENSION NLNAME(6) 14 DATA NLNAME / 4HH ,4HT ,4HS ,4HC ,4HH ,4HR / 15 DATA LENHS / 4,6,4,3,6,6,5,6,3,5,4,4,4,5,3,4,5,6,5,5,4,6,3*3, 16 1 6,4,5,6,6,4,5,6,6 / 17 DATA LDMHS / 5*1,20,20,-1,16*1,20,1,1,5*50,1,1 / 18 DATA LOCHS / 16,17,18,19,20,21,41,64,61,66,67,62,63,65,61, 19 1 67,70,71,69,69,92,68,93,94,72,306,155, 20 2 156,206,256,206,256,10,10 / 21 DATA SCHR / 4HT ,4HO ,4HV ,4HC ,4HD ,4HE , 22 14HL ,4HT ,4HA ,4HY ,4HX ,4HO ,4HV ,4HC , 23 24HC ,4HL ,4HI ,4HA ,4HL ,4HP ,4HH ,4HA , 24 34HI ,4HC ,4HL ,4HA ,4HL ,4HP ,4HA ,4HC , 25 44HL ,4HM ,4HA ,4HX ,4HC ,4HA ,4HM ,4HB , 26 54HE ,4HR ,4HC ,4HM ,4H0 ,4HX ,4HO ,4HV , 27 64HC ,4HO ,4HC ,4HM ,4H0 ,4HT ,4HL ,4HE , 28 74HR ,4HI ,4HL ,4HE ,4HR ,4HO ,4HT ,4HO , 29 84HV ,4HC ,4HO ,4HC ,4HM ,4HO ,4HC ,4HM , 30 94HO ,4HT ,4HT ,4HC ,4HE ,4HF ,4HF ,4HK , 31 A4HS ,4HH ,4HA ,4HR ,4HP ,4HC ,4HL ,4HA , 32 B4HM ,4H0 ,4HC ,4HL ,4HA ,4HM ,4HO ,4HA , 33 C4HR ,4HC ,4HL ,4HC ,4HL ,4HM ,4HA ,4HX , 34 D4HL ,4HY ,4HC ,4HM ,4HC ,4HL ,4HD ,4HX , 35 E4HA ,4HC ,4HT ,4HY ,4HP ,4HE ,4HI ,4HN , 36 F4HN ,4HP ,4HT ,4HS ,4HX ,4HC ,4HO ,4HR , 37 G4HD ,4HY ,4HU ,4HP ,4HP ,4HE ,4HR ,4HY ,4HL , 38 H4HO ,4HW ,4HE ,4HR ,4HM ,4HE ,4HA ,4HN ,4HT , 39 I4HH ,4HI ,4HC ,4HK ,4HA ,4HL ,4HP ,4HH ,4HA , 40 J4HO ,4HA ,4HL ,4HP ,4HH ,4HA ,4H0 / 41C 42 DO 1000 I=1,154 43 HS(I)=A6A(I) 44 1000 CONTINUE 45 HS(306)=A6D(132) 46 DO 1010 I=155,305 47 HS(I)=A6D(I+58) 48 1010 CONTINUE 49C 50C** IOP EQUAL ZERO READ NAMELIST HTSCHR 51C** IOP EQUAL ONE WRITE NAMELIST HTSCHR 52C 53 IF(IOP .EQ. 0) 54 1 CALL NAMER(KAND,9,NLNAME,6,SCHR,160,LENHS,34,LDMHS,HS,306,LOCHS, 55 2 EOF) 56 IF(IOP .EQ. 1) 57 1 CALL NAMEW(KAND,6,NLNAME,6,SCHR,160,LENHS,34,LDMHS,HS,306,LOCHS) 58C 59C PUT THE VARIABLES IN THE APPROPRIATE COMMON BLOCK 60C 61 DO 1020 I=1,154 62 A6A(I)=HS(I) 63 1020 CONTINUE 64 A6D(132)=HS(306) 65 DO 1030 I=155,305 66 A6D(I+58)=HS(I) 67 1030 CONTINUE 68C 69 RETURN 70 END 71