/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | cbinu.f | 11 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 D | zbinu.f | 11 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 D | zseri.f | 19 * 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 D | cseri.f | 17 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 D | casyi.f | 14 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 D | cbinu.f | 11 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 D | zbinu.f | 10 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 D | zseri.f | 18 * 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 D | cseri.f | 17 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 D | casyi.f | 14 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 D | cbinu.f | 21 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 D | zbinu.f | 20 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 D | zseri.f | 29 * 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 D | cseri.f | 27 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 D | casyi.f | 24 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 D | zbinu.f | 10 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 D | zseri.f | 18 * 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 D | zbinu.f | 10 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 D | zseri.f | 18 * 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 D | zbinu.f | 20 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 D | zseri.f | 29 * 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 D | zbinu.f | 20 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 D | zseri.f | 29 * 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 D | zbinu.f | 10 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 D | zseri.f | 18 * 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
|