Lines Matching defs:DASYIK
2 SUBROUTINE DASYIK (X, FNU, KODE, FLGIK, RA, ARG, IN, Y) subroutine
57 1 S1, S2, T, TOL, T2, X, Y, Z
62 1 3.98942280401432678D-01, 1.25331413731550025D+00/
64 1 C(11), C(12), C(13), C(14), C(15), C(16), C(17), C(18),
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,
68 5 7.03125000000000D-02, -1.02581259645062D+00,
69 6 1.84646267361111D+00, -8.91210937500000D-01,
70 7 7.32421875000000D-02, 4.66958442342625D+00,
71 8 -1.12070026162230D+01, 8.78912353515625D+00,
72 9 -2.36408691406250D+00, 1.12152099609375D-01,
73 1 -2.82120725582002D+01, 8.46362176746007D+01,
74 2 -9.18182415432400D+01, 4.25349987453885D+01,
75 3 -7.36879435947963D+00, 2.27108001708984D-01,
76 4 2.12570130039217D+02, -7.65252468141182D+02,
77 5 1.05999045252800D+03, -6.99579627376133D+02/
79 1 C(33), C(34), C(35), C(36), C(37), C(38), C(39), C(40),
80 2 C(41), C(42), C(43), C(44), C(45), C(46), C(47), C(48)/
81 3 2.18190511744212D+02, -2.64914304869516D+01,
105 C***FIRST EXECUTABLE STATEMENT DASYIK argument
120 10 COEF = EXP(ARG)
134 20 CONTINUE
139 30 CONTINUE
140 40 CONTINUE
143 50 CONTINUE