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