Home
last modified time | relevance | path

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

12

/dports/math/cmlib/cmlib-3.0_8/src/splp/
H A Dspopt.f93 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 Dfulmat.f1 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 Dsplp.f1 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 Ddpopt.f108 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 Dspopt.f108 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 Ddfulmt.f2 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 Dfulmat.f2 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 Dsplp.f2 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 Ddsplp.f2 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 Ddfcmn.f159 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 Dfcmn.f158 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 Ddlsei.f2 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 Dlsei.f2 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 Ddlsi.f2 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 Dlsi.f2 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 Dsplpqx.f193 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 Ddplpqx.f188 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 Dlseiqx.f35 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 Ddlseit.f37 * 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 Dsplp.f206 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 Dwnnls2 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 Dlsei2 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 Dfcmn.f25 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 Dlsi.f1 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 Dlsei.f1 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)

12