Home
last modified time | relevance | path

Searched refs:PRGOPT (Results 26 – 48 of 48) sorted by relevance

12

/dports/math/slatec/src/
H A Dwnnls.f2 SUBROUTINE WNNLS (W, MDW, ME, MA, N, L, PRGOPT, X, RNORM, MODE, argument
267 REAL PRGOPT(*), RNORM, W(MDW,*), WORK(*), X(*)
321 CALL WNLSM(W, MDW, ME, MA, N, L, PRGOPT, X, RNORM, MODE, IWORK,
H A Ddwnnls.f2 SUBROUTINE DWNNLS (W, MDW, ME, MA, N, L, PRGOPT, X, RNORM, MODE, argument
271 DOUBLE PRECISION PRGOPT(*), RNORM, W(MDW,*), WORK(*), X(*)
323 CALL DWNLSM(W, MDW, ME, MA, N, L, PRGOPT, X, RNORM, MODE, IWORK,
H A Dwnlsm.f2 SUBROUTINE WNLSM (W, MDW, MME, MA, N, L, PRGOPT, X, RNORM, MODE, argument
69 REAL D(*), H(*), PRGOPT(*), RNORM, SCALE(*), TEMP(*),
126 LINK = PRGOPT(1)
141 KEY = PRGOPT(LAST+1)
142 IF (KEY.EQ.6 .AND. PRGOPT(LAST+2).NE.0.E0) THEN
150 IF (KEY.EQ.7) CALL SCOPY (N, PRGOPT(LAST+2), 1, D, 1)
151 IF (KEY.EQ.8) TAU = MAX(SRELPR,PRGOPT(LAST+2))
152 IF (KEY.EQ.9) BLOWUP = MAX(SRELPR,PRGOPT(LAST+2))
154 NEXT = PRGOPT(LINK)
H A Ddwnlsm.f2 SUBROUTINE DWNLSM (W, MDW, MME, MA, N, L, PRGOPT, X, RNORM, MODE, argument
73 DOUBLE PRECISION D(*), H(*), PRGOPT(*), RNORM, SCALE(*), TEMP(*),
130 LINK = PRGOPT(1)
146 KEY = PRGOPT(LAST+1)
147 IF (KEY.EQ.6 .AND. PRGOPT(LAST+2).NE.0.D0) THEN
155 IF (KEY.EQ.7) CALL DCOPY (N, PRGOPT(LAST+2), 1, D, 1)
156 IF (KEY.EQ.8) TAU = MAX(DRELPR,PRGOPT(LAST+2))
157 IF (KEY.EQ.9) BLOWUP = MAX(DRELPR,PRGOPT(LAST+2))
159 NEXT = PRGOPT(LINK)
H A Dusrmat.f2 SUBROUTINE USRMAT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument
20 DIMENSION PRGOPT(*),DATTRV(*),IFLAG(10)
H A Dlpdp.f2 SUBROUTINE LPDP (A, MDA, M, N1, N2, PRGOPT, X, WNORM, MODE, WS, argument
61 REAL A(MDA,*), PRGOPT(*), WS(*), WNORM, X(*)
135 CALL WNNLS(WS, NP1, N2, NP1-N2, M, 0, PRGOPT, WS(IX), RNORM,
179 CALL WNNLS(WS, N2+1, 0, N2+1, M, 0, PRGOPT, WS(IX), RNORM, MODEW,
H A Ddlpdp.f2 SUBROUTINE DLPDP (A, MDA, M, N1, N2, PRGOPT, X, WNORM, MODE, WS, argument
55 * PRGOPT(*), RNORM, SC, WNORM, WS(*), X(*), YNORM, ZERO
132 CALL DWNNLS(WS,NP1,N2,NP1-N2,M,0,PRGOPT,WS(IX),RNORM,
182 CALL DWNNLS(WS,N2+1,0,N2+1,M,0,PRGOPT,WS(IX),RNORM,MODEW,
H A Ddusrmt.f2 SUBROUTINE DUSRMT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument
20 DOUBLE PRECISION PRGOPT(*),DATTRV(*),AIJ
H A Ddplpup.f2 SUBROUTINE DPLPUP (DUSRMT, MRELAS, NVARS, PRGOPT, DATTRV, BL, BU, argument
40 * BU(*),DATTRV(*),PRGOPT(*),XVAL,ZERO
132 CALL DUSRMT(I,J,AIJ,INDCAT,PRGOPT,DATTRV,IFLAG)
H A Dsplpup.f2 SUBROUTINE SPLPUP (USRMAT, MRELAS, NVARS, PRGOPT, DATTRV, BL, BU, argument
40 * BU(*),DATTRV(*),PRGOPT(*),XVAL,ZERO
132 CALL USRMAT(I,J,AIJ,INDCAT,PRGOPT,DATTRV,IFLAG)
H A Ddplpmn.f2 SUBROUTINE DPLPMN (DUSRMT, MRELAS, NVARS, COSTS, PRGOPT, DATTRV, argument
37 * ONE,PRGOPT(*),PRIMAL(*),RESNRM,RG(*),RHS(*),RHSNRM,ROPT(07),
171 CALL DPOPT(PRGOPT,MRELAS,NVARS,INFO,CSC,IBASIS,ROPT,INTOPT,LOPT)
182 20004 CALL DPLPUP(DUSRMT,MRELAS,NVARS,PRGOPT,DATTRV,
H A Dsplpmn.f2 SUBROUTINE SPLPMN (USRMAT, MRELAS, NVARS, COSTS, PRGOPT, DATTRV, argument
39 * ONE,PRGOPT(*),PRIMAL(*),RESNRM,RG(*),RHS(*),RHSNRM,ROPT(07),
172 CALL SPOPT(PRGOPT,MRELAS,NVARS,INFO,CSC,IBASIS,ROPT,INTOPT,LOPT)
183 20004 CALL SPLPUP(USRMAT,MRELAS,NVARS,PRGOPT,DATTRV,
/dports/math/cmlib/cmlib-3.0_8/src/fc/
H A Dwnnls.f1 SUBROUTINE WNNLS(W,MDW,ME,MA,N,L,PRGOPT,X,RNORM,MODE,IWORK,WORK) argument
300 REAL DUMMY, W(MDW,*), PRGOPT(*), X(*), WORK(*), RNORM
352 CALL WNLSM(W, MDW, ME, MA, N, L, PRGOPT, X, RNORM, MODE, IWORK,
H A Dlpdp.f1 SUBROUTINE LPDP(A,MDA,M,N1,N2,PRGOPT,X,WNORM,MODE,WS,IS) argument
59 REAL A(MDA,*), PRGOPT(*), WS(*), WNORM, X(*)
132 CALL WNNLS(WS, NP1, N2, NP1-N2, M, 0, PRGOPT, WS(IX), RNORM,
176 CALL WNNLS(WS, N2+1, 0, N2+1, M, 0, PRGOPT, WS(IX), RNORM, MODEW,
H A Dwnlsm.f1 SUBROUTINE WNLSM(W,MDW,MME,MA,N,L,PRGOPT,X,RNORM,MODE,IPIVOT, argument
75 REAL Z(*), TEMP(*), PRGOPT(*), D(*), SPARAM(5)
160 LINK = PRGOPT(1)
177 120 KEY = PRGOPT(LAST+1)
178 IF (.NOT.(KEY.EQ.6 .AND. PRGOPT(LAST+2).NE.ZERO)) GO TO 140
184 140 IF (KEY.EQ.7) CALL SCOPY(N, PRGOPT(LAST+2), 1, D, 1)
185 IF (KEY.EQ.8) TAU = MAX(SRELPR,PRGOPT(LAST+2))
186 IF (KEY.EQ.9) BLOWUP = MAX(SRELPR,PRGOPT(LAST+2))
187 NEXT = PRGOPT(LINK)
/dports/math/cmlib/cmlib-3.0_8/doc/splp/
H A Dsplp141 C PRGOPT(*)
588 C PRGOPT(*)
906 C PRGOPT(01)=1
996 C set PRGOPT(1)=1 (or PRGOPT(1)=1.E0).
1278 C PRGOPT(01)=4
1280 C PRGOPT(03)=1
1283 C PRGOPT(04)=8
1285 C PRGOPT(06)=1
1292 C PRGOPT(10)=1
1295 C PRGOPT(11)=1
[all …]
H A DSummary5 C SUBROUTINE SPLP(USRMAT,MRELAS,NVARS,COSTS,PRGOPT,DATTRV,
44 C DIMENSION COSTS(NVARS),PRGOPT(*),DATTRV(*),
51 C THE DIMENSIONS OF PRGOPT(*) AND DATTRV(*) MUST BE AT LEAST 1.
134 C PRGOPT(*)
139 C PARAMETERS. TO TRY THIS, SIMPLY SET PRGOPT(1)=1.E0.
295 DIMENSION COSTS(03),PRGOPT(04),DATTRV(18),BL(06),BU(06),IND(06),
347 PRGOPT(01)=4
348 PRGOPT(02)=51
349 PRGOPT(03)=1
350 PRGOPT(04)=1
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/splp/
H A Dusrmat.f1 SUBROUTINE USRMAT(I,J,AIJ, INDCAT,PRGOPT,DATTRV,IFLAG) argument
8 DIMENSION PRGOPT(*),DATTRV(*),IFLAG(10)
H A Dsplpup.f1 SUBROUTINE SPLPUP(USRMAT,MRELAS,NVARS,PRGOPT,DATTRV, argument
19 * BU(*),DATTRV(*),PRGOPT(*),R1,R2,XVAL,ZERO
116 CALL USRMAT(I,J,AIJ,INDCAT,PRGOPT,DATTRV,IFLAG)
H A Dsplpmn.f1 SUBROUTINE SPLPMN(USRMAT,MRELAS,NVARS,COSTS,PRGOPT,DATTRV, argument
30 * ONE,PRGOPT(*),PRIMAL(*),RESNRM,RG(*),RHS(*),RHSNRM,ROPT(07),
163 CALL SPOPT(PRGOPT,MRELAS,NVARS,INFO,CSC,IBASIS,ROPT,INTOPT,LOPT)
175 20004 CALL SPLPUP(USRMAT,MRELAS,NVARS,PRGOPT,DATTRV,
/dports/math/cmlib/cmlib-3.0_8/doc/fc/
H A Dlpdp2 SUBROUTINE LPDP(A,MDA,M,N1,N2,PRGOPT,X,WNORM,MODE,WS,IS)
6 C DIMENSION A(MDA,N+1),PRGOPT(*),X(N),WS((M+2)*(N+7)),IS(M+N+1),
/dports/math/cmlib/cmlib-3.0_8/test/
H A Dfc.f376 DIMENSION PRGOPT(4)
457 PRGOPT(1) = 1
476 CALL LSEI(D, MDD, ME, MA, MG, N, PRGOPT, X, RNORME, RNORML, MODE,
528 CALL LSEI(D, 0, ME, MA, MG, N, PRGOPT, X, RNORME, RNORML, MODE,
535 PRGOPT(1) = -1
536 CALL LSEI(D, MDD, ME, MA, MG, N, PRGOPT, X, RNORME, RNORML, MODE,
/dports/science/qcl/qcl-0.6.4/qc/
H A DMakefile28 CXXFLAGS += $(ARCHOPT) -c -pedantic -Wall $(DEBUG) $(PRGOPT)

12