Home
last modified time | relevance | path

Searched refs:DFNU (Results 1 – 25 of 71) sorted by relevance

123

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/
H A Dcbinu.f11 REAL ALIM, AZ, DFNU, ELIM, FNU, FNUL, RL, TOL
19 DFNU = FNU + FLOAT(N-1)
21 IF (AZ*AZ*0.25E0.GT.DFNU+1.0E0) GO TO 20
32 DFNU = FNU + FLOAT(NN-1)
35 IF (DFNU.LE.1.0E0) GO TO 30
36 IF (AZ+AZ.LT.DFNU*DFNU) GO TO 50
45 IF (DFNU.LE.1.0E0) GO TO 70
55 DFNU = FNU+FLOAT(NN-1)
56 IF (DFNU.GT.FNUL) GO TO 110
90 NUI = INT(FNUL-DFNU) + 1
H A Dzbinu.f11 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU,
20 DFNU = FNU + DBLE(FLOAT(N-1))
22 IF (AZ*AZ*0.25D0.GT.DFNU+1.0D0) GO TO 20
33 DFNU = FNU + DBLE(FLOAT(NN-1))
36 IF (DFNU.LE.1.0D0) GO TO 30
37 IF (AZ+AZ.LT.DFNU*DFNU) GO TO 50
47 IF (DFNU.LE.1.0D0) GO TO 70
58 DFNU = FNU+DBLE(FLOAT(NN-1))
59 IF (DFNU.GT.FNUL) GO TO 110
96 NUI = INT(SNGL(FNUL-DFNU)) + 1
H A Dzseri.f19 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
46 DFNU = FNU + DBLE(FLOAT(NN-1))
47 FNUP = DFNU + 1.0D0
51 AK1R = CKR*DFNU
52 AK1I = CKI*DFNU
61 IF (ACZ.GT.DFNU) GO TO 190
79 DFNU = FNU + DBLE(FLOAT(NN-I))
80 FNUP = DFNU + 1.0D0
115 COEFR = STR*DFNU
116 COEFI = STI*DFNU
H A Dcseri.f17 REAL AA, ACZ, AK, ALIM, ARM, ASCLE, ATOL, AZ, DFNU, ELIM, FNU,
39 DFNU = FNU + FLOAT(NN-1)
40 FNUP = DFNU + 1.0E0
44 AK1 = CK*CMPLX(DFNU,0.0E0)
53 IF (ACZ.GT.DFNU) GO TO 170
71 DFNU = FNU + FLOAT(NN-I)
72 FNUP = DFNU + 1.0E0
96 IF (I.NE.IL) COEF = COEF*CMPLX(DFNU,0.0E0)/HZ
H A Dcasyi.f14 REAL AA, ACZ, AEZ, AK, ALIM, ARG, ARM, ATOL, AZ, BB, BK, DFNU,
28 DFNU = FNU + FLOAT(N-IL)
38 DNU2 = DFNU + DFNU
98 FDN = FDN + 8.0E0*DFNU + 4.0E0
/dports/math/octave/octave-6.4.0/liboctave/external/amos/
H A Dcbinu.f11 REAL ALIM, AZ, DFNU, ELIM, FNU, FNUL, RL, TOL local
19 DFNU = FNU + FLOAT(N-1)
21 IF (AZ*AZ*0.25E0.GT.DFNU+1.0E0) GO TO 20
32 DFNU = FNU + FLOAT(NN-1)
35 IF (DFNU.LE.1.0E0) GO TO 30
36 IF (AZ+AZ.LT.DFNU*DFNU) GO TO 50
45 IF (DFNU.LE.1.0E0) GO TO 70
55 DFNU = FNU+FLOAT(NN-1)
56 IF (DFNU.GT.FNUL) GO TO 110
90 NUI = INT(FNUL-DFNU) + 1
H A Dzbinu.f10 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU, local
19 DFNU = FNU + DBLE(FLOAT(N-1))
21 IF (AZ*AZ*0.25D0.GT.DFNU+1.0D0) GO TO 20
32 DFNU = FNU + DBLE(FLOAT(NN-1))
35 IF (DFNU.LE.1.0D0) GO TO 30
36 IF (AZ+AZ.LT.DFNU*DFNU) GO TO 50
46 IF (DFNU.LE.1.0D0) GO TO 70
57 DFNU = FNU+DBLE(FLOAT(NN-1))
58 IF (DFNU.GT.FNUL) GO TO 110
95 NUI = INT(SNGL(FNUL-DFNU)) + 1
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local
45 DFNU = FNU + DBLE(FLOAT(NN-1))
46 FNUP = DFNU + 1.0D0
50 AK1R = CKR*DFNU
51 AK1I = CKI*DFNU
60 IF (ACZ.GT.DFNU) GO TO 190
78 DFNU = FNU + DBLE(FLOAT(NN-I))
79 FNUP = DFNU + 1.0D0
114 COEFR = STR*DFNU
115 COEFI = STI*DFNU
H A Dcseri.f17 REAL AA, ACZ, AK, ALIM, ARM, ASCLE, ATOL, AZ, DFNU, ELIM, FNU, local
39 DFNU = FNU + FLOAT(NN-1)
40 FNUP = DFNU + 1.0E0
44 AK1 = CK*CMPLX(DFNU,0.0E0)
53 IF (ACZ.GT.DFNU) GO TO 170
71 DFNU = FNU + FLOAT(NN-I)
72 FNUP = DFNU + 1.0E0
96 IF (I.NE.IL) COEF = COEF*CMPLX(DFNU,0.0E0)/HZ
H A Dcasyi.f14 REAL AA, ACZ, AEZ, AK, ALIM, ARG, ARM, ATOL, AZ, BB, BK, DFNU, local
28 DFNU = FNU + FLOAT(N-IL)
38 DNU2 = DFNU + DFNU
98 FDN = FDN + 8.0E0*DFNU + 4.0E0
/dports/math/slatec/src/
H A Dcbinu.f21 REAL ALIM, AZ, DFNU, ELIM, FNU, FNUL, RL, TOL
29 DFNU = FNU + (N-1)
31 IF (AZ*AZ*0.25E0.GT.DFNU+1.0E0) GO TO 20
42 DFNU = FNU + (NN-1)
45 IF (DFNU.LE.1.0E0) GO TO 30
46 IF (AZ+AZ.LT.DFNU*DFNU) GO TO 50
55 IF (DFNU.LE.1.0E0) GO TO 70
65 DFNU = FNU+(NN-1)
66 IF (DFNU.GT.FNUL) GO TO 110
100 NUI = FNUL-DFNU + 1
H A Dzbinu.f20 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU,
30 DFNU = FNU + (N-1)
32 IF (AZ*AZ*0.25D0.GT.DFNU+1.0D0) GO TO 20
43 DFNU = FNU + (NN-1)
46 IF (DFNU.LE.1.0D0) GO TO 30
47 IF (AZ+AZ.LT.DFNU*DFNU) GO TO 50
57 IF (DFNU.LE.1.0D0) GO TO 70
68 DFNU = FNU+(NN-1)
69 IF (DFNU.GT.FNUL) GO TO 110
106 NUI = FNUL-DFNU + 1
H A Dzseri.f29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
57 DFNU = FNU + (NN-1)
58 FNUP = DFNU + 1.0D0
62 AK1R = CKR*DFNU
63 AK1I = CKI*DFNU
72 IF (ACZ.GT.DFNU) GO TO 190
90 DFNU = FNU + (NN-I)
91 FNUP = DFNU + 1.0D0
126 COEFR = STR*DFNU
127 COEFI = STI*DFNU
H A Dcseri.f27 REAL AA, ACZ, AK, ALIM, ARM, ASCLE, ATOL, AZ, DFNU, ELIM, FNU,
49 DFNU = FNU + (NN-1)
50 FNUP = DFNU + 1.0E0
54 AK1 = CK*CMPLX(DFNU,0.0E0)
63 IF (ACZ.GT.DFNU) GO TO 170
81 DFNU = FNU + (NN-I)
82 FNUP = DFNU + 1.0E0
106 IF (I.NE.IL) COEF = COEF*CMPLX(DFNU,0.0E0)/HZ
H A Dcasyi.f24 REAL AA, ACZ, AEZ, AK, ALIM, ARG, ARM, ATOL, AZ, BB, BK, DFNU,
38 DFNU = FNU + (N-IL)
48 DNU2 = DFNU + DFNU
108 FDN = FDN + 8.0E0*DFNU + 4.0E0
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/
H A Dzbinu.f10 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU, local
19 DFNU = FNU + DBLE(FLOAT(N-1))
21 IF (AZ*AZ*0.25D0.GT.DFNU+1.0D0) GO TO 20
32 DFNU = FNU + DBLE(FLOAT(NN-1))
35 IF (DFNU.LE.1.0D0) GO TO 30
36 IF (AZ+AZ.LT.DFNU*DFNU) GO TO 50
46 IF (DFNU.LE.1.0D0) GO TO 70
57 DFNU = FNU+DBLE(FLOAT(NN-1))
58 IF (DFNU.GT.FNUL) GO TO 110
95 NUI = INT(SNGL(FNUL-DFNU)) + 1
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local
45 DFNU = FNU + DBLE(FLOAT(NN-1))
46 FNUP = DFNU + 1.0D0
50 AK1R = CKR*DFNU
51 AK1I = CKI*DFNU
60 IF (ACZ.GT.DFNU) GO TO 190
78 DFNU = FNU + DBLE(FLOAT(NN-I))
79 FNUP = DFNU + 1.0D0
114 COEFR = STR*DFNU
115 COEFI = STI*DFNU
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzbinu.f10 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU,
19 DFNU = FNU + DBLE(FLOAT(N-1))
21 IF (AZ*AZ*0.25D0.GT.DFNU+1.0D0) GO TO 20
32 DFNU = FNU + DBLE(FLOAT(NN-1))
35 IF (DFNU.LE.1.0D0) GO TO 30
36 IF (AZ+AZ.LT.DFNU*DFNU) GO TO 50
46 IF (DFNU.LE.1.0D0) GO TO 70
57 DFNU = FNU+DBLE(FLOAT(NN-1))
58 IF (DFNU.GT.FNUL) GO TO 110
95 NUI = INT(SNGL(FNUL-DFNU)) + 1
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
48 DFNU = FNU + DBLE(FLOAT(NN-1))
49 FNUP = DFNU + 1.0D0
53 AK1R = CKR*DFNU
54 AK1I = CKI*DFNU
63 IF (ACZ.GT.DFNU) GO TO 190
81 DFNU = FNU + DBLE(FLOAT(NN-I))
82 FNUP = DFNU + 1.0D0
117 COEFR = STR*DFNU
118 COEFI = STI*DFNU
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Dzbinu.f20 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU, local
30 DFNU = FNU + (N-1)
32 IF (AZ*AZ*0.25D0.GT.DFNU+1.0D0) GO TO 20
43 DFNU = FNU + (NN-1)
46 IF (DFNU.LE.1.0D0) GO TO 30
47 IF (AZ+AZ.LT.DFNU*DFNU) GO TO 50
57 IF (DFNU.LE.1.0D0) GO TO 70
68 DFNU = FNU+(NN-1)
69 IF (DFNU.GT.FNUL) GO TO 110
106 NUI = FNUL-DFNU + 1
H A Dzseri.f29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local
57 DFNU = FNU + (NN-1)
58 FNUP = DFNU + 1.0D0
62 AK1R = CKR*DFNU
63 AK1I = CKI*DFNU
72 IF (ACZ.GT.DFNU) GO TO 190
90 DFNU = FNU + (NN-I)
91 FNUP = DFNU + 1.0D0
126 COEFR = STR*DFNU
127 COEFI = STI*DFNU
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Dzbinu.f20 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU, local
30 DFNU = FNU + (N-1)
32 IF (AZ*AZ*0.25D0.GT.DFNU+1.0D0) GO TO 20
43 DFNU = FNU + (NN-1)
46 IF (DFNU.LE.1.0D0) GO TO 30
47 IF (AZ+AZ.LT.DFNU*DFNU) GO TO 50
57 IF (DFNU.LE.1.0D0) GO TO 70
68 DFNU = FNU+(NN-1)
69 IF (DFNU.GT.FNUL) GO TO 110
106 NUI = FNUL-DFNU + 1
H A Dzseri.f29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
57 DFNU = FNU + (NN-1)
58 FNUP = DFNU + 1.0D0
62 AK1R = CKR*DFNU
63 AK1I = CKI*DFNU
72 IF (ACZ.GT.DFNU) GO TO 190
90 DFNU = FNU + (NN-I)
91 FNUP = DFNU + 1.0D0
126 COEFR = STR*DFNU
127 COEFI = STI*DFNU
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzbinu.f10 DOUBLE PRECISION ALIM, AZ, CWI, CWR, CYI, CYR, DFNU, ELIM, FNU,
19 DFNU = FNU + DBLE(FLOAT(N-1))
21 IF (AZ*AZ*0.25D0.GT.DFNU+1.0D0) GO TO 20
32 DFNU = FNU + DBLE(FLOAT(NN-1))
35 IF (DFNU.LE.1.0D0) GO TO 30
36 IF (AZ+AZ.LT.DFNU*DFNU) GO TO 50
46 IF (DFNU.LE.1.0D0) GO TO 70
57 DFNU = FNU+DBLE(FLOAT(NN-1))
58 IF (DFNU.GT.FNUL) GO TO 110
95 NUI = INT(SNGL(FNUL-DFNU)) + 1
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
48 DFNU = FNU + DBLE(FLOAT(NN-1))
49 FNUP = DFNU + 1.0D0
53 AK1R = CKR*DFNU
54 AK1I = CKI*DFNU
63 IF (ACZ.GT.DFNU) GO TO 190
81 DFNU = FNU + DBLE(FLOAT(NN-I))
82 FNUP = DFNU + 1.0D0
117 COEFR = STR*DFNU
118 COEFI = STI*DFNU

123