/dports/math/cmlib/cmlib-3.0_8/src/splp/ |
H A D | spopt.f | 93 20004 NEXT=PRGOPT(LAST) 112 20007 KEY = PRGOPT(LAST+1) 128 KPRINT=PRGOPT(LAST+2) 136 IF (PRGOPT(LAST+2).NE.ZERO) IDG=PRGOPT(LAST+3) 152 IF(PRGOPT(LAST+2).NE.ZERO) IPAGEF = PRGOPT(LAST+3) 167 IF(PRGOPT(LAST+2).NE.ZERO) ISAVE = PRGOPT(LAST+3) 183 IF (PRGOPT(LAST+2).NE.ZERO) MXITLP = PRGOPT(LAST+3) 236 ABIG = PRGOPT(LAST+4) 245 IF (PRGOPT(LAST+2).NE.ZERO) TOLLS = MAX(EPS,PRGOPT(LAST+3)) 261 IF (PRGOPT(LAST+2).NE.ZERO) ITBRC=MAX(ONE,PRGOPT(LAST+3)) [all …]
|
H A D | fulmat.f | 1 SUBROUTINE FULMAT(I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument 22 REAL AIJ,ZERO,DATTRV(*),PRGOPT(*) 31 10 NEXT = PRGOPT(LP) 40 20 KEY = PRGOPT(LP+1) 44 30 IF (.NOT.(PRGOPT(LP+2).EQ.ZERO)) GO TO 40 49 IFLAG(4) = PRGOPT(LP+3) 50 IFLAG(5) = PRGOPT(LP+4) 51 IFLAG(6) = PRGOPT(LP+5)
|
H A D | splp.f | 1 SUBROUTINE SPLP(USRMAT,MRELAS,NVARS,COSTS,PRGOPT,DATTRV, argument 1540 * PRGOPT(*),PRIMAL(*),R1,R2,WORK(*),ZERO,DUMMY 1570 20008 NEXT=PRGOPT(LAST) 1589 20011 KEY = PRGOPT(LAST+1) 1596 IF (.NOT.(PRGOPT(LAST+2).NE.ZERO)) GO TO 20016 1597 LMX=PRGOPT(LAST+3) 1598 LBM=PRGOPT(LAST+4) 1654 20026 CALL SPLPMN(USRMAT,MRELAS,NVARS,COSTS,PRGOPT,DATTRV,
|
/dports/math/slatec/src/ |
H A D | dpopt.f | 108 20004 NEXT=PRGOPT(LAST) 128 KEY = PRGOPT(LAST+1) 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) 183 IF(PRGOPT(LAST+2).NE.ZERO) ISAVE = PRGOPT(LAST+3) 199 IF (PRGOPT(LAST+2).NE.ZERO) MXITLP = PRGOPT(LAST+3) 252 ABIG = PRGOPT(LAST+4) 261 IF (PRGOPT(LAST+2).NE.ZERO) TOLLS = MAX(EPS,PRGOPT(LAST+3)) 277 IF (PRGOPT(LAST+2).NE.ZERO) ITBRC=MAX(ONE,PRGOPT(LAST+3)) [all …]
|
H A D | spopt.f | 108 20004 NEXT=PRGOPT(LAST) 128 KEY = PRGOPT(LAST+1) 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) 183 IF(PRGOPT(LAST+2).NE.ZERO) ISAVE = PRGOPT(LAST+3) 199 IF (PRGOPT(LAST+2).NE.ZERO) MXITLP = PRGOPT(LAST+3) 252 ABIG = PRGOPT(LAST+4) 261 IF (PRGOPT(LAST+2).NE.ZERO) TOLLS = MAX(EPS,PRGOPT(LAST+3)) 277 IF (PRGOPT(LAST+2).NE.ZERO) ITBRC=MAX(ONE,PRGOPT(LAST+3)) [all …]
|
H A D | dfulmt.f | 2 SUBROUTINE DFULMT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument 37 DOUBLE PRECISION AIJ,ZERO,DATTRV(*),PRGOPT(*) 46 10 NEXT = PRGOPT(LP) 55 20 KEY = PRGOPT(LP+1) 59 30 IF (.NOT.(PRGOPT(LP+2).EQ.ZERO)) GO TO 40 64 IFLAG(4) = PRGOPT(LP+3) 65 IFLAG(5) = PRGOPT(LP+4) 66 IFLAG(6) = PRGOPT(LP+5)
|
H A D | fulmat.f | 2 SUBROUTINE FULMAT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument 36 REAL AIJ,ZERO,DATTRV(*),PRGOPT(*) 45 10 NEXT = PRGOPT(LP) 54 20 KEY = PRGOPT(LP+1) 58 30 IF (.NOT.(PRGOPT(LP+2).EQ.ZERO)) GO TO 40 63 IFLAG(4) = PRGOPT(LP+3) 64 IFLAG(5) = PRGOPT(LP+4) 65 IFLAG(6) = PRGOPT(LP+5)
|
H A D | splp.f | 2 SUBROUTINE SPLP (USRMAT, MRELAS, NVARS, COSTS, PRGOPT, DATTRV, BL, argument 1541 * PRGOPT(*),PRIMAL(*),WORK(*),ZERO 1578 20008 NEXT=PRGOPT(LAST) 1597 KEY = PRGOPT(LAST+1) 1604 IF (.NOT.(PRGOPT(LAST+2).NE.ZERO)) GO TO 20016 1605 LMX=PRGOPT(LAST+3) 1606 LBM=PRGOPT(LAST+4) 1665 CALL SPLPMN(USRMAT,MRELAS,NVARS,COSTS,PRGOPT,DATTRV,
|
H A D | dsplp.f | 2 SUBROUTINE DSPLP (DUSRMT, MRELAS, NVARS, COSTS, PRGOPT, DATTRV, argument 1543 * PRGOPT(*),PRIMAL(*),WORK(*),ZERO 1580 20008 NEXT=PRGOPT(LAST) 1599 KEY = PRGOPT(LAST+1) 1606 IF (.NOT.(PRGOPT(LAST+2).NE.ZERO)) GO TO 20016 1607 LMX=PRGOPT(LAST+3) 1608 LBM=PRGOPT(LAST+4) 1668 CALL DPLPMN(DUSRMT,MRELAS,NVARS,COSTS,PRGOPT,DATTRV,
|
H A D | dfcmn.f | 159 PRGOPT(1) = 4 163 PRGOPT(2) = 1 165 PRGOPT(3) = 1 167 PRGOPT(3) = 0 173 PRGOPT(4) = 7 174 PRGOPT(5) = 4 175 PRGOPT(6) = 1.D-4 177 PRGOPT(7) = 10 178 PRGOPT(8) = 5 179 PRGOPT(9) = 1.D-4 [all …]
|
H A D | fcmn.f | 158 PRGOPT(1) = 4 162 PRGOPT(2) = 1 164 PRGOPT(3) = 1 166 PRGOPT(3) = 0 172 PRGOPT(4) = 7 173 PRGOPT(5) = 4 174 PRGOPT(6) = 1.E-4 176 PRGOPT(7) = 10 177 PRGOPT(8) = 5 178 PRGOPT(9) = 1.E-4 [all …]
|
H A D | dlsei.f | 2 SUBROUTINE DLSEI (W, MDW, ME, MA, MG, N, PRGOPT, X, RNORME, argument 387 DOUBLE PRECISION PRGOPT(*), RNORME, RNORML, W(MDW,*), WS(*), X(*) 492 LINK = PRGOPT(1) 507 KEY = PRGOPT(LAST+1) 509 COV = PRGOPT(LAST+2) .NE. 0.D0 510 ELSEIF (KEY.EQ.2 .AND. PRGOPT(LAST+2).NE.0.D0) THEN 517 CALL DCOPY (N, PRGOPT(LAST+2), 1, WS(N1), 1) 519 TAU = MAX(DRELPR,PRGOPT(LAST+2)) 522 NEXT = PRGOPT(LINK) 646 CALL DLSI(W(KRANKE+1, KRANKE+1), MDW, MA, MG, N-KRANKE, PRGOPT,
|
H A D | lsei.f | 2 SUBROUTINE LSEI (W, MDW, ME, MA, MG, N, PRGOPT, X, RNORME, RNORML, argument 386 REAL PRGOPT(*), RNORME, RNORML, W(MDW,*), WS(*), X(*) 491 LINK = PRGOPT(1) 506 KEY = PRGOPT(LAST+1) 508 COV = PRGOPT(LAST+2) .NE. 0.E0 509 ELSEIF (KEY.EQ.2 .AND. PRGOPT(LAST+2).NE.0.E0) THEN 516 CALL SCOPY (N, PRGOPT(LAST+2), 1, WS(N1), 1) 518 TAU = MAX(SRELPR,PRGOPT(LAST+2)) 521 NEXT = PRGOPT(LINK) 644 CALL LSI(W(KRANKE+1, KRANKE+1), MDW, MA, MG, N-KRANKE, PRGOPT,
|
H A D | dlsi.f | 2 SUBROUTINE DLSI (W, MDW, MA, MG, N, PRGOPT, X, RNORM, MODE, WS, argument 61 DOUBLE PRECISION PRGOPT(*), RNORM, W(MDW,*), WS(*), X(*) 95 LINK = PRGOPT(1) 98 KEY = PRGOPT(LAST+1) 99 IF (KEY.EQ.1) COV = PRGOPT(LAST+2) .NE. 0.D0 100 IF (KEY.EQ.10) SCLCOV = PRGOPT(LAST+2) .EQ. 0.D0 101 IF (KEY.EQ.5) TOL = MAX(DRELPR,PRGOPT(LAST+2)) 102 NEXT = PRGOPT(LINK) 172 CALL DLPDP(W(MAP1,1), MDW, MG, KRANK, N-KRANK, PRGOPT, X,
|
H A D | lsi.f | 2 SUBROUTINE LSI (W, MDW, MA, MG, N, PRGOPT, X, RNORM, MODE, WS, IP) argument 59 REAL PRGOPT(*), RNORM, W(MDW,*), WS(*), X(*) 93 LINK = PRGOPT(1) 96 KEY = PRGOPT(LAST+1) 97 IF (KEY.EQ.1) COV = PRGOPT(LAST+2) .NE. 0.E0 98 IF (KEY.EQ.10) SCLCOV = PRGOPT(LAST+2) .EQ. 0.E0 99 IF (KEY.EQ.5) TOL = MAX(SRELPR,PRGOPT(LAST+2)) 100 NEXT = PRGOPT(LINK) 170 CALL LPDP(W(MAP1,1), MDW, MG, KRANK, N-KRANK, PRGOPT, X,
|
/dports/math/slatec/ |
H A D | splpqx.f | 193 PRGOPT(01) = 18 194 PRGOPT(02) = 59 195 PRGOPT(03) = 0 196 PRGOPT(04) = 1 197 PRGOPT(05) = 3 198 PRGOPT(06) = 8 199 PRGOPT(07) = 10 200 PRGOPT(08) = 11 211 PRGOPT(19) =51 212 PRGOPT(20) = 0 [all …]
|
H A D | dplpqx.f | 188 PRGOPT(01) = 18 189 PRGOPT(02) = 59 190 PRGOPT(03) = 0 191 PRGOPT(04) = 1 192 PRGOPT(05) = 3 193 PRGOPT(06) = 8 194 PRGOPT(07) = 10 195 PRGOPT(08) = 11 196 PRGOPT(09) = 16 207 PRGOPT(20) = 0 [all …]
|
H A D | lseiqx.f | 35 REAL A(6,5), D(11,6), ERR(5), F(6), G(5,5), H(5), PRGOPT(4), 139 PRGOPT(1) = 1 154 CALL LSEI(D, MDD, ME, MA, MG, N, PRGOPT, X, RNORME, RNORML, MODE, 221 CALL LSEI (D, 0, ME, MA, MG, N, PRGOPT, X, RNORME, RNORML, 229 PRGOPT(1) = -1 230 CALL LSEI (D, MDD, ME, MA, MG, N, PRGOPT, X, RNORME, RNORML,
|
H A D | dlseit.f | 37 * PRGOPT(4), SOL(5), WORK(105), X(5) 140 PRGOPT(1) = 1 155 CALL DLSEI(D, MDD, ME, MA, MG, N, PRGOPT, X, RNORME, RNORML, MODE, 222 CALL DLSEI (D, 0, ME, MA, MG, N, PRGOPT, X, RNORME, RNORML, 230 PRGOPT(1) = -1 231 CALL DLSEI (D, MDD, ME, MA, MG, N, PRGOPT, X, RNORME, RNORML,
|
/dports/math/cmlib/cmlib-3.0_8/test/ |
H A D | splp.f | 206 PRGOPT(01) = 18 207 PRGOPT(02) = 59 208 PRGOPT(03) = 0 209 PRGOPT(04) = 1 210 PRGOPT(05) = 3 211 PRGOPT(06) = 8 212 PRGOPT(07) = 10 213 PRGOPT(08) = 11 214 PRGOPT(09) = 16 225 PRGOPT(20) = 0 [all …]
|
/dports/math/cmlib/cmlib-3.0_8/doc/fc/ |
H A D | wnnls | 2 SUBROUTINE WNNLS(W,MDW,ME,MA,N,L,PRGOPT,X,RNORM,MODE,IWORK,WORK) 17 C DIMENSION W(MDW,N+1),PRGOPT(*),X(N),IWORK(M+N),WORK(M+5*N) 73 C PRGOPT(1)=1 (or PRGOPT(1)=1.0) 91 C PRGOPT(*) is as follows. 94 C . PRGOPT(2)=KEY1 (key to the option change) 102 C . PRGOPT(LINK1+2)=DATA VALUE 112 C beyond the program limits of PRGOPT(*). 174 C PRGOPT(1)=N+3 (link to entry N+3 in PRGOPT(*)) 175 C PRGOPT(2)=7 (user-provided scaling key) 179 C into PRGOPT(3)-PRGOPT(N+2)) [all …]
|
H A D | lsei | 2 SUBROUTINE LSEI(W,MDW,ME,MA,MG,N,PRGOPT,X,RNORME,RNORML,MODE,WS, 18 C DIMENSION W(MDW,N+1),PRGOPT(*),X(N), 64 C the option list of the array PRGOPT(*). 101 C PRGOPT(1)=1 (or PRGOPT(1)=1.0) 119 C PRGOPT(*) is as follows. 130 C . PRGOPT(LINK1+2)=data value 233 C PRGOPT(1)=4 (link to entry 4 in PRGOPT(*)) 234 C PRGOPT(2)=1 (covariance matrix key) 237 C PRGOPT(4)=7 (link to entry 7 in PRGOPT(*)) 241 C PRGOPT(7)=N+9 (link to entry N+9 in PRGOPT(*)) [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/fc/ |
H A D | fcmn.f | 25 DIMENSION PRGOPT(10) 178 PRGOPT(1) = 4 181 PRGOPT(2) = 1 183 PRGOPT(3) = 1 185 300 PRGOPT(3) = 0 190 310 PRGOPT(4) = 7 191 PRGOPT(5) = 4 192 PRGOPT(6) = 1.E-4 194 PRGOPT(7) = 10 195 PRGOPT(8) = 5 [all …]
|
H A D | lsi.f | 1 SUBROUTINE LSI(W,MDW,MA,MG,N,PRGOPT,X,RNORM,MODE,WS,IP) argument 81 REAL W(MDW,*), PRGOPT(*), RNORM, WS(*), X(*) 179 160 CALL LPDP(W(MAP1,1), MDW, MG, KRANK, N-KRANK, PRGOPT, X, XNORM, 341 LINK = PRGOPT(1) 343 KEY = PRGOPT(LAST+1) 344 IF (KEY.EQ.1) COV = PRGOPT(LAST+2).NE.ZERO 345 IF (KEY.EQ.10) SCLCOV = PRGOPT(LAST+2).EQ.ZERO 346 IF (KEY.EQ.5) TOL = MAX(SRELPR,PRGOPT(LAST+2)) 347 NEXT = PRGOPT(LINK)
|
H A D | lsei.f | 1 SUBROUTINE LSEI(W,MDW,ME,MA,MG,N,PRGOPT,X,RNORME,RNORML,MODE,WS, argument 423 REAL W(MDW,*), PRGOPT(*), X(*), WS(*), RNORME, RNORML 583 290 CALL LSI(W(KRANKE+1,KRANKE+1), MDW, MA, MG, N-KRANKE, PRGOPT, 690 LINK = PRGOPT(1) 707 500 KEY = PRGOPT(LAST+1) 708 IF (KEY.EQ.1) COV = PRGOPT(LAST+2).NE.ZERO 709 IF (.NOT.(KEY.EQ.2 .AND. PRGOPT(LAST+2).NE.ZERO)) GO TO 520 716 520 IF (KEY.EQ.3) CALL SCOPY(N, PRGOPT(LAST+2), 1, WS(N1), 1) 717 IF (KEY.EQ.4) TAU = MAX(SRELPR,PRGOPT(LAST+2)) 718 NEXT = PRGOPT(LINK)
|