Home
last modified time | relevance | path

Searched refs:INTEGR (Results 1 – 25 of 111) sorted by relevance

12345

/dports/math/slatec/
H A Dcdqawo.f22 INTEGER IER,IERV,INTEGR,IP,IPASS,IWORK,KPRINT,LAST,LENW,LUN,
43 INTEGR = 2
44 CALL DQAWO(DF0O,A,B,OMEGA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,
58 CALL DQAWO(DF0O,A,B,OMEGA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,
71 CALL DQAWO(DF0O,A,B,OMEGA,INTEGR,UFLOW,0.0D+00,RESULT,ABSERR,
85 INTEGR = 1
86 CALL DQAWO(DF1O,A,B,OMEGA,INTEGR,UFLOW,0.0D+00,RESULT,ABSERR,
101 CALL DQAWO(DF2O,A,B,OMEGA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,
111 INTEGR = 3
112 CALL DQAWO(DF0O,A,B,OMEGA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,
H A Dcqawo.f22 INTEGER IER,IERV,INTEGR,IP,IPASS,IWORK,KPRINT,LAST,LENW,LUN,
43 INTEGR = 2
44 CALL QAWO(F0O,A,B,OMEGA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,NEVAL,
58 CALL QAWO(F0O,A,B,OMEGA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,NEVAL,
71 CALL QAWO(F0O,A,B,OMEGA,INTEGR,UFLOW,0.0E+00,RESULT,ABSERR,NEVAL,
85 INTEGR = 1
86 CALL QAWO(F1O,A,B,OMEGA,INTEGR,UFLOW,0.0E+00,RESULT,ABSERR,NEVAL,
100 CALL QAWO(F2O,A,B,OMEGA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,NEVAL,
110 INTEGR = 3
111 CALL QAWO(F0O,A,B,OMEGA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,NEVAL,
H A Dcdqaws.f22 INTEGER IER,IP,IPASS,IWORK,KPRINT,LAST,LENW,LIMIT,NEVAL,INTEGR
35 INTEGR = 1
43 CALL DQAWS(DF0WS,A,B,ALFA,BETA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,
55 CALL DQAWS(DF0WS,A,B,ALFA,BETA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,
66 CALL DQAWS(DF0WS,A,B,ALFA,BETA,INTEGR,UFLOW,0.0D+00,RESULT,ABSERR,
77 CALL DQAWS(DF1WS,A,B,ALFA,BETA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,
88 INTEGR = 0
89 CALL DQAWS(DF1WS,A,B,ALFA,BETA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,
H A Dcqaws.f21 INTEGER IER,IP,IPASS,IWORK,KPRINT,LAST,LENW,LIMIT,NEVAL,INTEGR
34 INTEGR = 1
42 CALL QAWS(F0WS,A,B,ALFA,BETA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,
54 CALL QAWS(F0WS,A,B,ALFA,BETA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,
65 CALL QAWS(F0WS,A,B,ALFA,BETA,INTEGR,UFLOW,0.0E+00,RESULT,ABSERR,
76 CALL QAWS(F1WS,A,B,ALFA,BETA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,
87 INTEGR = 0
88 CALL QAWS(F1WS,A,B,ALFA,BETA,INTEGR,EPSABS,EPSREL,RESULT,ABSERR,
/dports/math/cmlib/cmlib-3.0_8/src/quadpkd/
H A Ddqc25s.f2 1 ABSERR,RESASC,INTEGR,NEV)
86 INTEGER I,INTEGR,ISYM,NEV
126 IF(BL.EQ.A.AND.(ALFA.NE.0.0D+00.OR.INTEGR.EQ.2.OR.INTEGR.EQ.4))
128 IF(BR.EQ.B.AND.(BETA.NE.0.0D+00.OR.INTEGR.EQ.3.OR.INTEGR.EQ.4))
135 CALL DQK15W(F,DQWGTS,A,B,ALFA,BETA,INTEGR,BL,BR,
165 IF(INTEGR.GT.2) GO TO 70
177 IF(INTEGR.EQ.1) GO TO 130
219 IF(INTEGR.EQ.3) GO TO 130
264 IF(INTEGR.EQ.2.OR.INTEGR.EQ.4) GO TO 200
276 IF(INTEGR.EQ.1) GO TO 260
[all …]
H A Ddqawse.f1 SUBROUTINE DQAWSE(F,A,B,ALFA,BETA,INTEGR,EPSABS,EPSREL,LIMIT, argument
168 INTEGER IER,INTEGR,IORD,IROFF1,IROFF2,K,LAST,LIMIT,MAXERR,NEV,
221 2 OR.BETA.LE.(-0.1D+01).OR.INTEGR.LT.1.OR.INTEGR.GT.4.OR.
227 CALL DQMOMO(ALFA,BETA,RI,RJ,RG,RH,INTEGR)
233 1 ERROR1,RESAS1,INTEGR,NEV)
236 1 ERROR2,RESAS2,INTEGR,NEV)
292 1 ERROR1,RESAS1,INTEGR,NEV)
295 1 ERROR2,RESAS2,INTEGR,NEV)
H A Ddqmomo.f1 SUBROUTINE DQMOMO(ALFA,BETA,RI,RJ,RG,RH,INTEGR) argument
61 INTEGER I,IM1,INTEGR
88 IF(INTEGR.EQ.1) GO TO 70
89 IF(INTEGR.EQ.3) GO TO 40
105 IF(INTEGR.EQ.2) GO TO 70
H A Ddqwgtf.f1 DOUBLE PRECISION FUNCTION DQWGTF(X,OMEGA,P2,P3,P4,INTEGR)
18 INTEGER INTEGR
21 GO TO(10,20),INTEGR
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Ddqc25s.f3 + RESULT, ABSERR, RESASC, INTEGR, NEV) argument
93 INTEGER I,INTEGR,ISYM,NEV local
134 IF(BL.EQ.A.AND.(ALFA.NE.0.0D+00.OR.INTEGR.EQ.2.OR.INTEGR.EQ.4))
136 IF(BR.EQ.B.AND.(BETA.NE.0.0D+00.OR.INTEGR.EQ.3.OR.INTEGR.EQ.4))
143 CALL DQK15W(F,DQWGTS,A,B,ALFA,BETA,INTEGR,BL,BR,
173 IF(INTEGR.GT.2) GO TO 70
185 IF(INTEGR.EQ.1) GO TO 130
227 IF(INTEGR.EQ.3) GO TO 130
272 IF(INTEGR.EQ.2.OR.INTEGR.EQ.4) GO TO 200
284 IF(INTEGR.EQ.1) GO TO 260
[all …]
H A Ddqawse.f2 SUBROUTINE DQAWSE (F, A, B, ALFA, BETA, INTEGR, EPSABS, EPSREL, argument
177 INTEGER IER,INTEGR,IORD,IROFF1,IROFF2,K,LAST,LIMIT,MAXERR,NEV, local
230 2 .OR.BETA.LE.(-0.1D+01).OR.INTEGR.LT.1.OR.INTEGR.GT.4.OR.
236 CALL DQMOMO(ALFA,BETA,RI,RJ,RG,RH,INTEGR)
242 1 ERROR1,RESAS1,INTEGR,NEV)
245 1 ERROR2,RESAS2,INTEGR,NEV)
301 1 ERROR1,RESAS1,INTEGR,NEV)
304 1 ERROR2,RESAS2,INTEGR,NEV)
H A Ddqmomo.f2 SUBROUTINE DQMOMO (ALFA, BETA, RI, RJ, RG, RH, INTEGR) argument
70 INTEGER I,IM1,INTEGR local
97 IF(INTEGR.EQ.1) GO TO 70
98 IF(INTEGR.EQ.3) GO TO 40
114 IF(INTEGR.EQ.2) GO TO 70
H A Ddqwgtf.f2 DOUBLE PRECISION FUNCTION DQWGTF (X, OMEGA, P2, P3, P4, INTEGR)
27 INTEGER INTEGR local
30 GO TO(10,20),INTEGR
H A Ddqawfe.f2 SUBROUTINE DQAWFE (F, A, OMEGA, INTEGR, EPSABS, LIMLST, LIMIT, argument
214 INTEGER IER,IERLST,INTEGR,IORD,KTMIN,L,LAST,LST,LIMIT,LIMLST,LL, local
260 IF((INTEGR.NE.1.AND.INTEGR.NE.2).OR.EPSABS.LE.0.0D+00.OR.
268 IF(INTEGR.EQ.1) CALL DQAGIE(F,A,1,EPSABS,0.0D+00,LIMIT,
307 CALL DQAWOE(F,C1,C2,OMEGA,INTEGR,EPSA,0.0D+00,LIMIT,LST,MAXP1,
/dports/math/slatec/src/
H A Ddqc25s.f3 + RESULT, ABSERR, RESASC, INTEGR, NEV)
93 INTEGER I,INTEGR,ISYM,NEV
134 IF(BL.EQ.A.AND.(ALFA.NE.0.0D+00.OR.INTEGR.EQ.2.OR.INTEGR.EQ.4))
136 IF(BR.EQ.B.AND.(BETA.NE.0.0D+00.OR.INTEGR.EQ.3.OR.INTEGR.EQ.4))
143 CALL DQK15W(F,DQWGTS,A,B,ALFA,BETA,INTEGR,BL,BR,
173 IF(INTEGR.GT.2) GO TO 70
185 IF(INTEGR.EQ.1) GO TO 130
227 IF(INTEGR.EQ.3) GO TO 130
272 IF(INTEGR.EQ.2.OR.INTEGR.EQ.4) GO TO 200
284 IF(INTEGR.EQ.1) GO TO 260
[all …]
H A Dqc25s.f3 + RESULT, ABSERR, RESASC, INTEGR, NEV)
93 INTEGER I,INTEGR,ISYM,NEV
135 IF(BL.EQ.A.AND.(ALFA.NE.0.0E+00.OR.INTEGR.EQ.2.OR.INTEGR.EQ.4))
137 IF(BR.EQ.B.AND.(BETA.NE.0.0E+00.OR.INTEGR.EQ.3.OR.INTEGR.EQ.4))
144 CALL QK15W(F,QWGTS,A,B,ALFA,BETA,INTEGR,BL,BR,
174 IF(INTEGR.GT.2) GO TO 70
186 IF(INTEGR.EQ.1) GO TO 130
228 IF(INTEGR.EQ.3) GO TO 130
273 IF(INTEGR.EQ.2.OR.INTEGR.EQ.4) GO TO 200
285 IF(INTEGR.EQ.1) GO TO 260
[all …]
H A Ddqawse.f2 SUBROUTINE DQAWSE (F, A, B, ALFA, BETA, INTEGR, EPSABS, EPSREL, argument
177 INTEGER IER,INTEGR,IORD,IROFF1,IROFF2,K,LAST,LIMIT,MAXERR,NEV,
230 2 .OR.BETA.LE.(-0.1D+01).OR.INTEGR.LT.1.OR.INTEGR.GT.4.OR.
236 CALL DQMOMO(ALFA,BETA,RI,RJ,RG,RH,INTEGR)
242 1 ERROR1,RESAS1,INTEGR,NEV)
245 1 ERROR2,RESAS2,INTEGR,NEV)
301 1 ERROR1,RESAS1,INTEGR,NEV)
304 1 ERROR2,RESAS2,INTEGR,NEV)
H A Dqawse.f2 SUBROUTINE QAWSE (F, A, B, ALFA, BETA, INTEGR, EPSABS, EPSREL, argument
178 INTEGER IER,INTEGR,IORD,IROFF1,IROFF2,K,LAST,
231 2 .OR.BETA.LE.(-0.1E+01).OR.INTEGR.LT.1.OR.INTEGR.GT.4.OR.
237 CALL QMOMO(ALFA,BETA,RI,RJ,RG,RH,INTEGR)
244 1 ERROR1,RESAS1,INTEGR,NEV)
247 1 ERROR2,RESAS2,INTEGR,NEV)
303 1 ERROR1,RESAS1,INTEGR,NEV)
306 1 ERROR2,RESAS2,INTEGR,NEV)
H A Ddqmomo.f2 SUBROUTINE DQMOMO (ALFA, BETA, RI, RJ, RG, RH, INTEGR) argument
70 INTEGER I,IM1,INTEGR
97 IF(INTEGR.EQ.1) GO TO 70
98 IF(INTEGR.EQ.3) GO TO 40
114 IF(INTEGR.EQ.2) GO TO 70
H A Dqmomo.f2 SUBROUTINE QMOMO (ALFA, BETA, RI, RJ, RG, RH, INTEGR) argument
70 INTEGER I,IM1,INTEGR
99 IF(INTEGR.EQ.1) GO TO 70
100 IF(INTEGR.EQ.3) GO TO 40
116 IF(INTEGR.EQ.2) GO TO 70
H A Dqwgtf.f2 REAL FUNCTION QWGTF (X, OMEGA, P2, P3, P4, INTEGR)
26 INTEGER INTEGR
29 GO TO(10,20),INTEGR
H A Ddqwgtf.f2 DOUBLE PRECISION FUNCTION DQWGTF (X, OMEGA, P2, P3, P4, INTEGR)
27 INTEGER INTEGR
30 GO TO(10,20),INTEGR
/dports/math/cmlib/cmlib-3.0_8/src/quadpks/
H A Dqc25s.f2 1 RESASC,INTEGR,NEV)
84 INTEGER I,INTEGR,ISYM,NEV
125 IF(BL.EQ.A.AND.(ALFA.NE.0.0E+00.OR.INTEGR.EQ.2.OR.INTEGR.EQ.4))
127 IF(BR.EQ.B.AND.(BETA.NE.0.0E+00.OR.INTEGR.EQ.3.OR.INTEGR.EQ.4))
134 CALL QK15W(F,QWGTS,A,B,ALFA,BETA,INTEGR,BL,BR,
164 IF(INTEGR.GT.2) GO TO 70
176 IF(INTEGR.EQ.1) GO TO 130
218 IF(INTEGR.EQ.3) GO TO 130
263 IF(INTEGR.EQ.2.OR.INTEGR.EQ.4) GO TO 200
275 IF(INTEGR.EQ.1) GO TO 260
[all …]
H A Dqawse.f1 SUBROUTINE QAWSE(F,A,B,ALFA,BETA,INTEGR,EPSABS,EPSREL,LIMIT, argument
167 INTEGER IER,INT,INTEGR,IORD,IROFF1,IROFF2,K,LAST,
220 2 OR.BETA.LE.(-0.1E+01).OR.INTEGR.LT.1.OR.INTEGR.GT.4.OR.
226 CALL QMOMO(ALFA,BETA,RI,RJ,RG,RH,INTEGR)
233 1 ERROR1,RESAS1,INTEGR,NEV)
236 1 ERROR2,RESAS2,INTEGR,NEV)
292 1 ERROR1,RESAS1,INTEGR,NEV)
295 1 ERROR2,RESAS2,INTEGR,NEV)
H A Dqmomo.f1 SUBROUTINE QMOMO(ALFA,BETA,RI,RJ,RG,RH,INTEGR) argument
61 INTEGER I,IM1,INTEGR
90 IF(INTEGR.EQ.1) GO TO 70
91 IF(INTEGR.EQ.3) GO TO 40
107 IF(INTEGR.EQ.2) GO TO 70
H A Dqwgtf.f1 REAL FUNCTION QWGTF(X,OMEGA,P2,P3,P4,INTEGR)
16 INTEGER INTEGR
19 GO TO(10,20),INTEGR

12345