Lines Matching refs:PRGOPT

2       SUBROUTINE SPOPT (PRGOPT, MRELAS, NVARS, INFO, CSC, IBASIS, ROPT,  argument
35       REAL             ABIG,ASMALL,COSTSC,CSC(*),EPS,ONE,PRGOPT(*),
108 20004 NEXT=PRGOPT(LAST)
128       KEY = PRGOPT(LAST+1)
133       MINPRB = PRGOPT(LAST+2).EQ.ZERO
144       KPRINT=PRGOPT(LAST+2)
152       IF (PRGOPT(LAST+2).NE.ZERO) IDG=PRGOPT(LAST+3)
168       IF(PRGOPT(LAST+2).NE.ZERO) IPAGEF = PRGOPT(LAST+3)
175       CONTIN = PRGOPT(LAST+2).NE.ZERO
183       IF(PRGOPT(LAST+2).NE.ZERO) ISAVE = PRGOPT(LAST+3)
191       SAVEDT=PRGOPT(LAST+2).NE.ZERO
199       IF (PRGOPT(LAST+2).NE.ZERO) MXITLP = PRGOPT(LAST+3)
206       USRBAS = PRGOPT(LAST+2) .NE. ZERO
213       IBASIS(I) = PRGOPT(LAST+2+I)
223       COLSCP = PRGOPT(LAST+2).NE.ZERO
230       CSC(J)=ABS(PRGOPT(LAST+2+J))
240       CSTSCP = PRGOPT(LAST+2).NE.ZERO
241       IF (CSTSCP) COSTSC = PRGOPT(LAST+3)
249       SIZEUP = PRGOPT(LAST+2).NE.ZERO
251       ASMALL = PRGOPT(LAST+3)
252       ABIG = PRGOPT(LAST+4)
261       IF (PRGOPT(LAST+2).NE.ZERO) TOLLS = MAX(EPS,PRGOPT(LAST+3))
269       STPEDG = PRGOPT(LAST+2).EQ.ZERO
277       IF (PRGOPT(LAST+2).NE.ZERO) ITBRC=MAX(ONE,PRGOPT(LAST+3))
285       IF (.NOT.(PRGOPT(LAST+2).NE.ZERO)) GO TO 20078
286       NPP=MAX(PRGOPT(LAST+3),ONE)
295       IF (.NOT.(PRGOPT(LAST+2).NE.ZERO)) GO TO 20084
296       TUNE=ABS(PRGOPT(LAST+3))
309       IF(PRGOPT(LAST+2).NE.ZERO)TOLABS=PRGOPT(LAST+3)