NAAANANANANANAANAANAANAANAINAND 
20 CONTINUE 
1821861 
FX(1,1B)=x(5) 
FX(2s1B) =x (6) 
93 FORMAT(" ",10E10.4) 
92 FORMAT (1Xo11(F10.402Xx)) 
190 CONTINUE 
~ KOUNT=SKOUNT ¢1 
IF (NWAVE.GT.0)GO TO 21 
IF (TIME GT. WAVE) NWAVE=KOUNT 
21 CONTINUE 
IF (TIME LE. XE AND. IKUTSoLT.IKUTM)GU TO 851 
WRITE (29852) 
854 CONTINUE 
852 FORMAT( “ END OF KUTMER") 
853 CONTINUE 
CALL PLUTE2 (FX »XAoHMAX »LAMBDA s IB yNWAVE 5 IPT) 
# # @ @ # @ # CHECK FOR LAST RUN IF NOT CYCLE HACK TO READ 
NEW DATA FOR NEXT RUN 
IF (ENO.NE.1)GU0 TO 8 
GO TO 999 
# # @ # KUTMER ERROR MESSAGES 
861 WRITE (69862) 
862 FORMAT ("' ERROR CRITERION IN KUTMER CAN NOT BE MET") 
WRITE (6956) (X(I) 9I=196) 
WRITE (6986) TIME 
86 FORMAT (" TIME ='"9F10.4) 
IF (END.NE.1)GO TO 8 
GO TO 853 
999 CONTINUE 
END FILE 9 
END 
SUBROUTINE PLUT2 (F oF MINoF MAX gNVAR »NFUN NI 9N9 XO 9DELX) 
PLUT FIRST N POINTS OF UP TO 26 FUNCTIONS F(X) 
F(I9J) CONTAINS THE VALUE FOR THE JTH POINT OF THE ITH FUNCTION 
FMIN(I) AND FMAX(I) CONTAIN THE MIN AND MAX ORDINATE VALUES FOR 
THE ITH FUNCTION, 
NVAR(I) AN ARRAY OF TITLES FUR THE VARIOUS FUNCTIONS 
TO BE PLOTTED AGAINST THE ABSCISSA 
NF UN NUMBER OF FUNCTIONS TU BE PLOTTED - OIMENSION OF 
NVAR» FMIN» FMAX 
Nl USED ONLY IN F(Nl»l) AS PASSED DIMENSION 
N NUMBER OF POINTS IN A SINGLE PLOT FRAME 
x0 FIRST ABSCISSA VALUE 
DELX ABSCISSA INCREMENT 
1 
2 
ro 
DIMENSION 2STEP (26) oF (NI oN) oF MIN (NFUN) oF MAX (NFUN) » VLAST (26) » 
VF 19ST (26) HEAD (6) »STEP (26) 
INTEGER CH(26) »NVAR( NFUN) »DOT»ASTERsPLUS » BLANK 
INTEGER C 
INTEGER A (101) 
DATA BLANK ,DOT,ASTER»PLUS/IH olHeolH®slH+e/ 
DATA CH(1) »CH(2) »CH(3) oCH (4) »CH(S) »CH(6) »CH(7) »9CH(8) »CH(9) »CH(10) 
7 HA 4» LHB » LHC » LHD » LHE » LHF » 14G » IHH oIHI olHJ # 
DATA CH(11) »CH(12) »CH(13) 9CH(14) »CH(15) »CH(16) »CH(17) sCH(18) 
f 7 AK 4 LAL » JAM » JAN » JHO » LHP » ILH@ » ILHRS 
DATA CH(19) »CH(20) oCH(21) »CH (22) »CH(23) »CH (24) »CH(25) »CH (26) 
53 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
PLOT2 
PLOT2 
PLOT2 
PLoT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOoT2 
PLoT2 
PLOT2 
PLOT2 
PLoT2 
PLoT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLoT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLoT2 
PLOT2 
PLoT2 
