1 SUBROUTINE XNAM4(IOP) 2C 3C*** READ OR WRITE NAMELIST WGPLNF 4C 5 COMMON /WINGI/ B(101) 6 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 7 COMMON /WINGD/ WNG(138) 8C 9 INTEGER PLNF 10 LOGICAL EOF 11C 12 DIMENSION LEN5(15),LDM5(15),PLNF(81),LOC5(15),A(15), 13 1 IEQU(15) 14 DIMENSION NLNAME(6) 15 DATA NLNAME / 4HW ,4HG ,4HP ,4HL ,4HN ,4HF / 16 DATA LEN5 / 6,5,6,6,4,5,6,3*5,6,4,3*6/ 17 DATA LDM5 / 15*1/ 18 DATA LOC5 / 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15/ 19 DATA PLNF / 4HC ,4HH ,4HR ,4HD ,4HB ,4HP , 20 1 4HC ,4HH ,4HR ,4HD ,4HR ,4HC ,4HH ,4HR , 21 2 4HD ,4HT ,4HP ,4HC ,4HH ,4HS ,4HT ,4HA , 22 3 4HT ,4HS ,4HS ,4HP ,4HN ,4HS ,4HS ,4HP , 23 4 4HN ,4HE ,4HS ,4HS ,4HP ,4HN ,4HO ,4HP , 24 5 4HS ,4HA ,4HV ,4HS ,4HI ,4HS ,4HA ,4HV , 25 6 4HS ,4HO ,4HS ,4HW ,4HA ,4HF ,4HP ,4HT , 26 7 4HW ,4HI ,4HS ,4HT ,4HA ,4HT ,4HY ,4HP , 27 8 4HE ,4HS ,4HS ,4HP ,4HN ,4HD ,4HD ,4HD , 28 9 4HH ,4HD ,4HA ,4HD ,4HI ,4HD ,4HH ,4HD , 29 A 4HA ,4HD ,4HO / 30 DATA IEQU / 5,6,1,9,4,3,2,7,8,10,11,15,12,13,14 / 31C 32 DO 1000 I=1,15 33 IE=IEQU(I) 34 A(I)=B(IE) 35 1000 CONTINUE 36C 37C** IOP EQUAL ZERO READ NAMELIST WGPLNF 38C** IOP EQUAL ONE WRITE NAMELIST WGPLNF 39C 40 IF(IOP .EQ. 0) 41 1 CALL NAMER(KAND,9,NLNAME,6,PLNF,81,LEN5,15,LDM5,A,15,LOC5,EOF) 42 IF(IOP .EQ. 1) 43 1 CALL NAMEW(KAND,6,NLNAME,6,PLNF,81,LEN5,15,LDM5,A,15,LOC5) 44C 45 DO 1010 I=1,15 46 IE=IEQU(I) 47C 48C THIS IF CHECK IS HERE BECAUSE VARIABLE TEN IS A "DUMB" VARIABLE. ELEM 49C TEN OF COMMON WINGI IS READ IN NAMELIST WGSCHR. 50 IF(IE .EQ. 10)GO TO 1010 51 B(IE)=A(I) 52 1010 CONTINUE 53C 54 WNG(106) = B(7) 55 WNG(112) = B(8) 56 WNG(138) = 0.0 57 RETURN 58 END 59