X(JO)=A(JO,N1)-SUM
IF(X(JO).GT.XX)GO TO 3100
XX=X(JO)
IMIN=JO
3100
CONTINUE
IF (ISOLU.EQ.0) RETURN
IF (IMIN.EQ.0) GO TO 1025
NUM(IMIN)=N1
GO TO 76
1025
CALL SIMPL(NL1,N,1,IP,N1,IK,IR)
IF(ISIM.EQ.1) THEN
DELL=DELL+.5
GO TO 75
END IF
7000
CONTINUE
RETURN
END
35
Previous Page
