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