2 
4 HS » HT » IHU » LHV 5» LHW 9» 
IF (NFUN.LE.0.OR.N.LE.0) RETURN 
C PRINT HEADINGS, 
46 
30 
WRITE (6946) 
FORMAT (///) 
DO 40 I=l 5NFUN 
TENM=A0S (FMAX(1) <FMIN(I)) 
EXP=1l. 
IF (TENM.EQ.0-) GO TO 2 
C ARING TENM TO A VALUE BETWEEN 1 AND 10 
3 
C SET 
IF (TENM.LTo1le) GO TO 1 
IF (TENM.LT.19.) GO TO 2 
EXP=EXF#1", 
TENM=TENM*# .1 
GO TO 3 
EXP=EXP#,1 
TENM=TENM#10.6 
IF (TENM.GT.1.) GO TO 2 
GO TO 1 
UP VALUE SETWEEN GRID LINES, RSTEP. 
PSTEP=5, 
IF (TENM.GE.5.)PSTEP=10,. 
IF (TENM.LT220e)PSTEP=2.6 
RSTEP (1) =PSTEP#EXP#,} 
C CUMPUTE VALUE OF STARTING LINE» VFIRST.o 
FIRST=FMIN(I) /RSTEP(I) 
IF (FMIN(I) LT O-)FIRST=FIRST=-1l, 
FIRST=AINT(FIRST) 
VF IRST(1)=FIRST#RSTEP (I) 
C CHECK END LINE VALUE» VLAST. 
VLAST(I)=VFIRST (1) +10.#RSTEP (1) 
IF (VLAST (I) oGTeFMAX(I))GO TO & 
C IF GRAPH IS TUO SMALL TAKE NEXT LARGER STEP. 
AA=PSTEP 
IF (AA.LT.5.)PSTEP=5, 
IF (AAcEQe5e) PSTEP=106 
IF (AA.LT.2100) GO TO S 
PSTEP=e. 
EXP=10.#ExXP 
GO 70 5 
C CUMPUTE VALUE BETWEEN POINTS»STEP. 
4 
6 
40 
45 FORMAT (1X9A193H = 9Al095X91PE12.495(8X91PE1204) ) 
DO SO J=19101 
50 
55 
STEP (I) =RSTEP (1) #1 
RK=0. 
DO 6 KK=196 
HEAD (KK) =VFIRST(I) +2. #RK*®RSTEP (1) 
RK=RKe1,. 
LHX 95 
WRITE (6945) CH(I1)» NVAR(I)»s (HEAD(KK) oKK=1 96) 
A(J) =BLANK 
IF (MOD (Jo1%) eEQel) A(J)200T 
CONTINUE 
WRITE (6555) AoA 
FORMAT (25Xo1l01A1/15X 54HTIME s6X59101A1) 
C PLUT EACH PUINT 
DO 100 J=1,N 
B=X0+FLUAT (J=-1) *DELX 
DO 70 K=19101 
54 
1LHY 9» 
1HZ / 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLoT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
PLOT2 
