1      SUBROUTINE XNAM21(IOP)
2C
3C***  READ OR WRITE NAMELIST VFSCHR
4C
5      COMMON /VTI/ A9(316)
6      COMMON /IVF/ A9B(363)
7      COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND
8C
9      INTEGER SCHR
10      LOGICAL EOF
11C
12      DIMENSION LENVFS(34),LDMVFS(34),SCHR(160),LOCVFS(34),VFS(476)
13      DIMENSION NLNAME(6)
14      DATA LENVFS / 4,6,4,3,6,6,5,6,3,5,4,4,4,5,3,4,5,6,5,5,4,6,3*3,
15     1            6,4,5,6,6,4,5,6,6 /
16      DATA LDMVFS / 5*1,20,20,-1,16*1,20,1,1,5*50,1,1 /
17      DATA NLNAME / 4HV   ,4HF   ,4HS   ,4HC   ,4HH   ,4HR   /
18C
19      DATA LOCVFS / 178,179,180,181,182,183,203,226,223,228,229,224,
20     1            225,227,223,229,232,233,231,231,254,230,0,0,234,476,
21     2            325,326,376,426,376,426,10,10 /
22      DATA SCHR /   4HT   ,4HO   ,4HV   ,4HC   ,4HD   ,4HE   ,
23     14HL   ,4HT   ,4HA   ,4HY   ,4HX   ,4HO   ,4HV   ,4HC   ,
24     24HC   ,4HL   ,4HI   ,4HA   ,4HL   ,4HP   ,4HH   ,4HA   ,
25     34HI   ,4HC   ,4HL   ,4HA   ,4HL   ,4HP   ,4HA   ,4HC   ,
26     44HL   ,4HM   ,4HA   ,4HX   ,4HC   ,4HA   ,4HM   ,4HB   ,
27     54HE   ,4HR   ,4HC   ,4HM   ,4H0   ,4HX   ,4HO   ,4HV   ,
28     64HC   ,4HO   ,4HC   ,4HM   ,4H0   ,4HT   ,4HL   ,4HE   ,
29     74HR   ,4HI   ,4HL   ,4HE   ,4HR   ,4HO   ,4HT   ,4HO   ,
30     84HV   ,4HC   ,4HO   ,4HC   ,4HM   ,4HO   ,4HC   ,4HM   ,
31     94HO   ,4HT   ,4HT   ,4HC   ,4HE   ,4HF   ,4HF   ,4HK   ,
32     A4HS   ,4HH   ,4HA   ,4HR   ,4HP   ,4HC   ,4HL   ,4HA   ,
33     B4HM   ,4H0   ,4HC   ,4HL   ,4HA   ,4HM   ,4HO   ,4HA   ,
34     C4HR   ,4HC   ,4HL   ,4HC   ,4HL   ,4HM   ,4HA   ,4HX   ,
35     D4HL   ,4HY   ,4HC   ,4HM   ,4HC   ,4HL   ,4HD   ,4HX   ,
36     E4HA   ,4HC   ,4HT   ,4HY   ,4HP   ,4HE   ,4HI   ,4HN   ,
37     F4HN   ,4HP   ,4HT   ,4HS   ,4HX   ,4HC   ,4HO   ,4HR   ,
38     G4HD   ,4HY   ,4HU   ,4HP   ,4HP   ,4HE   ,4HR   ,4HY   ,4HL   ,
39     H4HO   ,4HW   ,4HE   ,4HR   ,4HM   ,4HE   ,4HA   ,4HN   ,
40     I4HT   ,4HH   ,4HI   ,4HC   ,4HK   ,4HA   ,4HL   ,4HP   ,
41     J4HH   ,4HA   ,4HO   ,4HA   ,4HL   ,4HP   ,4HH   ,4HA   ,4H0   /
42C
43      DO 1000 I=1,324
44         VFS(I)=A9(I)
45 1000 CONTINUE
46      VFS(476)=A9B(132)
47      DO 1010 I=325,475
48         VFS(I)=A9B(I-112)
49 1010 CONTINUE
50C
51C**   IOP EQUAL ZERO READ NAMELIST VFSCHR
52C**   IOP EQUAL ONE WRITE NAMELIST VFSCHR
53C
54      IF(IOP .EQ. 0)
55     1 CALL NAMER(KAND,9,NLNAME,6,SCHR,160,LENVFS,34,LDMVFS,VFS,476,
56     2            LOCVFS,EOF)
57      IF(IOP .EQ. 1)
58     1 CALL NAMEW(KAND,6,NLNAME,6,SCHR,160,LENVFS,34,LDMVFS,VFS,476,
59     2            LOCVFS)
60C
61C     PUT THE VARIABLES IN THE APPROPRIATE COMMON BLOCK
62C
63      DO 1020 I=1,324
64         A9(I)=VFS(I)
65 1020 CONTINUE
66      A9B(132)=VFS(476)
67      DO 1030 I=325,475
68         A9B(I-112)=VFS(I)
69 1030 CONTINUE
70C
71      RETURN
72      END
73