/dports/math/slatec/src/ |
H A D | wnnls.f | 2 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 D | dwnnls.f | 2 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 D | wnlsm.f | 2 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 D | dwnlsm.f | 2 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 D | usrmat.f | 2 SUBROUTINE USRMAT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument 20 DIMENSION PRGOPT(*),DATTRV(*),IFLAG(10)
|
H A D | lpdp.f | 2 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 D | dlpdp.f | 2 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 D | dusrmt.f | 2 SUBROUTINE DUSRMT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument 20 DOUBLE PRECISION PRGOPT(*),DATTRV(*),AIJ
|
H A D | dplpup.f | 2 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 D | splpup.f | 2 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 D | dplpmn.f | 2 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 D | splpmn.f | 2 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 D | wnnls.f | 1 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 D | lpdp.f | 1 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 D | wnlsm.f | 1 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 D | splp | 141 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 D | Summary | 5 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 D | usrmat.f | 1 SUBROUTINE USRMAT(I,J,AIJ, INDCAT,PRGOPT,DATTRV,IFLAG) argument 8 DIMENSION PRGOPT(*),DATTRV(*),IFLAG(10)
|
H A D | splpup.f | 1 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 D | splpmn.f | 1 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 D | lpdp | 2 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 D | fc.f | 376 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 D | Makefile | 28 CXXFLAGS += $(ARCHOPT) -c -pedantic -Wall $(DEBUG) $(PRGOPT)
|