/dports/math/slatec/ |
H A D | cqcbi.f | 224 FNU = MAX(0.0E0,GNU) 229 FNU = MAX(0.0E0,GNU) 273 INU = INT(FNU) 290 AB = FNU + I - 1 394 FNU = 10.2E0 402 FNU = FNU - 1.0E0 406 FNU = FNU + 5.0E0 454 FNU = 0.0E0 463 FNU = FNU + 3.0E0 465 FNU = FNU + 2.0E0 [all …]
|
H A D | zqcbi.f | 229 FNU = MAX(0.0D0,GNU) 234 FNU = MAX(0.0D0,GNU) 279 INU = INT(FNU) 303 AB = FNU + I - 1 416 FNU = 10.2D0 424 FNU = FNU - 1.0D0 428 FNU = FNU + 5.0D0 481 FNU = 0.0D0 490 FNU = FNU + 3.0D0 492 FNU = FNU + 2.0D0 [all …]
|
H A D | dbjyck.f | 53 FNU = FN(M) + 12*(NU-1) 60 CALL DBESY(X, FNU, N, W) 61 FNUP = FNU + N 82 FNU = 1.0D0 86 CALL DBESJ(X, FNU, N, Y, NY) 87 CALL DBESY(X, FNU, N, W) 96 FNU = D1MACH(4)/100.0D0 105 FNU = 70.0D0+DEL 110 CALL DBESJ(X, FNU, N, Y, NY) 112 CALL DBESY(X, FNU, N, W) [all …]
|
H A D | bjyck.f | 51 FNU = FN(M) + 12*(NU-1) 58 CALL BESY(X, FNU, N, W) 59 FNUP = FNU + N 80 FNU = 1.0E0 84 CALL BESJ(X, FNU, N, Y, NY) 85 CALL BESY(X, FNU, N, W) 95 FNU = R1MACH(4)/100.0E0 104 FNU = 70.0E0+DEL 109 CALL BESJ(X, FNU, N, Y, NY) 111 CALL BESY(X, FNU, N, W) [all …]
|
H A D | dbikck.f | 53 FNU = FN(M) + 12*(NU-1) 58 CALL DBESI(X, FNU, KODE, N, Y, NY) 62 FNUP = FNU + N 86 FNU = 1.0D0 90 CALL DBESI(X, FNU, KODE, N, Y, NY) 91 CALL DBESK(X, FNU, KODE, N, W, NW) 102 700 FNU = D1MACH(4)/100.0D0 111 FNU = 45.0D0+DEL 116 CALL DBESI(X, FNU, KODE, N, Y, NY) 118 CALL DBESK(X, FNU, KODE, N, W, NW) [all …]
|
H A D | bikck.f | 30 REAL ALP, DEL, ER, FNU, FNUP, RX, TOL, X 51 FNU = FN(M) + 12*(NU-1) 60 FNUP = FNU + N 84 FNU = 1.0E0 88 CALL BESI(X, FNU, KODE, N, Y, NY) 89 CALL BESK(X, FNU, KODE, N, W, NW) 100 700 FNU = R1MACH(4)/100.0E0 109 FNU = 45.0E0+DEL 114 CALL BESI(X, FNU, KODE, N, Y, NY) 116 CALL BESK(X, FNU, KODE, N, W, NW) [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | cbinu.f | 1 SUBROUTINE CBINU(Z, FNU, KODE, N, CY, NZ, RL, FNUL, TOL, ELIM, argument 11 REAL ALIM, AZ, DFNU, ELIM, FNU, FNUL, RL, TOL 19 DFNU = FNU + FLOAT(N-1) 26 CALL CSERI(Z, FNU, KODE, NN, CY, NW, TOL, ELIM, ALIM) 32 DFNU = FNU + FLOAT(NN-1) 41 CALL CASYI(Z, FNU, KODE, NN, CY, NW, RL, TOL, ELIM, ALIM) 50 CALL CUOIK(Z, FNU, KODE, 1, NN, CY, NW, TOL, ELIM, ALIM) 55 DFNU = FNU+FLOAT(NN-1) 64 CALL CMLRI(Z, FNU, KODE, NN, CY, NW, TOL) 74 CALL CUOIK(Z, FNU, KODE, 2, 2, CW, NW, TOL, ELIM, ALIM) [all …]
|
H A D | zbinu.f | 1 SUBROUTINE ZBINU(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 11 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU, 20 DFNU = FNU + DBLE(FLOAT(N-1)) 27 CALL ZSERI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL, ELIM, ALIM) 33 DFNU = FNU + DBLE(FLOAT(NN-1)) 42 CALL ZASYI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, RL, TOL, ELIM, 52 CALL ZUOIK(ZR, ZI, FNU, KODE, 1, NN, CYR, CYI, NW, TOL, ELIM, 58 DFNU = FNU+DBLE(FLOAT(NN-1)) 67 CALL ZMLRI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL) 77 CALL ZUOIK(ZR, ZI, FNU, KODE, 2, 2, CWR, CWI, NW, TOL, ELIM, [all …]
|
H A D | cacai.f | 1 SUBROUTINE CACAI(Z, FNU, KODE, MR, N, Y, NZ, RL, TOL, ELIM, ALIM) argument 19 REAL ALIM, ARG, ASCLE, AZ, CPN, DFNU, ELIM, FMR, FNU, PI, RL, 28 DFNU = FNU + FLOAT(N-1) 35 CALL CSERI(ZN, FNU, KODE, NN, Y, NW, TOL, ELIM, ALIM) 42 CALL CASYI(ZN, FNU, KODE, NN, Y, NW, RL, TOL, ELIM, ALIM) 49 CALL CMLRI(ZN, FNU, KODE, NN, Y, NW, TOL) 55 CALL CBKNU(ZN, FNU, KODE, 1, CY, NW, TOL, ELIM, ALIM) 70 INU = INT(FNU) 71 ARG = (FNU-FLOAT(INU))*SGN
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | cbinu.f | 1 SUBROUTINE CBINU(Z, FNU, KODE, N, CY, NZ, RL, FNUL, TOL, ELIM, argument 11 REAL ALIM, AZ, DFNU, ELIM, FNU, FNUL, RL, TOL local 19 DFNU = FNU + FLOAT(N-1) 26 CALL CSERI(Z, FNU, KODE, NN, CY, NW, TOL, ELIM, ALIM) 32 DFNU = FNU + FLOAT(NN-1) 41 CALL CASYI(Z, FNU, KODE, NN, CY, NW, RL, TOL, ELIM, ALIM) 50 CALL CUOIK(Z, FNU, KODE, 1, NN, CY, NW, TOL, ELIM, ALIM) 55 DFNU = FNU+FLOAT(NN-1) 64 CALL CMLRI(Z, FNU, KODE, NN, CY, NW, TOL) 74 CALL CUOIK(Z, FNU, KODE, 2, 2, CW, NW, TOL, ELIM, ALIM) [all …]
|
H A D | zbinu.f | 1 SUBROUTINE ZBINU(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 10 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU, local 19 DFNU = FNU + DBLE(FLOAT(N-1)) 26 CALL ZSERI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL, ELIM, ALIM) 32 DFNU = FNU + DBLE(FLOAT(NN-1)) 41 CALL ZASYI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, RL, TOL, ELIM, 51 CALL ZUOIK(ZR, ZI, FNU, KODE, 1, NN, CYR, CYI, NW, TOL, ELIM, 57 DFNU = FNU+DBLE(FLOAT(NN-1)) 66 CALL ZMLRI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL) 76 CALL ZUOIK(ZR, ZI, FNU, KODE, 2, 2, CWR, CWI, NW, TOL, ELIM, [all …]
|
H A D | cacai.f | 1 SUBROUTINE CACAI(Z, FNU, KODE, MR, N, Y, NZ, RL, TOL, ELIM, ALIM) argument 19 REAL ALIM, ARG, ASCLE, AZ, CPN, DFNU, ELIM, FMR, FNU, PI, RL, local 28 DFNU = FNU + FLOAT(N-1) 35 CALL CSERI(ZN, FNU, KODE, NN, Y, NW, TOL, ELIM, ALIM) 42 CALL CASYI(ZN, FNU, KODE, NN, Y, NW, RL, TOL, ELIM, ALIM) 49 CALL CMLRI(ZN, FNU, KODE, NN, Y, NW, TOL) 55 CALL CBKNU(ZN, FNU, KODE, 1, CY, NW, TOL, ELIM, ALIM) 70 INU = INT(FNU) 71 ARG = (FNU-FLOAT(INU))*SGN
|
/dports/math/slatec/src/ |
H A D | cbinu.f | 2 SUBROUTINE CBINU (Z, FNU, KODE, N, CY, NZ, RL, FNUL, TOL, ELIM, argument 21 REAL ALIM, AZ, DFNU, ELIM, FNU, FNUL, RL, TOL 29 DFNU = FNU + (N-1) 36 CALL CSERI(Z, FNU, KODE, NN, CY, NW, TOL, ELIM, ALIM) 42 DFNU = FNU + (NN-1) 51 CALL CASYI(Z, FNU, KODE, NN, CY, NW, RL, TOL, ELIM, ALIM) 60 CALL CUOIK(Z, FNU, KODE, 1, NN, CY, NW, TOL, ELIM, ALIM) 65 DFNU = FNU+(NN-1) 74 CALL CMLRI(Z, FNU, KODE, NN, CY, NW, TOL) 84 CALL CUOIK(Z, FNU, KODE, 2, 2, CW, NW, TOL, ELIM, ALIM) [all …]
|
H A D | zbinu.f | 2 SUBROUTINE ZBINU (ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 20 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU, 30 DFNU = FNU + (N-1) 37 CALL ZSERI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL, ELIM, ALIM) 43 DFNU = FNU + (NN-1) 52 CALL ZASYI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, RL, TOL, ELIM, 62 CALL ZUOIK(ZR, ZI, FNU, KODE, 1, NN, CYR, CYI, NW, TOL, ELIM, 68 DFNU = FNU+(NN-1) 77 CALL ZMLRI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL) 87 CALL ZUOIK(ZR, ZI, FNU, KODE, 2, 2, CWR, CWI, NW, TOL, ELIM, [all …]
|
H A D | cacai.f | 2 SUBROUTINE CACAI (Z, FNU, KODE, MR, N, Y, NZ, RL, TOL, ELIM, ALIM) argument 29 REAL ALIM, ARG, ASCLE, AZ, CPN, DFNU, ELIM, FMR, FNU, PI, RL, 39 DFNU = FNU + (N-1) 46 CALL CSERI(ZN, FNU, KODE, NN, Y, NW, TOL, ELIM, ALIM) 53 CALL CASYI(ZN, FNU, KODE, NN, Y, NW, RL, TOL, ELIM, ALIM) 60 CALL CMLRI(ZN, FNU, KODE, NN, Y, NW, TOL) 66 CALL CBKNU(ZN, FNU, KODE, 1, CY, NW, TOL, ELIM, ALIM) 81 INU = FNU 82 ARG = (FNU-INU)*SGN
|
H A D | dbesy.f | 2 SUBROUTINE DBESY (X, FNU, N, Y) argument 74 DOUBLE PRECISION AZN,CN,DNU,ELIM,FLGJY,FN,FNU,RAN,S,S1,S2,TM,TRX, 84 IF (FNU.LT.0.0D0) GO TO 140 92 NUD = INT(FNU) 93 DNU = FNU - NUD 95 FN = FNU + N - 1 114 CALL DASYJY(DYAIRY,X,FNU,FLGJY,NN,Y,WK,IFLW) 118 TM = (FNU+FNU+2.0D0)/X 170 CALL DBSYNU(X, FNU, ND, Y)
|
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zbinu.f | 1 SUBROUTINE ZBINU(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 10 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU, local 19 DFNU = FNU + DBLE(FLOAT(N-1)) 26 CALL ZSERI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL, ELIM, ALIM) 32 DFNU = FNU + DBLE(FLOAT(NN-1)) 41 CALL ZASYI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, RL, TOL, ELIM, 51 CALL ZUOIK(ZR, ZI, FNU, KODE, 1, NN, CYR, CYI, NW, TOL, ELIM, 57 DFNU = FNU+DBLE(FLOAT(NN-1)) 66 CALL ZMLRI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL) 76 CALL ZUOIK(ZR, ZI, FNU, KODE, 2, 2, CWR, CWI, NW, TOL, ELIM, [all …]
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zbinu.f | 1 SUBROUTINE ZBINU(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 10 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU, 19 DFNU = FNU + DBLE(FLOAT(N-1)) 26 CALL ZSERI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL, ELIM, ALIM) 32 DFNU = FNU + DBLE(FLOAT(NN-1)) 41 CALL ZASYI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, RL, TOL, ELIM, 51 CALL ZUOIK(ZR, ZI, FNU, KODE, 1, NN, CYR, CYI, NW, TOL, ELIM, 57 DFNU = FNU+DBLE(FLOAT(NN-1)) 66 CALL ZMLRI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL) 76 CALL ZUOIK(ZR, ZI, FNU, KODE, 2, 2, CWR, CWI, NW, TOL, ELIM, [all …]
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | zbinu.f | 2 SUBROUTINE ZBINU (ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 20 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU, local 30 DFNU = FNU + (N-1) 37 CALL ZSERI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL, ELIM, ALIM) 43 DFNU = FNU + (NN-1) 52 CALL ZASYI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, RL, TOL, ELIM, 62 CALL ZUOIK(ZR, ZI, FNU, KODE, 1, NN, CYR, CYI, NW, TOL, ELIM, 68 DFNU = FNU+(NN-1) 77 CALL ZMLRI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL) 87 CALL ZUOIK(ZR, ZI, FNU, KODE, 2, 2, CWR, CWI, NW, TOL, ELIM, [all …]
|
H A D | dbesy.f | 2 SUBROUTINE DBESY (X, FNU, N, Y) argument 74 DOUBLE PRECISION AZN,CN,DNU,ELIM,FLGJY,FN,FNU,RAN,S,S1,S2,TM,TRX, local 84 IF (FNU.LT.0.0D0) GO TO 140 92 NUD = INT(FNU) 93 DNU = FNU - NUD 95 FN = FNU + N - 1 114 CALL DASYJY(DYAIRY,X,FNU,FLGJY,NN,Y,WK,IFLW) 118 TM = (FNU+FNU+2.0D0)/X 170 CALL DBSYNU(X, FNU, ND, Y)
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | zbinu.f | 2 SUBROUTINE ZBINU (ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 20 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU, local 30 DFNU = FNU + (N-1) 37 CALL ZSERI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL, ELIM, ALIM) 43 DFNU = FNU + (NN-1) 52 CALL ZASYI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, RL, TOL, ELIM, 62 CALL ZUOIK(ZR, ZI, FNU, KODE, 1, NN, CYR, CYI, NW, TOL, ELIM, 68 DFNU = FNU+(NN-1) 77 CALL ZMLRI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL) 87 CALL ZUOIK(ZR, ZI, FNU, KODE, 2, 2, CWR, CWI, NW, TOL, ELIM, [all …]
|
H A D | dbesy.f | 2 SUBROUTINE DBESY (X, FNU, N, Y,ierr) argument 74 DOUBLE PRECISION AZN,CN,DNU,ELIM,FLGJY,FN,FNU,RAN,S,S1,S2,TM,TRX, local 85 IF (FNU.LT.0.0D0) GO TO 140 93 NUD = INT(FNU) 94 DNU = FNU - NUD 96 FN = FNU + N - 1 115 CALL DASYJY(DYAIRY,X,FNU,FLGJY,NN,Y,WK,IFLW) 119 TM = (FNU+FNU+2.0D0)/X 171 CALL DBSYNU(X, FNU, ND, Y)
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zbinu.f | 1 SUBROUTINE ZBINU(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 10 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU, 19 DFNU = FNU + DBLE(FLOAT(N-1)) 26 CALL ZSERI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL, ELIM, ALIM) 32 DFNU = FNU + DBLE(FLOAT(NN-1)) 41 CALL ZASYI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, RL, TOL, ELIM, 51 CALL ZUOIK(ZR, ZI, FNU, KODE, 1, NN, CYR, CYI, NW, TOL, ELIM, 57 DFNU = FNU+DBLE(FLOAT(NN-1)) 66 CALL ZMLRI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL) 76 CALL ZUOIK(ZR, ZI, FNU, KODE, 2, 2, CWR, CWI, NW, TOL, ELIM, [all …]
|
/dports/math/cmlib/cmlib-3.0_8/doc/amoslib/ |
H A D | besy | 2 SUBROUTINE BESY(X,FNU,N,Y) 11 C functions Y/SUB(FNU+I-1)/(X), I=1,N for real X.GT.0.0E0 and 12 C non-negative orders FNU. 35 C functions Y/sub(FNU+I-1)/(X), I=1,N for real X .GT. 0.0E0 and 36 C non-negative orders FNU. If FNU .LT. NULIM, orders FNU and 37 C FNU+1 are obtained from BESYNU which computes by a power 42 C If FNU .GE. NULIM, the uniform asymptotic expansion is coded 43 C in ASYJY for orders FNU and FNU+1 to start the recursion. 55 C FNU - order of the initial Y function, FNU .GE. 0.0E0 60 C for the sequence Y(I)=Y/sub(FNU+I-1)/(X), I=1,N.
|
/dports/math/cmlib/cmlib-3.0_8/src/amoslib/ |
H A D | dbesy.f | 1 SUBROUTINE DBESY(X,FNU,N,Y) argument 77 DOUBLE PRECISION AZN,CN,DNU,ELIM,FLGJY,FN,FNU,RAN,S,S1,S2,TM,TRX, 87 IF (FNU.LT.0.0D0) GO TO 140 95 NUD = INT(SNGL(FNU)) 96 DNU = FNU - DBLE(FLOAT(NUD)) 98 FN = FNU + DBLE(FLOAT(N-1)) 117 CALL DASYJY(DYAIRY,X,FNU,FLGJY,NN,Y,WK,IFLW) 121 TM = (FNU+FNU+2.0D0)/X 173 CALL DBSYNU(X, FNU, ND, Y)
|