ruby-dcl 1.7.1 → 1.8.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (307) hide show
  1. checksums.yaml +4 -4
  2. data/{ChangeLog → .ChangeLog.until20150318} +0 -0
  3. data/LICENSE.txt +1 -1
  4. data/Rakefile +7 -11
  5. data/demo/gokuraku/hop/hop.rb +1 -1
  6. data/demo/gokuraku/jump/jump1.rb +1 -1
  7. data/demo/gokuraku/jump/jump2.rb +1 -1
  8. data/demo/gokuraku/layout/lay1.rb +1 -1
  9. data/demo/gokuraku/layout/lay2.rb +1 -1
  10. data/demo/gokuraku/step/step0.rb +1 -1
  11. data/demo/gokuraku/step/step1.rb +1 -1
  12. data/demo/gokuraku/step/step2.rb +1 -1
  13. data/demo/gokuraku/u1d/u1d1.rb +1 -1
  14. data/demo/gokuraku/u1d/u1d2.rb +1 -1
  15. data/demo/gokuraku/u2d/u2d1.rb +1 -1
  16. data/demo/gokuraku/u2d/u2d2.rb +1 -1
  17. data/demo/gokuraku/u2d/u2d3.rb +1 -1
  18. data/demo/gokuraku/u2d/u2d4.rb +1 -1
  19. data/demo/grph1/scpack/scpkt2.rb +1 -1
  20. data/demo/grph1/scpack/scpkt3.rb +1 -1
  21. data/demo/grph1/scpack/scpkt6.rb +1 -1
  22. data/demo/grph1/scpack/scpkt7.rb +1 -1
  23. data/demo/grph1/scpack/scpkt8.rb +1 -1
  24. data/demo/grph1/sgpack/sgfont.rb +1 -1
  25. data/demo/grph1/sgpack/sgfonz.rb +1 -1
  26. data/demo/grph1/sgpack/sgksx1.rb +1 -1
  27. data/demo/grph1/sgpack/sgksx2.rb +1 -1
  28. data/demo/grph1/sgpack/sgksx3.rb +1 -1
  29. data/demo/grph1/sgpack/sglidx.rb +1 -1
  30. data/demo/grph1/sgpack/sgltyp.rb +1 -1
  31. data/demo/grph1/sgpack/sgpk01.rb +1 -1
  32. data/demo/grph1/sgpack/sgpk02.rb +1 -1
  33. data/demo/grph1/sgpack/sgpk03.rb +1 -1
  34. data/demo/grph1/sgpack/sgpk04.rb +1 -1
  35. data/demo/grph1/sgpack/sgpk05.rb +1 -1
  36. data/demo/grph1/sgpack/sgpk06.rb +1 -1
  37. data/demo/grph1/sgpack/sgpk07.rb +1 -1
  38. data/demo/grph1/sgpack/sgpk08.rb +1 -1
  39. data/demo/grph1/sgpack/sgpk09.rb +1 -1
  40. data/demo/grph1/sgpack/sgpk10.rb +1 -1
  41. data/demo/grph1/sgpack/sgtclr.rb +1 -1
  42. data/demo/grph1/sgpack/sgtone.rb +1 -1
  43. data/demo/grph1/sgpack/sgtonz.rb +1 -1
  44. data/demo/grph1/slpack/slpk01.rb +1 -1
  45. data/demo/grph1/slpack/slpk02.rb +1 -1
  46. data/demo/grph1/slpack/slpk03.rb +1 -1
  47. data/demo/grph1/slpack/slpk04.rb +1 -1
  48. data/demo/grph2/grpack/grpk01.rb +1 -1
  49. data/demo/grph2/ucpack/ucpk01.rb +1 -1
  50. data/demo/grph2/ucpack/ucpk02.rb +1 -1
  51. data/demo/grph2/udegpk/u2df01.rb +1 -1
  52. data/demo/grph2/udegpk/u2df02.rb +1 -1
  53. data/demo/grph2/udegpk/u2df03.rb +1 -1
  54. data/demo/grph2/udegpk/u2df04.rb +1 -1
  55. data/demo/grph2/udegpk/u2df05.rb +1 -1
  56. data/demo/grph2/udegpk/u2df06.rb +1 -1
  57. data/demo/grph2/udegpk/u2df07.rb +1 -1
  58. data/demo/grph2/udegpk/u2df08.rb +1 -1
  59. data/demo/grph2/uipack/uipk01.rb +1 -1
  60. data/demo/grph2/uipack/uipk02.rb +1 -1
  61. data/demo/grph2/ulpack/ulpk01.rb +1 -1
  62. data/demo/grph2/ulpack/ulpk01n.rb +1 -1
  63. data/demo/grph2/ulpack/ulpk02.rb +1 -1
  64. data/demo/grph2/ulpack/ulpk02n.rb +1 -1
  65. data/demo/grph2/umpack/test01.rb +1 -1
  66. data/demo/grph2/umpack/test02.rb +1 -1
  67. data/demo/grph2/umpack/test03.rb +1 -1
  68. data/demo/grph2/umpack/test04.rb +1 -1
  69. data/demo/grph2/umpack/test05.rb +1 -1
  70. data/demo/grph2/umpack/test06.rb +1 -1
  71. data/demo/grph2/umpack/test07.rb +1 -1
  72. data/demo/grph2/umpack/test08.rb +1 -1
  73. data/demo/grph2/umpack/umpk01.rb +1 -1
  74. data/demo/grph2/umpack/umpk02.rb +1 -1
  75. data/demo/grph2/umpack/umpk03.rb +1 -1
  76. data/demo/grph2/umpack/umpk04.rb +1 -1
  77. data/demo/grph2/umpack/umpk05.rb +1 -1
  78. data/demo/grph2/uspack/uspk01.rb +1 -1
  79. data/demo/grph2/uspack/uspk02.rb +1 -1
  80. data/demo/grph2/uspack/uspk03.rb +1 -1
  81. data/demo/grph2/uspack/uspk04.rb +1 -1
  82. data/demo/grph2/uspack/uspk05.rb +1 -1
  83. data/demo/grph2/uspack/uspk06.rb +1 -1
  84. data/demo/grph2/uspack/uspk07.rb +1 -1
  85. data/demo/grph2/uspack/uspk08.rb +1 -1
  86. data/demo/grph2/uspack/uspk09.rb +1 -1
  87. data/demo/grph2/uspack/uspk10.rb +1 -1
  88. data/demo/grph2/uspack/uspk11.rb +1 -1
  89. data/demo/grph2/uspack/uspk12.rb +1 -1
  90. data/demo/grph2/uupack/uupk01.rb +1 -1
  91. data/demo/grph2/uupack/uupk02.rb +1 -1
  92. data/demo/grph2/uupack/uupk03.rb +1 -1
  93. data/demo/grph2/uupack/uupk04.rb +1 -1
  94. data/demo/grph2/uupack/uupk05.rb +1 -1
  95. data/demo/grph2/uupack/uupk06.rb +1 -1
  96. data/demo/grph2/uupack/uupk07.rb +1 -1
  97. data/demo/grph2/uxyzpk/uxyz01.rb +1 -1
  98. data/demo/grph2/uxyzpk/uxyz02.rb +1 -1
  99. data/demo/grph2/uxyzpk/uxyz03.rb +1 -1
  100. data/demo/grph2/uxyzpk/uxyz04.rb +1 -1
  101. data/demo/grph2/uxyzpk/uxyz05.rb +1 -1
  102. data/demo/grph2/uxyzpk/uxyz06.rb +1 -1
  103. data/demo/grph2/uxyzpk/uxyz07.rb +1 -1
  104. data/demo/grph2/uxyzpk/uxyz08.rb +1 -1
  105. data/demo/grph2/uxyzpk/uxyz09.rb +1 -1
  106. data/demo/grph2/uxyzpk/uxyz10.rb +1 -1
  107. data/demo/grph2/ximage/ximg01.rb +1 -1
  108. data/demo/math1/clsplib/cslb01.rb +1 -1
  109. data/demo/math2/fftlib/fftl01.rb +1 -1
  110. data/demo/math2/fftlib/fftl02.rb +1 -1
  111. data/demo/math2/intrlib/intr01.rb +1 -1
  112. data/demo/math2/rnmlib/rnml01.rb +1 -1
  113. data/demo/math2/vstlib/vstl01.rb +1 -1
  114. data/demo/math2/vstlib/vstl02.rb +1 -1
  115. data/demo/rakuraku/color/color1.rb +1 -1
  116. data/demo/rakuraku/color/color2.rb +1 -1
  117. data/demo/rakuraku/color/color3.rb +1 -1
  118. data/demo/rakuraku/kihon/kihon1.rb +1 -1
  119. data/demo/rakuraku/kihon/kihon2.rb +1 -1
  120. data/demo/rakuraku/kihon/kihon3.rb +1 -1
  121. data/demo/rakuraku/kihon/kihon4.rb +1 -1
  122. data/demo/rakuraku/kihon/kihon5.rb +1 -1
  123. data/demo/rakuraku/kihon/kihon6.rb +1 -1
  124. data/demo/rakuraku/kihon/kihon7.rb +1 -1
  125. data/demo/rakuraku/kihon/kihon8.rb +1 -1
  126. data/demo/rakuraku/kihon/kihon9.rb +1 -1
  127. data/demo/rakuraku/kihon/kihona.rb +1 -1
  128. data/demo/rakuraku/kihon/kihonb.rb +1 -1
  129. data/demo/rakuraku/kihon/kihonc.rb +1 -1
  130. data/demo/rakuraku/layout/lay1.rb +1 -1
  131. data/demo/rakuraku/layout/lay2.rb +1 -1
  132. data/demo/rakuraku/layout/lay3.rb +1 -1
  133. data/demo/rakuraku/map3d/map3d1.rb +1 -1
  134. data/demo/rakuraku/map3d/map3d2.rb +1 -1
  135. data/demo/rakuraku/map3d/map3d3.rb +1 -1
  136. data/demo/rakuraku/map3d/map3d4.rb +1 -1
  137. data/demo/rakuraku/map3d/map3d5.rb +1 -1
  138. data/demo/rakuraku/miss/miss1.rb +1 -1
  139. data/demo/rakuraku/miss/miss2.rb +1 -1
  140. data/demo/rakuraku/quick/quick1.rb +1 -1
  141. data/demo/rakuraku/quick/quick2.rb +1 -1
  142. data/demo/rakuraku/quick/quick3.rb +1 -1
  143. data/demo/rakuraku/quick/quick4.rb +1 -1
  144. data/demo/rakuraku/quick/quick5.rb +1 -1
  145. data/demo/rakuraku/u2d/u2d1.rb +1 -1
  146. data/demo/rakuraku/u2d/u2d2.rb +1 -1
  147. data/demo/rakuraku/u2d/u2d3.rb +1 -1
  148. data/demo/rakuraku/u2d/u2d4.rb +1 -1
  149. data/demo/rakuraku/u2d/u2d5.rb +1 -1
  150. data/demo/rakuraku/u2d/u2d6.rb +1 -1
  151. data/demo/rakuraku/u2d/u2d7.rb +1 -1
  152. data/demo/rakuraku/uspack/uspac1.rb +1 -1
  153. data/demo/rakuraku/uspack/uspac2.rb +1 -1
  154. data/demo/rakuraku/uspack/uspac3.rb +1 -1
  155. data/demo/rakuraku/uspack/uspac4.rb +1 -1
  156. data/demo/rakuraku/uxyz/uxyz1.rb +1 -1
  157. data/demo/rakuraku/uxyz/uxyz2.rb +1 -1
  158. data/demo/rakuraku/uxyz/uxyz3.rb +1 -1
  159. data/demo/rakuraku/uxyz/uxyz4.rb +1 -1
  160. data/demo/rakuraku/uxyz/uxyz5.rb +1 -1
  161. data/demo/rakuraku/uxyz/uxyz6.rb +1 -1
  162. data/demo/rakuraku/uxyz/uxyz7.rb +1 -1
  163. data/demo/rakuraku/uxyz/uxyz8.rb +1 -1
  164. data/ext/numru/dcl_cary2obj.c +28 -23
  165. data/ext/numru/dcl_obj2cary.c +8 -4
  166. data/ext/numru/dcl_rubydcloriginal.c +14 -4
  167. data/ext/numru/extconf.rb +9 -51
  168. data/ext/numru/grph1_csgi.c +9 -5
  169. data/ext/numru/grph1_scpack.c +9 -5
  170. data/ext/numru/grph1_sgpack.c +9 -5
  171. data/ext/numru/grph1_slpack.c +9 -5
  172. data/ext/numru/grph1_stpack.c +9 -5
  173. data/ext/numru/grph1_swpack.c +69 -5
  174. data/ext/numru/grph2_grpack.c +9 -5
  175. data/ext/numru/grph2_ucpack.c +9 -5
  176. data/ext/numru/grph2_udpack.c +9 -5
  177. data/ext/numru/grph2_uepack.c +9 -5
  178. data/ext/numru/grph2_ugpack.c +9 -5
  179. data/ext/numru/grph2_uhpack.c +9 -5
  180. data/ext/numru/grph2_uipack.c +9 -5
  181. data/ext/numru/grph2_ulpack.c +9 -5
  182. data/ext/numru/grph2_umpack.c +9 -5
  183. data/ext/numru/grph2_uspack.c +9 -5
  184. data/ext/numru/grph2_uupack.c +9 -5
  185. data/ext/numru/grph2_uvpack.c +9 -5
  186. data/ext/numru/grph2_uwpack.c +9 -5
  187. data/ext/numru/grph2_uxpack.c +9 -5
  188. data/ext/numru/grph2_uypack.c +9 -5
  189. data/ext/numru/grph2_uzpack.c +9 -5
  190. data/ext/numru/init.c +202 -0
  191. data/ext/numru/init.c.default +7 -0
  192. data/ext/numru/math1_blklib.c +9 -5
  193. data/ext/numru/math1_chrlib.c +9 -5
  194. data/ext/numru/math1_clsplib.c +9 -5
  195. data/ext/numru/math1_fnclib.c +9 -5
  196. data/ext/numru/math1_gnmlib.c +9 -5
  197. data/ext/numru/math1_gt2dlib.c +9 -5
  198. data/ext/numru/math1_ifalib.c +9 -5
  199. data/ext/numru/math1_indxlib.c +9 -5
  200. data/ext/numru/math1_intlib.c +9 -5
  201. data/ext/numru/math1_lrllib.c +9 -5
  202. data/ext/numru/math1_maplib.c +9 -5
  203. data/ext/numru/math1_oslib.c +9 -5
  204. data/ext/numru/math1_rfalib.c +9 -5
  205. data/ext/numru/math1_rfblib.c +9 -5
  206. data/ext/numru/math1_sublib.c +9 -5
  207. data/ext/numru/math1_syslib.c +9 -5
  208. data/ext/numru/math1_vialib.c +9 -5
  209. data/ext/numru/math1_viblib.c +9 -5
  210. data/ext/numru/math1_vralib.c +9 -5
  211. data/ext/numru/math1_vrblib.c +9 -5
  212. data/ext/numru/math1_xfclib.c +9 -5
  213. data/ext/numru/math2_fftlib.c +9 -5
  214. data/ext/numru/math2_intrlib.c +9 -5
  215. data/ext/numru/math2_rnmlib.c +9 -5
  216. data/ext/numru/math2_shtlib.c +9 -5
  217. data/ext/numru/math2_vstlib.c +9 -5
  218. data/ext/numru/misc1_chnlib.c +9 -5
  219. data/ext/numru/misc1_datelib.c +9 -5
  220. data/ext/numru/misc1_fmtlib.c +9 -5
  221. data/ext/numru/misc1_misclib.c +9 -5
  222. data/ext/numru/misc1_randlib.c +9 -5
  223. data/ext/numru/misc1_timelib.c +9 -5
  224. data/lib/numru/dcl.rb +6 -5580
  225. data/lib/numru/dcl/dcl.rb +5591 -0
  226. data/lib/numru/dcl/version.rb +5 -0
  227. data/ruby-dcl-bigmem.gemspec +36 -0
  228. data/ruby-dcl.gemspec +10 -9
  229. metadata +17 -93
  230. data/.gitignore +0 -13
  231. data/.rspec +0 -2
  232. data/.travis.yml +0 -3
  233. data/GenWrapper/cproto2init.rb +0 -41
  234. data/GenWrapper/dcl_narrayed_funcs.rb +0 -181
  235. data/GenWrapper/dcl_rb_footing +0 -29
  236. data/GenWrapper/dcl_rb_heading +0 -123
  237. data/GenWrapper/def.rb +0 -20
  238. data/GenWrapper/elim_ary_size.rb +0 -398
  239. data/GenWrapper/etc/p_header +0 -64
  240. data/GenWrapper/pparse.rb +0 -137
  241. data/GenWrapper/proto/grph1_00 +0 -17
  242. data/GenWrapper/proto/grph1_csgi.fp +0 -27
  243. data/GenWrapper/proto/grph1_scpack.fp +0 -442
  244. data/GenWrapper/proto/grph1_sgpack.fp +0 -1772
  245. data/GenWrapper/proto/grph1_slpack.fp +0 -316
  246. data/GenWrapper/proto/grph1_stpack.fp +0 -455
  247. data/GenWrapper/proto/grph1_swpack.fp +0 -826
  248. data/GenWrapper/proto/grph2_00 +0 -16
  249. data/GenWrapper/proto/grph2_grpack.fp +0 -139
  250. data/GenWrapper/proto/grph2_ucpack.fp +0 -522
  251. data/GenWrapper/proto/grph2_udpack.fp +0 -692
  252. data/GenWrapper/proto/grph2_uepack.fp +0 -601
  253. data/GenWrapper/proto/grph2_ugpack.fp +0 -436
  254. data/GenWrapper/proto/grph2_uhpack.fp +0 -246
  255. data/GenWrapper/proto/grph2_uipack.fp +0 -508
  256. data/GenWrapper/proto/grph2_ulpack.fp +0 -516
  257. data/GenWrapper/proto/grph2_umpack.fp +0 -676
  258. data/GenWrapper/proto/grph2_uspack.fp +0 -989
  259. data/GenWrapper/proto/grph2_uupack.fp +0 -663
  260. data/GenWrapper/proto/grph2_uvpack.fp +0 -246
  261. data/GenWrapper/proto/grph2_uwpack.fp +0 -203
  262. data/GenWrapper/proto/grph2_uxpack.fp +0 -295
  263. data/GenWrapper/proto/grph2_uypack.fp +0 -295
  264. data/GenWrapper/proto/grph2_uzpack.fp +0 -574
  265. data/GenWrapper/proto/math1_00 +0 -12
  266. data/GenWrapper/proto/math1_blklib.fp +0 -58
  267. data/GenWrapper/proto/math1_chrlib.fp +0 -83
  268. data/GenWrapper/proto/math1_clsplib.fp +0 -74
  269. data/GenWrapper/proto/math1_fnclib.fp +0 -79
  270. data/GenWrapper/proto/math1_gnmlib.fp +0 -118
  271. data/GenWrapper/proto/math1_gt2dlib.fp +0 -144
  272. data/GenWrapper/proto/math1_ifalib.fp +0 -123
  273. data/GenWrapper/proto/math1_indxlib.fp +0 -222
  274. data/GenWrapper/proto/math1_intlib.fp +0 -46
  275. data/GenWrapper/proto/math1_lrllib.fp +0 -276
  276. data/GenWrapper/proto/math1_maplib.fp +0 -24
  277. data/GenWrapper/proto/math1_oslib.fp +0 -28
  278. data/GenWrapper/proto/math1_rfalib.fp +0 -420
  279. data/GenWrapper/proto/math1_rfblib.fp +0 -51
  280. data/GenWrapper/proto/math1_sublib.fp +0 -60
  281. data/GenWrapper/proto/math1_syslib.fp +0 -767
  282. data/GenWrapper/proto/math1_vialib.fp +0 -339
  283. data/GenWrapper/proto/math1_viblib.fp +0 -264
  284. data/GenWrapper/proto/math1_vralib.fp +0 -339
  285. data/GenWrapper/proto/math1_vrblib.fp +0 -264
  286. data/GenWrapper/proto/math1_xfclib.fp +0 -68
  287. data/GenWrapper/proto/math2_00 +0 -12
  288. data/GenWrapper/proto/math2_fftlib.fp +0 -803
  289. data/GenWrapper/proto/math2_intrlib.fp +0 -32
  290. data/GenWrapper/proto/math2_odelib.fp_notused +0 -568
  291. data/GenWrapper/proto/math2_rnmlib.fp +0 -54
  292. data/GenWrapper/proto/math2_shtlib.fp +0 -1292
  293. data/GenWrapper/proto/math2_vstlib.fp +0 -84
  294. data/GenWrapper/proto/misc1_00 +0 -17
  295. data/GenWrapper/proto/misc1_chnlib.fp +0 -47
  296. data/GenWrapper/proto/misc1_datelib.fp +0 -352
  297. data/GenWrapper/proto/misc1_fmtlib.fp +0 -19
  298. data/GenWrapper/proto/misc1_misclib.fp +0 -26
  299. data/GenWrapper/proto/misc1_randlib.fp +0 -50
  300. data/GenWrapper/proto/misc1_timelib.fp +0 -151
  301. data/GenWrapper/proto2c.rb +0 -13
  302. data/GenWrapper/prototype.rb +0 -209
  303. data/GenWrapper/util.rb +0 -9
  304. data/GenWrapper/variable.rb +0 -671
  305. data/ToDo +0 -2
  306. data/bin/console +0 -14
  307. data/bin/setup +0 -7
data/GenWrapper/proto/math2_intrlib.fp DELETED
@@ -1,32 +0,0 @@
1
- /*
2
- * math2_intrlib.fp
3
- *
4
- * $Id: math2_intrlib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math2/intrlib/vrintr.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE VRINTR(RX,N,JX)
12
- * REAL RX(*)
13
- */
14
- SUBROUTINE VRINTR(
15
- REAL (JX*(N-1)+1) io RX
16
- INTEGER N
17
- INTEGER JX
18
- )
19
-
20
- /*****************************************************
21
- * math2/intrlib/vcintr.f
22
- ****************************************************/
23
- /*
24
- * SUBROUTINE VCINTR(CX,N,JX)
25
- * COMPLEX CX(*),CMISS,CD,C1
26
- */
27
- SUBROUTINE VCINTR(
28
- COMPLEX (JX*(N-1)+1) io CX
29
- INTEGER N
30
- INTEGER JX
31
- )
32
-
data/GenWrapper/proto/math2_odelib.fp_notused DELETED
@@ -1,568 +0,0 @@
1
- /*
2
- * math2_odelib.fp
3
- *
4
- * $Id: math2_odelib.fp_notused,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math2/odelib/odrk1.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE ODRK1(N, FCN, T, DT, X, DX, XOUT, WORK)
12
- * DIMENSION X(N), XOUT(N), DX(N)
13
- */
14
- SUBROUTINE ODRK1(
15
- INTEGER N
16
- REAL FCN
17
- REAL T
18
- REAL DT
19
- REAL (N) X
20
- REAL (N) DX
21
- REAL (N) o XOUT
22
- REAL t WORK
23
- )
24
-
25
- /*****************************************************
26
- * math2/odelib/odrk2.f
27
- ****************************************************/
28
- /*
29
- * SUBROUTINE ODRK2(N, FCN, T, DT, X, DX, XOUT, WORK)
30
- * DIMENSION X(N), XOUT(N), DX(N), WORK(N)
31
- */
32
- SUBROUTINE ODRK2(
33
- INTEGER N
34
- REAL FCN
35
- REAL T
36
- REAL DT
37
- REAL (N) X
38
- REAL (N) DX
39
- REAL (N) o XOUT
40
- REAL (N) t WORK
41
- )
42
-
43
- /*****************************************************
44
- * math2/odelib/odrk4.f
45
- ****************************************************/
46
- /*
47
- * SUBROUTINE ODRK4(N, FCN, T, DT, X, DX, XOUT, WORK)
48
- * DIMENSION X(N), XOUT(N), DX(N), WORK(N,3)
49
- */
50
- SUBROUTINE ODRK4(
51
- INTEGER N
52
- REAL FCN
53
- REAL T
54
- REAL DT
55
- REAL (N) X
56
- REAL (N) DX
57
- REAL (N) o XOUT
58
- REAL (N,3) t WORK
59
- )
60
-
61
- /*****************************************************
62
- * math2/odelib/odrk4r.f
63
- ****************************************************/
64
- /*
65
- * SUBROUTINE ODRK4R(N, FCN, T, DT, EPSL, X, WORK)
66
- * DIMENSION X(N), WORK(N,7)
67
- */
68
- SUBROUTINE ODRK4R(
69
- INTEGER N
70
- REAL FCN
71
- REAL io T
72
- REAL io DT
73
- REAL EPSL
74
- REAL (N) io X
75
- REAL (N,7) t WORK
76
- )
77
-
78
- /*****************************************************
79
- * math2/odelib/odrk4s.f
80
- ****************************************************/
81
- /*
82
- * SUBROUTINE ODRK4S(N, FCN, T, DT, EPSL, X, WORK)
83
- * DIMENSION X(N), WORK(N,5)
84
- */
85
- SUBROUTINE ODRK4S(
86
- INTEGER N
87
- REAL FCN
88
- REAL io T
89
- REAL io DT
90
- REAL EPSL
91
- REAL (N) io X
92
- REAL (N,5) t WORK
93
- )
94
-
95
- /*****************************************************
96
- * math2/odelib/odrkdu.f
97
- ****************************************************/
98
- /* NB: (ODRKDU) WORK size is (N,5) (ALGR=ODRK4), (N,3) (otherwise). */
99
- /*
100
- * SUBROUTINE ODRKDU(N, ALGR, FCN, T, TEND, ISTEP, X, WORK)
101
- * DIMENSION X(N), WORK(N,*)
102
- */
103
- SUBROUTINE ODRKDU(
104
- INTEGER N
105
- REAL ALGR
106
- REAL FCN
107
- REAL io T
108
- REAL TEND
109
- INTEGER ISTEP
110
- REAL (N) io X
111
- REAL (N,*) t WORK
112
- )
113
-
114
- /*****************************************************
115
- * math2/odelib/odrkdv.f
116
- ****************************************************/
117
- /* NB: (ODRKDV) WORK size is (N,7) (ALGR=ODRK4), (N,5) (otherwise). */
118
- /*
119
- * SUBROUTINE ODRKDV(N, STEPER, FCN, T, TEND, DT, X, WORK)
120
- * DIMENSION X(N), WORK(N,*)
121
- */
122
- SUBROUTINE ODRKDV(
123
- INTEGER N
124
- REAL STEPER
125
- REAL FCN
126
- REAL io T
127
- REAL TEND
128
- REAL io DT
129
- REAL (N) io X
130
- REAL (N,*) t WORK
131
- )
132
-
133
- /*****************************************************
134
- * math2/odelib/odrkg.f
135
- ****************************************************/
136
- /*
137
- * SUBROUTINE ODRKG(N, FCN, T, DT, X, DX, XOUT, WORK)
138
- * DIMENSION X(N), DX(N), XOUT(N), WORK(N)
139
- */
140
- SUBROUTINE ODRKG(
141
- INTEGER N
142
- REAL FCN
143
- REAL T
144
- REAL DT
145
- REAL X
146
- REAL (N) io DX
147
- REAL (N) o XOUT
148
- REAL (N) t WORK
149
- )
150
-
151
- /*****************************************************
152
- * math2/odelib/odrkgr.f
153
- ****************************************************/
154
- /*
155
- * SUBROUTINE ODRKGR(N, FCN, T, DT, EPSL, X, WORK)
156
- * DIMENSION X(N), WORK(N,5)
157
- */
158
- SUBROUTINE ODRKGR(
159
- INTEGER N
160
- REAL FCN
161
- REAL io T
162
- REAL io DT
163
- REAL EPSL
164
- REAL (N) io X
165
- REAL (N,5) t WORK
166
- )
167
-
168
- /*****************************************************
169
- * math2/odelib/odrkgs.f
170
- ****************************************************/
171
- /*
172
- * SUBROUTINE ODRKGS(N, FCN, T, DT, EPSL, X, WORK)
173
- * DIMENSION X(N), WORK(N,3)
174
- */
175
- SUBROUTINE ODRKGS(
176
- INTEGER N
177
- REAL FCN
178
- REAL io T
179
- REAL io DT
180
- REAL EPSL
181
- REAL (N) io X
182
- REAL (N,3) t WORK
183
- )
184
-
185
- /*****************************************************
186
- * math2/odelib/odiget.f
187
- ****************************************************/
188
- /*
189
- * SUBROUTINE ODIGET(CP, IPARA)
190
- * CHARACTER CP*(*)
191
- */
192
- SUBROUTINE ODIGET(
193
- CHARACTER*(*) CP
194
- INTEGER o IPARA
195
- )
196
-
197
- /*
198
- * ENTRY ODISET(CP, IPARA)
199
- * CHARACTER CP*(*)
200
- */
201
- SUBROUTINE ODISET(
202
- CHARACTER*(*) CP
203
- INTEGER IPARA
204
- )
205
-
206
- /*
207
- * ENTRY ODISTX(CP, IPARA)
208
- * CHARACTER CP*(*)
209
- */
210
- SUBROUTINE ODISTX(
211
- CHARACTER*(*) CP
212
- INTEGER IPARA
213
- )
214
-
215
- /*****************************************************
216
- * math2/odelib/odiqnp.f
217
- ****************************************************/
218
- /*
219
- * SUBROUTINE ODIQNP(NCP)
220
- */
221
- SUBROUTINE ODIQNP(
222
- INTEGER o NCP
223
- )
224
-
225
- /*
226
- * ENTRY ODIQID(CP,IDX)
227
- * CHARACTER CP*(*)
228
- */
229
- SUBROUTINE ODIQID(
230
- CHARACTER*(*) CP
231
- INTEGER o IDX
232
- )
233
-
234
- /*
235
- * ENTRY ODIQCP(IDX,CP)
236
- * CHARACTER CP*(*)
237
- */
238
- SUBROUTINE ODIQCP(
239
- INTEGER IDX
240
- CHARACTER*(*) o CP
241
- )
242
-
243
- /*
244
- * ENTRY ODIQCL(IDX, CP)
245
- * CHARACTER CP*(*)
246
- */
247
- SUBROUTINE ODIQCL(
248
- INTEGER IDX
249
- CHARACTER*(*) o CP
250
- )
251
-
252
- /*
253
- * ENTRY ODIQVL(IDX,IPARA)
254
- */
255
- SUBROUTINE ODIQVL(
256
- INTEGER IDX
257
- INTEGER o IPARA
258
- )
259
-
260
- /*
261
- * ENTRY ODISVL(IDX,IPARA)
262
- */
263
- SUBROUTINE ODISVL(
264
- INTEGER IDX
265
- INTEGER IPARA
266
- )
267
-
268
- /*
269
- * ENTRY ODIQIN(CP, IN)
270
- * CHARACTER CP*(*)
271
- */
272
- SUBROUTINE ODIQIN(
273
- CHARACTER*(*) CP
274
- INTEGER o IN
275
- )
276
-
277
- /*****************************************************
278
- * math2/odelib/odlget.f
279
- ****************************************************/
280
- /*
281
- * SUBROUTINE ODLGET(CP, LPARA)
282
- * CHARACTER CP*(*)
283
- * LOGICAL LPARA
284
- */
285
- SUBROUTINE ODLGET(
286
- CHARACTER*(*) CP
287
- LOGICAL o LPARA
288
- )
289
-
290
- /*
291
- * ENTRY ODLSET(CP, LPARA)
292
- * CHARACTER CP*(*)
293
- * LOGICAL LPARA
294
- */
295
- SUBROUTINE ODLSET(
296
- CHARACTER*(*) CP
297
- LOGICAL LPARA
298
- )
299
-
300
- /*
301
- * ENTRY ODLSTX(CP, LPARA)
302
- * CHARACTER CP*(*)
303
- * LOGICAL LPARA
304
- */
305
- SUBROUTINE ODLSTX(
306
- CHARACTER*(*) CP
307
- LOGICAL LPARA
308
- )
309
-
310
- /*****************************************************
311
- * math2/odelib/odlqnp.f
312
- ****************************************************/
313
- /*
314
- * SUBROUTINE ODLQNP(NCP)
315
- */
316
- SUBROUTINE ODLQNP(
317
- INTEGER o NCP
318
- )
319
-
320
- /*
321
- * ENTRY ODLQID(CP,IDX)
322
- * CHARACTER CP*(*)
323
- */
324
- SUBROUTINE ODLQID(
325
- CHARACTER*(*) CP
326
- INTEGER o IDX
327
- )
328
-
329
- /*
330
- * ENTRY ODLQCP(IDX,CP)
331
- * CHARACTER CP*(*)
332
- */
333
- SUBROUTINE ODLQCP(
334
- INTEGER IDX
335
- CHARACTER*(*) o CP
336
- )
337
-
338
- /*
339
- * ENTRY ODLQCL(IDX, CP)
340
- * CHARACTER CP*(*)
341
- */
342
- SUBROUTINE ODLQCL(
343
- INTEGER IDX
344
- CHARACTER*(*) o CP
345
- )
346
-
347
- /*
348
- * ENTRY ODLQVL(IDX, LPARA)
349
- * LOGICAL LPARA
350
- */
351
- SUBROUTINE ODLQVL(
352
- INTEGER IDX
353
- LOGICAL o LPARA
354
- )
355
-
356
- /*
357
- * ENTRY ODLSVL(IDX,LPARA)
358
- * LOGICAL LPARA
359
- */
360
- SUBROUTINE ODLSVL(
361
- INTEGER IDX
362
- LOGICAL LPARA
363
- )
364
-
365
- /*
366
- * ENTRY ODLQIN(CP, IN)
367
- * CHARACTER CP*(*)
368
- */
369
- SUBROUTINE ODLQIN(
370
- CHARACTER*(*) CP
371
- INTEGER o IN
372
- )
373
-
374
- /*****************************************************
375
- * math2/odelib/odpget.f
376
- ****************************************************/
377
- /*
378
- * SUBROUTINE ODPGET(CP, IPARA)
379
- * CHARACTER CP*(*)
380
- */
381
- /* SUBROUTINE ODPGET(
382
- * CHARACTER*(*) CP
383
- * INTEGER o IPARA
384
- * )
385
- */
386
-
387
- /*
388
- * ENTRY ODPSET(CP, IPARA)
389
- * CHARACTER CP*(*)
390
- */
391
- /* SUBROUTINE ODPSET(
392
- * CHARACTER*(*) CP
393
- * INTEGER IPARA
394
- * )
395
- */
396
-
397
- /*
398
- * ENTRY ODPSTX(CP, IPARA)
399
- * CHARACTER CP*(*)
400
- */
401
- /* SUBROUTINE ODPSTX(
402
- * CHARACTER*(*) CP
403
- * INTEGER IPARA
404
- * )
405
- */
406
-
407
- /*****************************************************
408
- * math2/odelib/odpqnp.f
409
- ****************************************************/
410
- /*
411
- * SUBROUTINE ODPQNP(NCP)
412
- */
413
- SUBROUTINE ODPQNP(
414
- INTEGER o NCP
415
- )
416
-
417
- /*
418
- * ENTRY ODPQID(CP, IDX)
419
- * CHARACTER CP*(*)
420
- */
421
- SUBROUTINE ODPQID(
422
- CHARACTER*(*) CP
423
- INTEGER o IDX
424
- )
425
-
426
- /*
427
- * ENTRY ODPQCP(IDX, CP)
428
- * CHARACTER CP*(*)
429
- */
430
- SUBROUTINE ODPQCP(
431
- INTEGER IDX
432
- CHARACTER*(*) o CP
433
- )
434
-
435
- /*
436
- * ENTRY ODPQCL(IDX, CP)
437
- * CHARACTER CP*(*)
438
- */
439
- SUBROUTINE ODPQCL(
440
- INTEGER IDX
441
- CHARACTER*(*) o CP
442
- )
443
-
444
- /*
445
- * ENTRY ODPQIT(IDX, ITP)
446
- */
447
- SUBROUTINE ODPQIT(
448
- INTEGER IDX
449
- INTEGER o ITP
450
- )
451
-
452
- /*
453
- * ENTRY ODPQVL(IDX, IPARA)
454
- */
455
- SUBROUTINE ODPQVL(
456
- INTEGER IDX
457
- INTEGER o IPARA
458
- )
459
-
460
- /*
461
- * ENTRY ODPSVL(IDX, IPARA)
462
- */
463
- SUBROUTINE ODPSVL(
464
- INTEGER IDX
465
- INTEGER IPARA
466
- )
467
-
468
- /*
469
- * ENTRY ODPQIN(CP, IN)
470
- * CHARACTER CP*(*)
471
- */
472
- SUBROUTINE ODPQIN(
473
- CHARACTER*(*) CP
474
- INTEGER o IN
475
- )
476
-
477
- /*****************************************************
478
- * math2/odelib/odrget.f
479
- ****************************************************/
480
- /*
481
- * SUBROUTINE ODRGET(CP, RPARA)
482
- * CHARACTER CP*(*)
483
- */
484
- SUBROUTINE ODRGET(
485
- CHARACTER*(*) CP
486
- REAL o RPARA
487
- )
488
-
489
- /*
490
- * ENTRY ODRSET(CP, RPARA)
491
- * CHARACTER CP*(*)
492
- */
493
- SUBROUTINE ODRSET(
494
- CHARACTER*(*) CP
495
- REAL RPARA
496
- )
497
-
498
- /*
499
- * ENTRY ODRSTX(CP, RPARA)
500
- * CHARACTER CP*(*)
501
- */
502
- SUBROUTINE ODRSTX(
503
- CHARACTER*(*) CP
504
- REAL RPARA
505
- )
506
-
507
- /*****************************************************
508
- * math2/odelib/odrqnp.f
509
- ****************************************************/
510
- /*
511
- * SUBROUTINE ODRQNP(NCP)
512
- */
513
- SUBROUTINE ODRQNP(
514
- INTEGER o NCP
515
- )
516
-
517
- /*
518
- * ENTRY ODRQID(CP,IDX)
519
- * CHARACTER CP*(*)
520
- */
521
- SUBROUTINE ODRQID(
522
- CHARACTER*(*) CP
523
- INTEGER o IDX
524
- )
525
-
526
- /*
527
- * ENTRY ODRQCP(IDX,CP)
528
- * CHARACTER CP*(*)
529
- */
530
- SUBROUTINE ODRQCP(
531
- INTEGER IDX
532
- CHARACTER*(*) o CP
533
- )
534
-
535
- /*
536
- * ENTRY ODRQCL(IDX, CP)
537
- * CHARACTER CP*(*)
538
- */
539
- SUBROUTINE ODRQCL(
540
- INTEGER IDX
541
- CHARACTER*(*) o CP
542
- )
543
-
544
- /*
545
- * ENTRY ODLQVR(IDX, RPARA)
546
- */
547
- SUBROUTINE ODLQVR(
548
- INTEGER IDX
549
- REAL o RPARA
550
- )
551
-
552
- /*
553
- * ENTRY ODRSVL(IDX,RPARA)
554
- */
555
- SUBROUTINE ODRSVL(
556
- INTEGER IDX
557
- REAL RPARA
558
- )
559
-
560
- /*
561
- * ENTRY ODRQIN(CP, IN)
562
- * CHARACTER CP*(*)
563
- */
564
- SUBROUTINE ODRQIN(
565
- CHARACTER*(*) CP
566
- INTEGER o IN
567
- )
568
-