/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | dasyik.f | 2 SUBROUTINE DASYIK (X, FNU, KODE, FLGIK, RA, ARG, IN, Y) subroutine 55 INTEGER IN, J, JN, K, KK, KODE, L local 56 DOUBLE PRECISION AK,AP,ARG,C,COEF,CON,ETX,FLGIK,FN,FNU,GLN,RA, 57 1 S1, S2, T, TOL, T2, X, Y, Z local 58 DOUBLE PRECISION D1MACH 120 10 COEF = EXP(ARG) 134 20 CONTINUE 139 30 CONTINUE 140 40 CONTINUE 143 50 CONTINUE
|
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
H A D | dp6.F | 67 SUBROUTINE DASYIK (X, FNU, KODE, FLGIK, RA, ARG, IN, Y) subroutine 125 INTEGER IN, J, JN, K, KK, KODE, L local 126 DOUBLE PRECISION AK,AP,ARG,C,COEF,CON,ETX,FLGIK,FN,FNU,GLN,RA, 127 1 S1, S2, T, TOL, T2, X, Y, Z local 189 10 COEF = EXP(ARG) 203 20 CONTINUE 208 30 CONTINUE 209 40 CONTINUE 212 50 CONTINUE
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | dasyik.f | 2 SUBROUTINE DASYIK (X, FNU, KODE, FLGIK, RA, ARG, IN, Y) subroutine 55 INTEGER IN, J, JN, K, KK, KODE, L local 56 DOUBLE PRECISION AK,AP,ARG,C,COEF,CON,ETX,FLGIK,FN,FNU,GLN,RA, 57 1 S1, S2, T, TOL, T2, X, Y, Z local 58 DOUBLE PRECISION D1MACH 120 10 COEF = EXP(ARG) 134 20 CONTINUE 139 30 CONTINUE 140 40 CONTINUE 143 50 CONTINUE
|
/dports/math/slatec/src/ |
H A D | dasyik.f | 2 SUBROUTINE DASYIK (X, FNU, KODE, FLGIK, RA, ARG, IN, Y) subroutine 57 1 S1, S2, T, TOL, T2, X, Y, Z 65 2 C(19), C(20), C(21), C(22), C(23), C(24)/ 66 3 -2.08333333333333D-01, 1.25000000000000D-01, 67 4 3.34201388888889D-01, -4.01041666666667D-01, 105 C***FIRST EXECUTABLE STATEMENT DASYIK argument 120 10 COEF = EXP(ARG) 134 20 CONTINUE 139 30 CONTINUE 140 40 CONTINUE [all …]
|