Home
last modified time | relevance | path

Searched refs:FNU (Results 226 – 250 of 412) sorted by relevance

12345678910>>...17

/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzacon.f1 SUBROUTINE ZACON(ZR, ZI, FNU, KODE, MR, N, YR, YI, NZ, RL, FNUL, argument
21 * FN, FNU, FNUL, PI, PTI, PTR, RAZN, RL, RZI, RZR, SC1I, SC1R,
32 CALL ZBINU(ZNR, ZNI, FNU, KODE, NN, YR, YI, NW, RL, FNUL, TOL,
39 CALL ZBKNU(ZNR, ZNI, FNU, KODE, NN, CYR, CYI, NW, TOL, ELIM, ALIM)
57 INU = INT(SNGL(FNU))
58 ARG = (FNU-DBLE(FLOAT(INU)))*SGN
111 FN = FNU + 1.0D0
H A Dzwrsk.f1 SUBROUTINE ZWRSK(ZRR, ZRI, FNU, KODE, N, YR, YI, NZ, CWR, CWI, argument
13 * CTR, CWI, CWR, C1I, C1R, C2I, C2R, ELIM, FNU, PTI, PTR, RACT,
23 CALL ZBKNU(ZRR, ZRI, FNU, KODE, 2, CWR, CWI, NW, TOL, ELIM, ALIM)
25 CALL ZRATI(ZRR, ZRI, FNU, N, YR, YI, TOL)
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/
H A Dzwrsk.f1 SUBROUTINE ZWRSK(ZRR, ZRI, FNU, KODE, N, YR, YI, NZ, CWR, CWI, argument
13 * CTR, CWI, CWR, C1I, C1R, C2I, C2R, ELIM, FNU, PTI, PTR, RACT, local
23 CALL ZBKNU(ZRR, ZRI, FNU, KODE, 2, CWR, CWI, NW, TOL, ELIM, ALIM)
25 CALL ZRATI(ZRR, ZRI, FNU, N, YR, YI, TOL)
H A Dzunhj.f432 RFNU = 1.0D0/FNU
437 AC = FNU*TEST
439 ZETA1R = 2.0D0*DABS(DLOG(TEST))+FNU
441 ZETA2R = FNU
455 FN13 = FNU**EX1
489 ZETA2R = STR*FNU
490 ZETA2I = STI*FNU
580 ZETA1R = ZCR*FNU
581 ZETA1I = ZCI*FNU
582 ZETA2R = WR*FNU
[all …]
/dports/science/getdp/getdp-3.4.0-source/contrib/pewe/fortran/
H A Dsurface_waves_concave.f9034 double precision :: ZR, ZI, FNU local
50 FNU = 0.d0
59 call ZBESH(ZR, ZI, FNU, KODE, M, n, CYR, CYI, NZ, IERR)
64 call ZBESH(ZR, ZI, FNU, KODE, M, n, CYR, CYI, NZ, IERR)
/dports/math/octave/octave-6.4.0/liboctave/external/amos/
H A Dzwrsk.f1 SUBROUTINE ZWRSK(ZRR, ZRI, FNU, KODE, N, YR, YI, NZ, CWR, CWI, argument
13 * CTR, CWI, CWR, C1I, C1R, C2I, C2R, ELIM, FNU, PTI, PTR, RACT, local
23 CALL ZBKNU(ZRR, ZRI, FNU, KODE, 2, CWR, CWI, NW, TOL, ELIM, ALIM)
25 CALL ZRATI(ZRR, ZRI, FNU, N, YR, YI, TOL)
H A Dcuoik.f1 SUBROUTINE CUOIK(Z, FNU, KODE, IKFLG, N, Y, NUF, TOL, ELIM, ALIM) argument
29 REAL AARG, AIC, ALIM, APHI, ASCLE, AX, AY, ELIM, FNN, FNU, GNN, local
46 GNU = AMAX1(FNU,1.0E0)
49 GNN = FNU + FNN - 1.0E0
118 GNU = FNU + FLOAT(NN-1)
H A Dzunhj.f432 RFNU = 1.0D0/FNU
437 AC = FNU*TEST
439 ZETA1R = 2.0D0*DABS(DLOG(TEST))+FNU
441 ZETA2R = FNU
455 FN13 = FNU**EX1
489 ZETA2R = STR*FNU
490 ZETA2I = STI*FNU
580 ZETA1R = ZCR*FNU
581 ZETA1I = ZCI*FNU
582 ZETA2R = WR*FNU
[all …]
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzwrsk.f1 SUBROUTINE ZWRSK(ZRR, ZRI, FNU, KODE, N, YR, YI, NZ, CWR, CWI, argument
13 * CTR, CWI, CWR, C1I, C1R, C2I, C2R, ELIM, FNU, PTI, PTR, RACT,
23 CALL ZBKNU(ZRR, ZRI, FNU, KODE, 2, CWR, CWI, NW, TOL, ELIM, ALIM)
25 CALL ZRATI(ZRR, ZRI, FNU, N, YR, YI, TOL)
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Dzwrsk.f2 SUBROUTINE ZWRSK (ZRR, ZRI, FNU, KODE, N, YR, YI, NZ, CWR, CWI, argument
23 * CTR, CWI, CWR, C1I, C1R, C2I, C2R, ELIM, FNU, PTI, PTR, RACT, local
36 CALL ZBKNU(ZRR, ZRI, FNU, KODE, 2, CWR, CWI, NW, TOL, ELIM, ALIM)
38 CALL ZRATI(ZRR, ZRI, FNU, N, YR, YI, TOL)
H A Ddbesj.f86 1 EARG,ELIM1,ETX,FIDAL,FLGJY,FN,FNF,FNI,FNP1,FNU, local
137 FNU = DFN
145 IF (SXO2.LE.(FNU+1.0D0)) GO TO 90
146 TA = MAX(20.0D0,FNU)
150 NS = INT(SXO2-FNU) + 1
152 90 FN = FNU
165 110 ANS = MAX(36.0D0-FNU,0.0D0)
177 IF (FNU.LE.TA) GO TO 480
178 FN = FNU
H A Dzuoik.f2 SUBROUTINE ZUOIK (ZR, ZI, FNU, KODE, IKFLG, N, YR, YI, NUF, TOL, argument
43 * FNU, GNN, GNU, PHII, PHIR, RCZ, STR, STI, SUMI, SUMR, TOL, YI, local
66 GNU = MAX(FNU,1.0D0)
69 GNN = FNU + FNN - 1.0D0
154 GNU = FNU + (NN-1)
/dports/math/slatec/src/
H A Dzwrsk.f2 SUBROUTINE ZWRSK (ZRR, ZRI, FNU, KODE, N, YR, YI, NZ, CWR, CWI, argument
23 * CTR, CWI, CWR, C1I, C1R, C2I, C2R, ELIM, FNU, PTI, PTR, RACT,
36 CALL ZBKNU(ZRR, ZRI, FNU, KODE, 2, CWR, CWI, NW, TOL, ELIM, ALIM)
38 CALL ZRATI(ZRR, ZRI, FNU, N, YR, YI, TOL)
H A Dbesi.f91 1 DTM, DX, EARG, ELIM, ETX, FLGIK,FN, FNF, FNI,FNP1,FNU,GLN,RA,
135 FNU = DFN
146 IF (SXO2.LE.(FNU+1.0E0)) GO TO 90
148 FN = 0.55E0*FNU*FNU
151 ANS = MAX(36.0E0-FNU,0.0E0)
160 90 FN = FNU
174 NS = INT(SXO2-FNU)
342 FN = FNU
H A Dcuoik.f2 SUBROUTINE CUOIK (Z, FNU, KODE, IKFLG, N, Y, NUF, TOL, ELIM, ALIM) argument
39 REAL AARG, AIC, ALIM, APHI, ASCLE, AX, AY, ELIM, FNN, FNU, GNN,
57 GNU = MAX(FNU,1.0E0)
60 GNN = FNU + FNN - 1.0E0
129 GNU = FNU + (NN-1)
H A Ddbesj.f86 1 EARG,ELIM1,ETX,FIDAL,FLGJY,FN,FNF,FNI,FNP1,FNU,
137 FNU = DFN
145 IF (SXO2.LE.(FNU+1.0D0)) GO TO 90
146 TA = MAX(20.0D0,FNU)
150 NS = INT(SXO2-FNU) + 1
152 90 FN = FNU
165 110 ANS = MAX(36.0D0-FNU,0.0D0)
177 IF (FNU.LE.TA) GO TO 480
178 FN = FNU
H A Dbesj.f81 1 ELIM1,ETX,FIDAL,FLGJY,FN,FNF,FNI,FNP1,FNU,FNULIM,
132 FNU = DFN
140 IF (SXO2.LE.(FNU+1.0E0)) GO TO 90
141 TA = MAX(20.0E0,FNU)
145 NS = INT(SXO2-FNU) + 1
147 90 FN = FNU
160 110 ANS = MAX(36.0E0-FNU,0.0E0)
172 IF (FNU.LE.TA) GO TO 480
173 FN = FNU
H A Dzuoik.f2 SUBROUTINE ZUOIK (ZR, ZI, FNU, KODE, IKFLG, N, YR, YI, NUF, TOL, argument
43 * FNU, GNN, GNU, PHII, PHIR, RCZ, STR, STI, SUMI, SUMR, TOL, YI,
66 GNU = MAX(FNU,1.0D0)
69 GNN = FNU + FNN - 1.0D0
154 GNU = FNU + (NN-1)
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Dzwrsk.f2 SUBROUTINE ZWRSK (ZRR, ZRI, FNU, KODE, N, YR, YI, NZ, CWR, CWI, argument
23 * CTR, CWI, CWR, C1I, C1R, C2I, C2R, ELIM, FNU, PTI, PTR, RACT, local
36 CALL ZBKNU(ZRR, ZRI, FNU, KODE, 2, CWR, CWI, NW, TOL, ELIM, ALIM)
38 CALL ZRATI(ZRR, ZRI, FNU, N, YR, YI, TOL)
H A Ddbesj.f86 1 EARG,ELIM1,ETX,FIDAL,FLGJY,FN,FNF,FNI,FNP1,FNU, local
156 FNU = DFN
164 IF (SXO2.LE.(FNU+1.0D0)) GO TO 90
165 TA = MAX(20.0D0,FNU)
169 NS = INT(SXO2-FNU) + 1
171 90 FN = FNU
184 110 ANS = MAX(36.0D0-FNU,0.0D0)
196 IF (FNU.LE.TA) GO TO 480
197 FN = FNU
H A Dzuoik.f2 SUBROUTINE ZUOIK (ZR, ZI, FNU, KODE, IKFLG, N, YR, YI, NUF, TOL, argument
43 * FNU, GNN, GNU, PHII, PHIR, RCZ, STR, STI, SUMI, SUMR, TOL, YI, local
66 GNU = MAX(FNU,1.0D0)
69 GNN = FNU + FNN - 1.0D0
154 GNU = FNU + (NN-1)
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/
H A Dzwrsk.f1 SUBROUTINE ZWRSK(ZRR, ZRI, FNU, KODE, N, YR, YI, NZ, CWR, CWI, argument
14 * CTR, CWI, CWR, C1I, C1R, C2I, C2R, ELIM, FNU, PTI, PTR, RACT,
24 CALL ZBKNU(ZRR, ZRI, FNU, KODE, 2, CWR, CWI, NW, TOL, ELIM, ALIM)
26 CALL ZRATI(ZRR, ZRI, FNU, N, YR, YI, TOL)
H A Dcuoik.f1 SUBROUTINE CUOIK(Z, FNU, KODE, IKFLG, N, Y, NUF, TOL, ELIM, ALIM) argument
29 REAL AARG, AIC, ALIM, APHI, ASCLE, AX, AY, ELIM, FNN, FNU, GNN,
46 GNU = AMAX1(FNU,1.0E0)
49 GNN = FNU + FNN - 1.0E0
118 GNU = FNU + FLOAT(NN-1)
/dports/math/cmlib/cmlib-3.0_8/src/amoslib/
H A Ddbesj.f88 1 EARG,ELIM1,ETX,FIDAL,FLGJY,FN,FNF,FNI,FNP1,FNU,
138 FNU = DFN
146 IF (SXO2.LE.(FNU+1.0D0)) GO TO 90
147 TA = DMAX1(20.0D0,FNU)
151 NS = INT(SNGL(SXO2-FNU)) + 1
153 90 FN = FNU
166 110 ANS = DMAX1(36.0D0-FNU,0.0D0)
178 IF (FNU.LE.TA) GO TO 480
179 FN = FNU
H A Dbesj.f82 1 ELIM1,ETX,FIDAL,FLGJY,FN,FNF,FNI,FNP1,FNU,FNULIM,
129 FNU = DFN
137 IF (SXO2.LE.(FNU+1.0E0)) GO TO 90
138 TA = AMAX1(20.0E0,FNU)
142 NS = INT(SXO2-FNU) + 1
144 90 FN = FNU
157 110 ANS = AMAX1(36.0E0-FNU,0.0E0)
169 IF (FNU.LE.TA) GO TO 480
170 FN = FNU

12345678910>>...17