Home
last modified time | relevance | path

Searched refs:FNU (Results 1 – 25 of 412) sorted by relevance

12345678910>>...17

/dports/math/slatec/
H A Dcqcbi.f224 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 Dzqcbi.f229 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 Ddbjyck.f53 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 Dbjyck.f51 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 Ddbikck.f53 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 Dbikck.f30 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 Dcbinu.f1 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 Dzbinu.f1 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 Dcacai.f1 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 Dcbinu.f1 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 Dzbinu.f1 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 Dcacai.f1 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 Dcbinu.f2 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 Dzbinu.f2 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 Dcacai.f2 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 Ddbesy.f2 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 Dzbinu.f1 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 Dzbinu.f1 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 Dzbinu.f2 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 Ddbesy.f2 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 Dzbinu.f2 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 Ddbesy.f2 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 Dzbinu.f1 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 Dbesy2 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 Ddbesy.f1 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)

12345678910>>...17