Lines Matching refs:SLOPE1

26354       SLOPE1=CPUMAX
26355       IF(ABS(DELX1).GE.0.000001)SLOPE1=DELY1/DELX1
26357      1WRITE(ICOUT,1112)DELX1,SLOPE1
26377       IF(SLOPE1.EQ.SLOPE2)GOTO1210
26386       IF(SLOPE1.EQ.CPUMAX)GOTO1221
26398       DENOM=SLOPE2-SLOPE1
26399       ANUM=PYPRE(I)-PYPOST(I)-SLOPE1*PXPRE(I)+SLOPE2*PXPOST(I)
26401      1WRITE(ICOUT,1224)SLOPE1,SLOPE2,DENOM
26406       PY3(I)=PYPRE(I)+SLOPE1*(PX3(I)-PXPRE(I))
26432       SLOPE1=CPUMAX
26433       IF(ABS(DELX1).GE.0.000001)SLOPE1=DELY1/DELX1
26435      1WRITE(ICOUT,2112)DELX1,SLOPE1
26457       IF(SLOPE1.EQ.SLOPE2)GOTO2210
26468       IF(SLOPE1.EQ.CPUMAX)GOTO2221
26484       DENOM=SLOPE2-SLOPE1
26485       ANUM=PYPRE(1)-PYPOST(1)-SLOPE1*PXPRE(1)+SLOPE2*PXPOST(1)
26487      1WRITE(ICOUT,2224)SLOPE1,SLOPE2,DENOM
26492       PY3(1)=PYPRE(1)+SLOPE1*(PX3(1)-PXPRE(1))