Home
last modified time | relevance | path

Searched refs:IKFLG (Results 1 – 22 of 22) sorted by relevance

/dports/math/octave/octave-6.4.0/liboctave/external/amos/
H A Dcuoik.f1 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 Dzuoik.f1 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 Dzunik.f1 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 Dcunik.f1 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 Dcuoik.f2 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 Dzuoik.f2 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 Dzunik.f2 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 Dcunik.f2 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 Dcuoik.f1 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 Dzuoik.f1 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 Dzunik.f1 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 Dcunik.f1 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 Dzuoik.f2 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 Dzunik.f2 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 Dzuoik.f2 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 Dzunik.f2 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 Dzuoik.f1 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 Dzunik.f1 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 Dzuoik.f1 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 Dzunik.f1 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 Dzuoik.f1 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 Dzunik.f1 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