RUNT VERSION FEB 7^ 3 17:1? 0'^/2i/7b 



I 5X*WAy/tLENGTH -♦, FU.'t) 



1^60 TK=2.J/K 



C FIkST-QRDER POTSNTIALS on CYLINDEP 4?? ciiJrT CALCULATED. 



1^62 CALL COrtP(K) 



C... FIRST-ORDFR PHYSICAL QUANTITIES ASF CAL-ULATcD. 



146^ CALL PHYSCL(K) 



1<»66 301 CONTINUE 



1*71 1009 FCRIiAT (1CF8.5) 



1471 ISKIPI • 2 



(;*****PUNCH RESULTS .JF POTENTIAL SOLUTinN HN CAPni 



1472 PUNCH H-, TITLE 



1500 PUNCH 50» N, NW. NWAVFL. ISYM, ISKTOl, IC» JC 



1522 PUNCH 7o» AREA, f) p ■ » ROE, GEE» 9TTTLE 



1542 PUNCH IOC?, (WN(IL)»IL » l.lJ), (t!TL(TL'» TL « l,lL-) 



1564 DO 310 I ' 1.3 



1566 PUNCH \\.\t^ . (F9(lpIL)f XL * l,il). ( [("^L Fq ( T. IL ) , U « l.lfl) 



1613 DO 310 J ' 1.3 



1615 JiO PUNCH luO^, (RMU(I.J.IL). 1L» 1.10), ( 5 L A"^ ( T, J , IL ) , IL = 1.10) 



1652 DO 320 I = l.NNW 



1654 PUNCH 1009, (XOL(I.IL).IL • 1.10) 



1673 DO 320 J * 1»6 



1672 320 PUNCH 10C9. ( HWB ( I, J . IL ) . IL = 1.13) . ( n"^Li</( I , J, IL ) . IL * 1,10) 



1730 303 CONTINUE 



1730 116 CONTINUE 



1730 CALL OYNAMC 



1731 302 CDNTINU"^ 

 1731 STOP 

 1733 END 



Table D-2. Continued 



115 



