/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zacon.f | 1 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 D | zwrsk.f | 1 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 D | zwrsk.f | 1 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 D | zunhj.f | 432 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 D | surface_waves_concave.f90 | 34 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 D | zwrsk.f | 1 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 D | cuoik.f | 1 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 D | zunhj.f | 432 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 D | zwrsk.f | 1 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 D | zwrsk.f | 2 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 D | dbesj.f | 86 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 D | zuoik.f | 2 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 D | zwrsk.f | 2 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 D | besi.f | 91 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 D | cuoik.f | 2 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 D | dbesj.f | 86 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 D | besj.f | 81 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 D | zuoik.f | 2 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 D | zwrsk.f | 2 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 D | dbesj.f | 86 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 D | zuoik.f | 2 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 D | zwrsk.f | 1 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 D | cuoik.f | 1 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 D | dbesj.f | 88 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 D | besj.f | 82 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
|