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