1 SUBROUTINE XNAM15(IOP) 2C 3 COMMON /VTI/ AG(162) 4 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 5C 6 INTEGER TVTPAN 7 LOGICAL EOF 8C 9 DIMENSION LENG(8),LDMG(8),TVTPAN(23),LOCG(8) 10 DIMENSION NLNAME(6) 11C 12 DATA NLNAME / 4HT ,4HV ,4HT ,4HP ,4HA ,4HN / 13 DATA LENG / 3,2,3,2,2,6,3,2 / 14 DATA LDMG / 8*1 / 15 DATA LOCG / 155,156,157,158,159,160,161,162 / 16 DATA TVTPAN / 4HB ,4HV ,4HP ,4HB ,4HV ,4HB , 17 1 4HD ,4HV ,4HB ,4HH ,4HS ,4HV ,4HV ,4HP , 18 2 4HH ,4HI ,4HT ,4HE ,4HV ,4HL ,4HP ,4HZ , 19 3 4HP / 20C 21C** IF IOP EQUAL ZERO READ NAMELIST TVTPAN 22C** IF IOP EQUAL ONE WRITE NAMELIST TVTPAN 23C 24 IF(IOP .EQ. 0) 25 1 CALL NAMER(KAND,9,NLNAME,6,TVTPAN,23,LENG,8,LDMG,AG,162, 26 2 LOCG,EOF) 27 IF(IOP .EQ. 1) 28 1 CALL NAMEW(KAND,6,NLNAME,6,TVTPAN,23,LENG,8,LDMG,AG,162,LOCG) 29C 30 RETURN 31 END 32