/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | cuoik.f | 1 SUBROUTINE CUOIK(Z, FNU, KODE, IKFLG, N, Y, NUF, TOL, ELIM, ALIM) argument 31 INTEGER I, IFORM, IKFLG, INIT, KODE, N, NN, NUF, NW local 47 IF (IKFLG.EQ.1) GO TO 10 59 CALL CUNIK(ZR, GNU, IKFLG, 1, TOL, INIT, PHI, ZETA1, ZETA2, SUM, 73 IF (IKFLG.EQ.2) CZ = -CZ 112 IF (IKFLG.EQ.2) RETURN 121 CALL CUNIK(ZR, GNU, IKFLG, 1, TOL, INIT, PHI, ZETA1, ZETA2, SUM,
|
H A D | zuoik.f | 1 SUBROUTINE ZUOIK(ZR, ZI, FNU, KODE, IKFLG, N, YR, YI, NUF, TOL, argument 35 INTEGER I, IDUM, IFORM, IKFLG, INIT, KODE, N, NN, NUF, NW local 54 IF (IKFLG.EQ.1) GO TO 20 66 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII, 87 IF (IKFLG.EQ.1) GO TO 70 135 IF (IKFLG.EQ.2) RETURN 144 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII,
|
H A D | zunik.f | 1 SUBROUTINE ZUNIK(ZRR, ZRI, FNU, IKFLG, IPMTR, TOL, INIT, PHIR, argument 29 INTEGER I, IDUM, IKFLG, INIT, IPMTR, J, K, L local 147 PHIR = CWRKR(16)*CON(IKFLG) 148 PHII = CWRKI(16)*CON(IKFLG) 179 IF (IKFLG.EQ.2) GO TO 60
|
H A D | cunik.f | 1 SUBROUTINE CUNIK(ZR, FNU, IKFLG, IPMTR, TOL, INIT, PHI, ZETA1, argument 26 INTEGER I, IKFLG, INIT, IPMTR, J, K, L local 139 PHI = CWRK(16)*CON(IKFLG) 164 IF (IKFLG.EQ.2) GO TO 60
|
/dports/math/slatec/src/ |
H A D | cuoik.f | 2 SUBROUTINE CUOIK (Z, FNU, KODE, IKFLG, N, Y, NUF, TOL, ELIM, ALIM) argument 41 INTEGER I, IFORM, IKFLG, INIT, KODE, N, NN, NUF, NW 58 IF (IKFLG.EQ.1) GO TO 10 70 CALL CUNIK(ZR, GNU, IKFLG, 1, TOL, INIT, PHI, ZETA1, ZETA2, SUM, 84 IF (IKFLG.EQ.2) CZ = -CZ 123 IF (IKFLG.EQ.2) RETURN 132 CALL CUNIK(ZR, GNU, IKFLG, 1, TOL, INIT, PHI, ZETA1, ZETA2, SUM,
|
H A D | zuoik.f | 2 SUBROUTINE ZUOIK (ZR, ZI, FNU, KODE, IKFLG, N, YR, YI, NUF, TOL, argument 46 INTEGER I, IDUM, IFORM, IKFLG, INIT, KODE, N, NN, NUF, NW 67 IF (IKFLG.EQ.1) GO TO 20 79 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII, 100 IF (IKFLG.EQ.1) GO TO 70 148 IF (IKFLG.EQ.2) RETURN 157 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII,
|
H A D | zunik.f | 2 SUBROUTINE ZUNIK (ZRR, ZRI, FNU, IKFLG, IPMTR, TOL, INIT, PHIR, argument 40 INTEGER I, IDUM, IKFLG, INIT, IPMTR, J, K, L 159 PHIR = CWRKR(16)*CON(IKFLG) 160 PHII = CWRKI(16)*CON(IKFLG) 191 IF (IKFLG.EQ.2) GO TO 60
|
H A D | cunik.f | 2 SUBROUTINE CUNIK (ZR, FNU, IKFLG, IPMTR, TOL, INIT, PHI, ZETA1, argument 36 INTEGER I, IKFLG, INIT, IPMTR, J, K, L 149 PHI = CWRK(16)*CON(IKFLG) 174 IF (IKFLG.EQ.2) GO TO 60
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | cuoik.f | 1 SUBROUTINE CUOIK(Z, FNU, KODE, IKFLG, N, Y, NUF, TOL, ELIM, ALIM) argument 31 INTEGER I, IFORM, IKFLG, INIT, KODE, N, NN, NUF, NW 47 IF (IKFLG.EQ.1) GO TO 10 59 CALL CUNIK(ZR, GNU, IKFLG, 1, TOL, INIT, PHI, ZETA1, ZETA2, SUM, 73 IF (IKFLG.EQ.2) CZ = -CZ 112 IF (IKFLG.EQ.2) RETURN 121 CALL CUNIK(ZR, GNU, IKFLG, 1, TOL, INIT, PHI, ZETA1, ZETA2, SUM,
|
H A D | zuoik.f | 1 SUBROUTINE ZUOIK(ZR, ZI, FNU, KODE, IKFLG, N, YR, YI, NUF, TOL, argument 36 INTEGER I, IDUM, IFORM, IKFLG, INIT, KODE, N, NN, NUF, NW 55 IF (IKFLG.EQ.1) GO TO 20 67 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII, 88 IF (IKFLG.EQ.1) GO TO 70 136 IF (IKFLG.EQ.2) RETURN 145 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII,
|
H A D | zunik.f | 1 SUBROUTINE ZUNIK(ZRR, ZRI, FNU, IKFLG, IPMTR, TOL, INIT, PHIR, argument 29 INTEGER I, IDUM, IKFLG, INIT, IPMTR, J, K, L 147 PHIR = CWRKR(16)*CON(IKFLG) 148 PHII = CWRKI(16)*CON(IKFLG) 179 IF (IKFLG.EQ.2) GO TO 60
|
H A D | cunik.f | 1 SUBROUTINE CUNIK(ZR, FNU, IKFLG, IPMTR, TOL, INIT, PHI, ZETA1, argument 26 INTEGER I, IKFLG, INIT, IPMTR, J, K, L 139 PHI = CWRK(16)*CON(IKFLG) 164 IF (IKFLG.EQ.2) GO TO 60
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | zuoik.f | 2 SUBROUTINE ZUOIK (ZR, ZI, FNU, KODE, IKFLG, N, YR, YI, NUF, TOL, argument 46 INTEGER I, IDUM, IFORM, IKFLG, INIT, KODE, N, NN, NUF, NW local 67 IF (IKFLG.EQ.1) GO TO 20 79 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII, 100 IF (IKFLG.EQ.1) GO TO 70 148 IF (IKFLG.EQ.2) RETURN 157 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII,
|
H A D | zunik.f | 2 SUBROUTINE ZUNIK (ZRR, ZRI, FNU, IKFLG, IPMTR, TOL, INIT, PHIR, argument 40 INTEGER I, IDUM, IKFLG, INIT, IPMTR, J, K, L local 159 PHIR = CWRKR(16)*CON(IKFLG) 160 PHII = CWRKI(16)*CON(IKFLG) 191 IF (IKFLG.EQ.2) GO TO 60
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | zuoik.f | 2 SUBROUTINE ZUOIK (ZR, ZI, FNU, KODE, IKFLG, N, YR, YI, NUF, TOL, argument 46 INTEGER I, IDUM, IFORM, IKFLG, INIT, KODE, N, NN, NUF, NW local 67 IF (IKFLG.EQ.1) GO TO 20 79 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII, 100 IF (IKFLG.EQ.1) GO TO 70 148 IF (IKFLG.EQ.2) RETURN 157 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII,
|
H A D | zunik.f | 2 SUBROUTINE ZUNIK (ZRR, ZRI, FNU, IKFLG, IPMTR, TOL, INIT, PHIR, argument 40 INTEGER I, IDUM, IKFLG, INIT, IPMTR, J, K, L local 159 PHIR = CWRKR(16)*CON(IKFLG) 160 PHII = CWRKI(16)*CON(IKFLG) 191 IF (IKFLG.EQ.2) GO TO 60
|
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zuoik.f | 1 SUBROUTINE ZUOIK(ZR, ZI, FNU, KODE, IKFLG, N, YR, YI, NUF, TOL, argument 35 INTEGER I, IDUM, IFORM, IKFLG, INIT, KODE, N, NN, NUF, NW local 54 IF (IKFLG.EQ.1) GO TO 20 66 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII, 87 IF (IKFLG.EQ.1) GO TO 70 135 IF (IKFLG.EQ.2) RETURN 144 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII,
|
H A D | zunik.f | 1 SUBROUTINE ZUNIK(ZRR, ZRI, FNU, IKFLG, IPMTR, TOL, INIT, PHIR, argument 29 INTEGER I, IDUM, IKFLG, INIT, IPMTR, J, K, L local 147 PHIR = CWRKR(16)*CON(IKFLG) 148 PHII = CWRKI(16)*CON(IKFLG) 179 IF (IKFLG.EQ.2) GO TO 60
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zuoik.f | 1 SUBROUTINE ZUOIK(ZR, ZI, FNU, KODE, IKFLG, N, YR, YI, NUF, TOL, argument 35 INTEGER I, IDUM, IFORM, IKFLG, INIT, KODE, N, NN, NUF, NW 54 IF (IKFLG.EQ.1) GO TO 20 66 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII, 87 IF (IKFLG.EQ.1) GO TO 70 135 IF (IKFLG.EQ.2) RETURN 144 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII,
|
H A D | zunik.f | 1 SUBROUTINE ZUNIK(ZRR, ZRI, FNU, IKFLG, IPMTR, TOL, INIT, PHIR, argument 29 INTEGER I, IDUM, IKFLG, INIT, IPMTR, J, K, L 147 PHIR = CWRKR(16)*CON(IKFLG) 148 PHII = CWRKI(16)*CON(IKFLG) 179 IF (IKFLG.EQ.2) GO TO 60
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zuoik.f | 1 SUBROUTINE ZUOIK(ZR, ZI, FNU, KODE, IKFLG, N, YR, YI, NUF, TOL, argument 35 INTEGER I, IDUM, IFORM, IKFLG, INIT, KODE, N, NN, NUF, NW 54 IF (IKFLG.EQ.1) GO TO 20 66 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII, 87 IF (IKFLG.EQ.1) GO TO 70 135 IF (IKFLG.EQ.2) RETURN 144 CALL ZUNIK(ZRR, ZRI, GNU, IKFLG, 1, TOL, INIT, PHIR, PHII,
|
H A D | zunik.f | 1 SUBROUTINE ZUNIK(ZRR, ZRI, FNU, IKFLG, IPMTR, TOL, INIT, PHIR, argument 29 INTEGER I, IDUM, IKFLG, INIT, IPMTR, J, K, L 147 PHIR = CWRKR(16)*CON(IKFLG) 148 PHII = CWRKI(16)*CON(IKFLG) 179 IF (IKFLG.EQ.2) GO TO 60
|