Lines Matching defs:DPLPFL

2       SUBROUTINE DPLPFL (MRELAS, NVARS, IENTER, ILEAVE, IBASIS, IND,  subroutine
52 20002 I=1
55 20005 I=I+1
56 20006 IF ((N20005-I).LT.0) GO TO 20007
66 20009 IF (.NOT.(ABS(WW(I)).LE.DIRNRM*ERP(I))) GO TO 20012
68 20012 IF (.NOT.(WW(I).GT.ZERO)) GO TO 20015
81 20018 IF (.NOT.(RPRIM(I).GT.ZERO)) GO TO 10001
88 20021 IF (.NOT.(RATIO.LT.THETA)) GO TO 10002
91 10002 CONTINUE
92 20022 CONTINUE
96 10001 CONTINUE
100 20019 GO TO 20016
104 20015 IF (.NOT.(PRIMAL(I+NVARS).LT.ZERO)) GO TO 20024
112 20027 IF (.NOT.(RATIO.LT.THETA)) GO TO 10003
115 10003 CONTINUE
116 20028 CONTINUE
121 20024 IF (.NOT.(IND(J).EQ.3 .AND. PRIMAL(I+NVARS).EQ.ZERO)) GO TO 10004
130 20030 IF (.NOT.(RATIO.LT.THETA)) GO TO 10005
133 10005 CONTINUE
134 20031 CONTINUE
136 10004 CONTINUE
137 20025 CONTINUE
138 20016 GO TO 20005
139 20007 CONTINUE
142 20008 IF (.NOT.(FINITE)) GO TO 20033
147 20036 I=I+1
148 20037 IF ((N20036-I).LT.0) GO TO 20038
152 20040 GO TO 20036
153 20038 CONTINUE
154 20039 CONTINUE
155 20033 CONTINUE