1      SUBROUTINE XNAM9(IOP)
2C
3C***  READ OR WRITE NAMELIST VTPLNF
4C
5      COMMON /VTI/    A9(162)
6      COMMON /VTDATA/ AVT(195)
7      COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND
8      EQUIVALENCE (TYPE,A9(15))
9C
10      INTEGER PLNF
11      LOGICAL EOF
12C
13      DIMENSION NLNAME(6),XTYPE(4),VT(75),IEQU(18)
14      DIMENSION LENVP(18),PLNF(92),LOCVP(18),LDMVP(18)
15C
16      DATA XTYPE /4HSTRA,4HDDUB,4HCRAN,4HCURV/
17      DATA NLNAME /4HV   ,4HT   ,4HP   ,4HL   ,4HN   ,4HF   /
18      DATA LENVP / 6,6,5,4,6,5,5,6,5,4*6,4,5,4,3,4/
19      DATA LDMVP / 15*1,3*20 /
20      DATA LOCVP / 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,36,56 /
21      DATA IEQU / 1,2,3,4,5,6,7,9,10,11,12,13,14,15,8,95,115,135 /
22      DATA PLNF /4HC   ,4HH   ,4HR   ,4HD   ,4HT   ,4HP   ,4HS   ,
23     1    4HS   ,4HP   ,4HN   ,4HO   ,4HP   ,4HS   ,4HS   ,4HP   ,
24     2    4HN   ,4HE   ,4HS   ,4HS   ,4HP   ,4HN   ,4HC   ,
25     3    4HH   ,4HR   ,4HD   ,4HB   ,4HP   ,4HC   ,4HH   ,4HR   ,
26     4    4HD   ,4HR   ,4HS   ,4HA   ,4HV   ,4HS   ,4HI   ,4HC   ,
27     5    4HH   ,4HS   ,4HT   ,4HA   ,4HT   ,4HS   ,4HW   ,4HA   ,
28     6    4HF   ,4HP   ,4HT   ,4HW   ,4HI   ,4HS   ,4HT   ,4HA   ,
29     7    4HS   ,4HS   ,4HP   ,4HN   ,4HD   ,4HD   ,4HD   ,4HH   ,
30     8    4HD   ,4HA   ,4HD   ,4HI   ,4HD   ,4HH   ,4HD   ,4HA   ,
31     9    4HD   ,4HO   ,4HT   ,4HY   ,4HP   ,4HE   ,4HS   ,4HA   ,
32     A    4HV   ,4HS   ,4HO   ,4HS   ,4HV   ,4HW   ,4HB   ,4HS   ,
33     B    4HV   ,4HB   ,4HS   ,4HV   ,4HH   ,4HB   /
34C
35      DO 1000 I=1,15
36         IE=IEQU(I)
37         VT(I)=A9(IE)
38 1000 CONTINUE
39      DO 1020 I=16,18
40         IE=IEQU(I)
41         IF(I .EQ. 16)K=-1
42         IF(I .EQ. 17)K=18
43         IF(I .EQ. 18)K=37
44         DO 1010 J=1,20
45            VT(I+J+K)=A9(IE+J-1)
46 1010    CONTINUE
47 1020 CONTINUE
48C
49C**   IF IOP EQUAL ZERO READ NAMELIST VTPLNF
50C**   IF IOP EQUAL ONE WRITE NAMELIST VTPLNF
51C
52      IF(IOP .EQ. 0)
53     1 CALL NAMER(KAND,9,NLNAME,6,PLNF,92,LENVP,18,LDMVP,VT,75,
54     2            LOCVP,EOF)
55      IF(IOP .EQ. 1)
56     1 CALL NAMEW(KAND,6,NLNAME,6,PLNF,92,LENVP,18,LDMVP,VT,75,LOCVP)
57C
58      DO 1030 I=1,15
59         IE=IEQU(I)
60C
61C  THIS IF CHECK IS BECAUSE VARIABLE 10 IS A DUMMY VARIABLE.
62C
63         IF(IE .EQ. 10)GO TO 1030
64         A9(IE)=VT(I)
65 1030 CONTINUE
66      DO 1050 I=16,18
67         IE=IEQU(I)
68         IF(I .EQ. 16)K=-1
69         IF(I .EQ. 17)K=18
70         IF(I .EQ. 18)K=37
71         DO 1040 J=1,20
72            A9(IE+J-1)=VT(I+J+K)
73 1040    CONTINUE
74 1050 CONTINUE
75C
76      AVT(106)=A9(7)
77      AVT(112)=A9(8)
78      AVT(138)=0.0
79C --- CHECK IF TYPE SET IN NAMELIST
80      DO 1060 I=1,4
81         IF(TYPE .EQ. XTYPE(I))TYPE=I
82 1060 CONTINUE
83      IF(TYPE .LT. 5.)GO TO 1070
84      WRITE(6,1080)TYPE
85      TYPE=1.0
86 1070 RETURN
87 1080 FORMAT(42H ERROR TYPE CANNOT BE GREATER THAN 4 TYPE=,E12.5,
88     19H SET TO 1)
89      END
90