/dports/math/slatec/ |
H A D | cdqawo.f | 22 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 D | cqawo.f | 22 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 D | cdqaws.f | 22 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 D | cqaws.f | 21 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 D | dqc25s.f | 2 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 D | dqawse.f | 1 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 D | dqmomo.f | 1 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 D | dqwgtf.f | 1 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 D | dqc25s.f | 3 + 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 D | dqawse.f | 2 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 D | dqmomo.f | 2 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 D | dqwgtf.f | 2 DOUBLE PRECISION FUNCTION DQWGTF (X, OMEGA, P2, P3, P4, INTEGR) 27 INTEGER INTEGR local 30 GO TO(10,20),INTEGR
|
H A D | dqawfe.f | 2 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 D | dqc25s.f | 3 + 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 D | qc25s.f | 3 + 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 D | dqawse.f | 2 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 D | qawse.f | 2 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 D | dqmomo.f | 2 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 D | qmomo.f | 2 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 D | qwgtf.f | 2 REAL FUNCTION QWGTF (X, OMEGA, P2, P3, P4, INTEGR) 26 INTEGER INTEGR 29 GO TO(10,20),INTEGR
|
H A D | dqwgtf.f | 2 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 D | qc25s.f | 2 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 D | qawse.f | 1 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 D | qmomo.f | 1 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 D | qwgtf.f | 1 REAL FUNCTION QWGTF(X,OMEGA,P2,P3,P4,INTEGR) 16 INTEGER INTEGR 19 GO TO(10,20),INTEGR
|