ruby-dcl 1.7.1 → 1.8.2

Sign up to get free protection for your applications and to get access to all the features.
Files changed (327) hide show
  1. checksums.yaml +5 -5
  2. data/ChangeLog +1149 -365
  3. data/LICENSE.txt +1 -1
  4. data/Rakefile +7 -11
  5. data/demo/gokuraku/hop/hop.rb +1 -2
  6. data/demo/gokuraku/jump/jump1.rb +1 -2
  7. data/demo/gokuraku/jump/jump2.rb +2 -3
  8. data/demo/gokuraku/layout/lay1.rb +1 -2
  9. data/demo/gokuraku/layout/lay2.rb +1 -2
  10. data/demo/gokuraku/step/step0.rb +1 -2
  11. data/demo/gokuraku/step/step1.rb +1 -2
  12. data/demo/gokuraku/step/step2.rb +1 -2
  13. data/demo/gokuraku/u1d/u1d1.rb +1 -2
  14. data/demo/gokuraku/u1d/u1d2.rb +1 -2
  15. data/demo/gokuraku/u2d/u2d1.rb +1 -2
  16. data/demo/gokuraku/u2d/u2d2.rb +1 -2
  17. data/demo/gokuraku/u2d/u2d3.rb +1 -2
  18. data/demo/gokuraku/u2d/u2d4.rb +1 -2
  19. data/demo/grph1/scpack/scpkt2.rb +1 -2
  20. data/demo/grph1/scpack/scpkt3.rb +1 -2
  21. data/demo/grph1/scpack/scpkt6.rb +1 -2
  22. data/demo/grph1/scpack/scpkt7.rb +1 -2
  23. data/demo/grph1/scpack/scpkt8.rb +1 -2
  24. data/demo/grph1/sgpack/sgfont.rb +2 -3
  25. data/demo/grph1/sgpack/sgfonz.rb +2 -3
  26. data/demo/grph1/sgpack/sgksx1.rb +1 -2
  27. data/demo/grph1/sgpack/sgksx2.rb +1 -2
  28. data/demo/grph1/sgpack/sgksx3.rb +1 -2
  29. data/demo/grph1/sgpack/sglidx.rb +1 -2
  30. data/demo/grph1/sgpack/sgltyp.rb +1 -2
  31. data/demo/grph1/sgpack/sgpk01.rb +1 -2
  32. data/demo/grph1/sgpack/sgpk02.rb +1 -2
  33. data/demo/grph1/sgpack/sgpk03.rb +1 -2
  34. data/demo/grph1/sgpack/sgpk04.rb +1 -2
  35. data/demo/grph1/sgpack/sgpk05.rb +1 -2
  36. data/demo/grph1/sgpack/sgpk06.rb +1 -2
  37. data/demo/grph1/sgpack/sgpk07.rb +9 -8
  38. data/demo/grph1/sgpack/sgpk08.rb +1 -2
  39. data/demo/grph1/sgpack/sgpk09.rb +1 -2
  40. data/demo/grph1/sgpack/sgpk10.rb +1 -2
  41. data/demo/grph1/sgpack/sgtclr.rb +1 -2
  42. data/demo/grph1/sgpack/sgtone.rb +1 -2
  43. data/demo/grph1/sgpack/sgtonz.rb +1 -2
  44. data/demo/grph1/slpack/slpk01.rb +1 -2
  45. data/demo/grph1/slpack/slpk02.rb +1 -2
  46. data/demo/grph1/slpack/slpk03.rb +1 -2
  47. data/demo/grph1/slpack/slpk04.rb +2 -3
  48. data/demo/grph2/grpack/grpk01.rb +1 -2
  49. data/demo/grph2/ucpack/ucpk01.rb +1 -2
  50. data/demo/grph2/ucpack/ucpk02.rb +1 -2
  51. data/demo/grph2/udegpk/u2df01.rb +1 -2
  52. data/demo/grph2/udegpk/u2df02.rb +1 -2
  53. data/demo/grph2/udegpk/u2df03.rb +3 -4
  54. data/demo/grph2/udegpk/u2df04.rb +1 -2
  55. data/demo/grph2/udegpk/u2df05.rb +1 -2
  56. data/demo/grph2/udegpk/u2df06.rb +1 -2
  57. data/demo/grph2/udegpk/u2df07.rb +1 -2
  58. data/demo/grph2/udegpk/u2df08.rb +1 -2
  59. data/demo/grph2/udegpk/u2df09b.rb +0 -1
  60. data/demo/grph2/udegpk/u2df09c.rb +0 -1
  61. data/demo/grph2/udegpk/u2df09e.rb +0 -1
  62. data/demo/grph2/udegpk/u2df09f.rb +0 -1
  63. data/demo/grph2/uipack/uipk01.rb +1 -2
  64. data/demo/grph2/uipack/uipk02.rb +26 -18
  65. data/demo/grph2/uipack/uipk03.rb +50 -0
  66. data/demo/grph2/ulpack/ulpk01.rb +1 -2
  67. data/demo/grph2/ulpack/ulpk01n.rb +1 -2
  68. data/demo/grph2/ulpack/ulpk02.rb +1 -2
  69. data/demo/grph2/ulpack/ulpk02n.rb +1 -2
  70. data/demo/grph2/umpack/test01.rb +1 -2
  71. data/demo/grph2/umpack/test02.rb +1 -2
  72. data/demo/grph2/umpack/test03.rb +1 -2
  73. data/demo/grph2/umpack/test04.rb +2 -3
  74. data/demo/grph2/umpack/test05.rb +1 -2
  75. data/demo/grph2/umpack/test05r.rb +86 -0
  76. data/demo/grph2/umpack/test06.rb +1 -2
  77. data/demo/grph2/umpack/test07.rb +1 -2
  78. data/demo/grph2/umpack/test08.rb +1 -2
  79. data/demo/grph2/umpack/test10.rb +0 -1
  80. data/demo/grph2/umpack/umpk01.rb +1 -2
  81. data/demo/grph2/umpack/umpk02.rb +1 -2
  82. data/demo/grph2/umpack/umpk03.rb +1 -2
  83. data/demo/grph2/umpack/umpk04.rb +1 -2
  84. data/demo/grph2/umpack/umpk05.rb +1 -2
  85. data/demo/grph2/uspack/uspk01.rb +1 -2
  86. data/demo/grph2/uspack/uspk02.rb +1 -2
  87. data/demo/grph2/uspack/uspk03.rb +1 -2
  88. data/demo/grph2/uspack/uspk04.rb +1 -2
  89. data/demo/grph2/uspack/uspk05.rb +1 -2
  90. data/demo/grph2/uspack/uspk06.rb +2 -3
  91. data/demo/grph2/uspack/uspk07.rb +1 -2
  92. data/demo/grph2/uspack/uspk08.rb +2 -3
  93. data/demo/grph2/uspack/uspk09.rb +1 -2
  94. data/demo/grph2/uspack/uspk10.rb +1 -2
  95. data/demo/grph2/uspack/uspk11.rb +1 -2
  96. data/demo/grph2/uspack/uspk12.rb +1 -2
  97. data/demo/grph2/uupack/uupk01.rb +1 -2
  98. data/demo/grph2/uupack/uupk02.rb +1 -2
  99. data/demo/grph2/uupack/uupk03.rb +1 -2
  100. data/demo/grph2/uupack/uupk04.rb +1 -2
  101. data/demo/grph2/uupack/uupk05.rb +1 -2
  102. data/demo/grph2/uupack/uupk06.rb +1 -2
  103. data/demo/grph2/uupack/uupk07.rb +1 -2
  104. data/demo/grph2/uxyzpk/uxyz01.rb +1 -2
  105. data/demo/grph2/uxyzpk/uxyz02.rb +1 -2
  106. data/demo/grph2/uxyzpk/uxyz03.rb +1 -2
  107. data/demo/grph2/uxyzpk/uxyz04.rb +1 -2
  108. data/demo/grph2/uxyzpk/uxyz05.rb +1 -2
  109. data/demo/grph2/uxyzpk/uxyz06.rb +1 -2
  110. data/demo/grph2/uxyzpk/uxyz07.rb +1 -2
  111. data/demo/grph2/uxyzpk/uxyz08.rb +1 -2
  112. data/demo/grph2/uxyzpk/uxyz09.rb +1 -2
  113. data/demo/grph2/uxyzpk/uxyz10.rb +1 -2
  114. data/demo/grph2/ximage/ximg01.rb +2 -3
  115. data/demo/math1/clsplib/cslb01.rb +1 -2
  116. data/demo/math2/fftlib/fftl01.rb +1 -2
  117. data/demo/math2/fftlib/fftl02.rb +1 -2
  118. data/demo/math2/intrlib/intr01.rb +1 -2
  119. data/demo/math2/rnmlib/rnml01.rb +1 -2
  120. data/demo/math2/vstlib/vstl01.rb +1 -2
  121. data/demo/math2/vstlib/vstl02.rb +1 -2
  122. data/demo/misc2/tmpack/tmpk01.rb +46 -0
  123. data/demo/misc2/tmpack/tmpk02.rb +58 -0
  124. data/demo/misc2/tmpack/tmpk03.rb +56 -0
  125. data/demo/rakuraku/color/color1.rb +1 -2
  126. data/demo/rakuraku/color/color2.rb +5 -5
  127. data/demo/rakuraku/color/color3.rb +1 -2
  128. data/demo/rakuraku/kihon/kihon1.rb +1 -2
  129. data/demo/rakuraku/kihon/kihon2.rb +1 -2
  130. data/demo/rakuraku/kihon/kihon3.rb +1 -2
  131. data/demo/rakuraku/kihon/kihon4.rb +1 -2
  132. data/demo/rakuraku/kihon/kihon5.rb +1 -2
  133. data/demo/rakuraku/kihon/kihon6.rb +1 -2
  134. data/demo/rakuraku/kihon/kihon7.rb +10 -5
  135. data/demo/rakuraku/kihon/kihon8.rb +1 -2
  136. data/demo/rakuraku/kihon/kihon9.rb +1 -2
  137. data/demo/rakuraku/kihon/kihona.rb +1 -2
  138. data/demo/rakuraku/kihon/kihonb.rb +12 -11
  139. data/demo/rakuraku/kihon/kihonc.rb +1 -2
  140. data/demo/rakuraku/layout/lay1.rb +1 -2
  141. data/demo/rakuraku/layout/lay2.rb +1 -2
  142. data/demo/rakuraku/layout/lay3.rb +1 -2
  143. data/demo/rakuraku/map3d/map3d1.rb +1 -2
  144. data/demo/rakuraku/map3d/map3d2.rb +1 -2
  145. data/demo/rakuraku/map3d/map3d3.rb +1 -2
  146. data/demo/rakuraku/map3d/map3d4.rb +1 -2
  147. data/demo/rakuraku/map3d/map3d5.rb +1 -2
  148. data/demo/rakuraku/map3d/map3d6.rb +0 -1
  149. data/demo/rakuraku/map3d/map3d7.rb +0 -1
  150. data/demo/rakuraku/miss/miss1.rb +1 -2
  151. data/demo/rakuraku/miss/miss2.rb +1 -2
  152. data/demo/rakuraku/quick/quick1.rb +1 -2
  153. data/demo/rakuraku/quick/quick2.rb +1 -2
  154. data/demo/rakuraku/quick/quick3.rb +1 -2
  155. data/demo/rakuraku/quick/quick4.rb +1 -2
  156. data/demo/rakuraku/quick/quick5.rb +1 -2
  157. data/demo/rakuraku/u2d/u2d1.rb +1 -2
  158. data/demo/rakuraku/u2d/u2d2.rb +1 -2
  159. data/demo/rakuraku/u2d/u2d3.rb +1 -2
  160. data/demo/rakuraku/u2d/u2d4.rb +1 -2
  161. data/demo/rakuraku/u2d/u2d5.rb +1 -2
  162. data/demo/rakuraku/u2d/u2d6.rb +1 -2
  163. data/demo/rakuraku/u2d/u2d7.rb +1 -2
  164. data/demo/rakuraku/uspack/uspac1.rb +2 -3
  165. data/demo/rakuraku/uspack/uspac2.rb +1 -2
  166. data/demo/rakuraku/uspack/uspac3.rb +2 -3
  167. data/demo/rakuraku/uspack/uspac4.rb +1 -2
  168. data/demo/rakuraku/uxyz/uxyz1.rb +1 -2
  169. data/demo/rakuraku/uxyz/uxyz2.rb +1 -2
  170. data/demo/rakuraku/uxyz/uxyz3.rb +1 -2
  171. data/demo/rakuraku/uxyz/uxyz4.rb +1 -2
  172. data/demo/rakuraku/uxyz/uxyz5.rb +1 -2
  173. data/demo/rakuraku/uxyz/uxyz6.rb +1 -2
  174. data/demo/rakuraku/uxyz/uxyz7.rb +1 -2
  175. data/demo/rakuraku/uxyz/uxyz8.rb +1 -2
  176. data/demo/rubydcloriginal/uemrkz1.rb +0 -1
  177. data/ext/numru/dcl_cary2obj.c +29 -24
  178. data/ext/numru/dcl_narrayed_funcs.c +21 -21
  179. data/ext/numru/dcl_obj2cary.c +9 -5
  180. data/ext/numru/dcl_rubydcloriginal.c +14 -5
  181. data/ext/numru/extconf.rb +73 -61
  182. data/ext/numru/grph1_csgi.c +38 -8
  183. data/ext/numru/grph1_scpack.c +49 -46
  184. data/ext/numru/grph1_sgpack.c +167 -164
  185. data/ext/numru/grph1_slpack.c +23 -20
  186. data/ext/numru/grph1_stpack.c +44 -41
  187. data/ext/numru/grph1_swpack.c +155 -92
  188. data/ext/numru/grph2_grpack.c +22 -19
  189. data/ext/numru/grph2_ucpack.c +55 -52
  190. data/ext/numru/grph2_udpack.c +61 -58
  191. data/ext/numru/grph2_uepack.c +60 -57
  192. data/ext/numru/grph2_ugpack.c +49 -46
  193. data/ext/numru/grph2_uhpack.c +25 -22
  194. data/ext/numru/grph2_uipack.c +57 -54
  195. data/ext/numru/grph2_ulpack.c +59 -56
  196. data/ext/numru/grph2_umpack.c +75 -72
  197. data/ext/numru/grph2_uspack.c +97 -94
  198. data/ext/numru/grph2_uupack.c +78 -75
  199. data/ext/numru/grph2_uvpack.c +25 -22
  200. data/ext/numru/grph2_uwpack.c +30 -27
  201. data/ext/numru/grph2_uxpack.c +23 -20
  202. data/ext/numru/grph2_uypack.c +23 -20
  203. data/ext/numru/grph2_uzpack.c +69 -66
  204. data/ext/numru/init.c.default +6 -2
  205. data/ext/numru/math1_blklib.c +13 -10
  206. data/ext/numru/math1_chrlib.c +16 -13
  207. data/ext/numru/math1_clsplib.c +13 -10
  208. data/ext/numru/math1_fnclib.c +16 -13
  209. data/ext/numru/math1_gnmlib.c +21 -18
  210. data/ext/numru/math1_gt2dlib.c +18 -15
  211. data/ext/numru/math1_ifalib.c +18 -15
  212. data/ext/numru/math1_indxlib.c +24 -21
  213. data/ext/numru/math1_intlib.c +13 -10
  214. data/ext/numru/math1_lrllib.c +33 -30
  215. data/ext/numru/math1_maplib.c +14 -11
  216. data/ext/numru/math1_oslib.c +11 -8
  217. data/ext/numru/math1_rfalib.c +39 -36
  218. data/ext/numru/math1_rfblib.c +12 -9
  219. data/ext/numru/math1_sublib.c +13 -10
  220. data/ext/numru/math1_syslib.c +82 -79
  221. data/ext/numru/math1_vialib.c +31 -28
  222. data/ext/numru/math1_viblib.c +24 -21
  223. data/ext/numru/math1_vralib.c +31 -28
  224. data/ext/numru/math1_vrblib.c +24 -21
  225. data/ext/numru/math1_xfclib.c +12 -9
  226. data/ext/numru/math2_fftlib.c +28 -25
  227. data/ext/numru/math2_intrlib.c +11 -8
  228. data/ext/numru/math2_rnmlib.c +12 -9
  229. data/ext/numru/math2_shtlib.c +34 -31
  230. data/ext/numru/math2_vstlib.c +15 -12
  231. data/ext/numru/misc1_chnlib.c +12 -9
  232. data/ext/numru/misc1_datelib.c +36 -33
  233. data/ext/numru/misc1_fmtlib.c +10 -7
  234. data/ext/numru/misc1_misclib.c +11 -8
  235. data/ext/numru/misc1_randlib.c +13 -10
  236. data/ext/numru/misc1_timelib.c +20 -17
  237. data/ext/numru/misc2_tmpack.c +1200 -0
  238. data/lib/numru/dcl/dcl.rb +5676 -0
  239. data/lib/numru/dcl/version.rb +5 -0
  240. data/lib/numru/dcl.rb +6 -5580
  241. data/ruby-dcl.gemspec +13 -9
  242. metadata +25 -99
  243. data/.gitignore +0 -13
  244. data/.rspec +0 -2
  245. data/.travis.yml +0 -3
  246. data/GenWrapper/Makefile +0 -15
  247. data/GenWrapper/cproto2init.rb +0 -41
  248. data/GenWrapper/dcl_narrayed_funcs.rb +0 -181
  249. data/GenWrapper/dcl_rb_footing +0 -29
  250. data/GenWrapper/dcl_rb_heading +0 -123
  251. data/GenWrapper/def.rb +0 -20
  252. data/GenWrapper/elim_ary_size.rb +0 -398
  253. data/GenWrapper/etc/p_header +0 -64
  254. data/GenWrapper/pparse.rb +0 -137
  255. data/GenWrapper/proto/Makefile +0 -36
  256. data/GenWrapper/proto/grph1_00 +0 -17
  257. data/GenWrapper/proto/grph1_csgi.fp +0 -27
  258. data/GenWrapper/proto/grph1_scpack.fp +0 -442
  259. data/GenWrapper/proto/grph1_sgpack.fp +0 -1772
  260. data/GenWrapper/proto/grph1_slpack.fp +0 -316
  261. data/GenWrapper/proto/grph1_stpack.fp +0 -455
  262. data/GenWrapper/proto/grph1_swpack.fp +0 -826
  263. data/GenWrapper/proto/grph2_00 +0 -16
  264. data/GenWrapper/proto/grph2_grpack.fp +0 -139
  265. data/GenWrapper/proto/grph2_ucpack.fp +0 -522
  266. data/GenWrapper/proto/grph2_udpack.fp +0 -692
  267. data/GenWrapper/proto/grph2_uepack.fp +0 -601
  268. data/GenWrapper/proto/grph2_ugpack.fp +0 -436
  269. data/GenWrapper/proto/grph2_uhpack.fp +0 -246
  270. data/GenWrapper/proto/grph2_uipack.fp +0 -508
  271. data/GenWrapper/proto/grph2_ulpack.fp +0 -516
  272. data/GenWrapper/proto/grph2_umpack.fp +0 -676
  273. data/GenWrapper/proto/grph2_uspack.fp +0 -989
  274. data/GenWrapper/proto/grph2_uupack.fp +0 -663
  275. data/GenWrapper/proto/grph2_uvpack.fp +0 -246
  276. data/GenWrapper/proto/grph2_uwpack.fp +0 -203
  277. data/GenWrapper/proto/grph2_uxpack.fp +0 -295
  278. data/GenWrapper/proto/grph2_uypack.fp +0 -295
  279. data/GenWrapper/proto/grph2_uzpack.fp +0 -574
  280. data/GenWrapper/proto/math1_00 +0 -12
  281. data/GenWrapper/proto/math1_blklib.fp +0 -58
  282. data/GenWrapper/proto/math1_chrlib.fp +0 -83
  283. data/GenWrapper/proto/math1_clsplib.fp +0 -74
  284. data/GenWrapper/proto/math1_fnclib.fp +0 -79
  285. data/GenWrapper/proto/math1_gnmlib.fp +0 -118
  286. data/GenWrapper/proto/math1_gt2dlib.fp +0 -144
  287. data/GenWrapper/proto/math1_ifalib.fp +0 -123
  288. data/GenWrapper/proto/math1_indxlib.fp +0 -222
  289. data/GenWrapper/proto/math1_intlib.fp +0 -46
  290. data/GenWrapper/proto/math1_lrllib.fp +0 -276
  291. data/GenWrapper/proto/math1_maplib.fp +0 -24
  292. data/GenWrapper/proto/math1_oslib.fp +0 -28
  293. data/GenWrapper/proto/math1_rfalib.fp +0 -420
  294. data/GenWrapper/proto/math1_rfblib.fp +0 -51
  295. data/GenWrapper/proto/math1_sublib.fp +0 -60
  296. data/GenWrapper/proto/math1_syslib.fp +0 -767
  297. data/GenWrapper/proto/math1_vialib.fp +0 -339
  298. data/GenWrapper/proto/math1_viblib.fp +0 -264
  299. data/GenWrapper/proto/math1_vralib.fp +0 -339
  300. data/GenWrapper/proto/math1_vrblib.fp +0 -264
  301. data/GenWrapper/proto/math1_xfclib.fp +0 -68
  302. data/GenWrapper/proto/math2_00 +0 -12
  303. data/GenWrapper/proto/math2_fftlib.fp +0 -803
  304. data/GenWrapper/proto/math2_intrlib.fp +0 -32
  305. data/GenWrapper/proto/math2_odelib.fp_notused +0 -568
  306. data/GenWrapper/proto/math2_rnmlib.fp +0 -54
  307. data/GenWrapper/proto/math2_shtlib.fp +0 -1292
  308. data/GenWrapper/proto/math2_vstlib.fp +0 -84
  309. data/GenWrapper/proto/misc1_00 +0 -17
  310. data/GenWrapper/proto/misc1_chnlib.fp +0 -47
  311. data/GenWrapper/proto/misc1_datelib.fp +0 -352
  312. data/GenWrapper/proto/misc1_fmtlib.fp +0 -19
  313. data/GenWrapper/proto/misc1_misclib.fp +0 -26
  314. data/GenWrapper/proto/misc1_randlib.fp +0 -50
  315. data/GenWrapper/proto/misc1_timelib.fp +0 -151
  316. data/GenWrapper/proto2c.rb +0 -13
  317. data/GenWrapper/prototype.rb +0 -209
  318. data/GenWrapper/util.rb +0 -9
  319. data/GenWrapper/variable.rb +0 -671
  320. data/README +0 -29
  321. data/ToDo +0 -2
  322. data/bin/console +0 -14
  323. data/bin/setup +0 -7
  324. data/demo/grph2/ximage/MEMO +0 -23
  325. data/obsolete/README +0 -2
  326. data/obsolete/dcl_ext.html +0 -112
  327. data/obsolete/dcl_ext.rb +0 -313
@@ -1,84 +0,0 @@
1
- /*
2
- * math2_vstlib.fp
3
- *
4
- * $Id: math2_vstlib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math2/vstlib/vs1int.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE VS1INT(WZ,NW,IX)
12
- * REAL WZ(IX,2),X(IX)
13
- * INTEGER NW(IX)
14
- */
15
- SUBROUTINE VS1INT(
16
- REAL (IX,2) o WZ
17
- INTEGER (IX) o NW
18
- INTEGER IX
19
- )
20
-
21
- /*
22
- * ENTRY VS1DIN(WZ,NW,IX,X)
23
- * REAL WZ(IX,2),X(IX)
24
- * INTEGER NW(IX)
25
- */
26
- SUBROUTINE VS1DIN(
27
- REAL (IX,2) io WZ
28
- INTEGER (IX) io NW
29
- INTEGER IX
30
- REAL (IX) X
31
- )
32
-
33
- /*
34
- * ENTRY VS1OUT(WZ,NW,IX)
35
- * REAL WZ(IX,2),X(IX)
36
- * INTEGER NW(IX)
37
- */
38
- SUBROUTINE VS1OUT(
39
- REAL (IX,2) io WZ
40
- INTEGER (IX) NW
41
- INTEGER IX
42
- )
43
-
44
- /*****************************************************
45
- * math2/vstlib/vs2int.f
46
- ****************************************************/
47
- /*
48
- * SUBROUTINE VS2INT(WZ,NW,IX,IY)
49
- * REAL WZ(IX,IY,5),X(IX),Y(IY)
50
- * INTEGER NW(IX,IY)
51
- */
52
- SUBROUTINE VS2INT(
53
- REAL (IX,IY,5) o WZ
54
- INTEGER (IX,IY) o NW
55
- INTEGER IX
56
- INTEGER IY
57
- )
58
-
59
- /*
60
- * ENTRY VS2DIN(WZ,NW,IX,IY,X,Y)
61
- * REAL WZ(IX,IY,5),X(IX),Y(IY)
62
- * INTEGER NW(IX,IY)
63
- */
64
- SUBROUTINE VS2DIN(
65
- REAL (IX,IY,5) io WZ
66
- INTEGER (IX,IY) io NW
67
- INTEGER IX
68
- INTEGER IY
69
- REAL (IX) X
70
- REAL (IX) Y
71
- )
72
-
73
- /*
74
- * ENTRY VS2OUT(WZ,NW,IX,IY)
75
- * REAL WZ(IX,IY,5),X(IX),Y(IY)
76
- * INTEGER NW(IX,IY)
77
- */
78
- SUBROUTINE VS2OUT(
79
- REAL (IX,IY,5) io WZ
80
- INTEGER (IX,IY) NW
81
- INTEGER IX
82
- INTEGER IY
83
- )
84
-
@@ -1,17 +0,0 @@
1
- /*
2
- * misc1_00
3
- * log to split misc1.f77proto into misc1_xxxlib.fp
4
- *
5
- * $Id: misc1_00,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
6
- */
7
- -----
8
- /*
9
- * misc1.f77proto
10
- * #Id: misc1.f77proto,v 1.2 2000/11/05 14:39:34 keiko Exp $
11
- */
12
-
13
- /*
14
- * Packages deleted (by horinout):
15
- * /bitlib, chglib, chklib, fiolib, hexlib, reallib
16
- */
17
-
@@ -1,47 +0,0 @@
1
- /*
2
- * misc1_chnlib.fp
3
- *
4
- * $Id: misc1_chnlib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * misc1/chnlib/chngc.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE CHNGC(CH,CA,CB)
12
- * CHARACTER CH*(*),CA*(*),CB*(*)
13
- */
14
- SUBROUTINE CHNGC(
15
- CHARACTER*(*) io CH
16
- CHARACTER*(*) CA
17
- CHARACTER*(*) CB
18
- )
19
-
20
- /*****************************************************
21
- * misc1/chnlib/chngi.f
22
- ****************************************************/
23
- /*
24
- * SUBROUTINE CHNGI(CH,CA,II,CFMT)
25
- * CHARACTER CH*(*),CA*(*),CFMT*(*)
26
- */
27
- SUBROUTINE CHNGI(
28
- CHARACTER*(*) io CH
29
- CHARACTER*(*) CA
30
- INTEGER II
31
- CHARACTER*(*) CFMT
32
- )
33
-
34
- /*****************************************************
35
- * misc1/chnlib/chngr.f
36
- ****************************************************/
37
- /*
38
- * SUBROUTINE CHNGR(CH,CA,RR,CFMT)
39
- * CHARACTER CH*(*),CA*(*),CFMT*(*)
40
- */
41
- SUBROUTINE CHNGR(
42
- CHARACTER*(*) io CH
43
- CHARACTER*(*) CA
44
- REAL RR
45
- CHARACTER*(*) CFMT
46
- )
47
-
@@ -1,352 +0,0 @@
1
- /*
2
- * misc1_datelib.fp
3
- *
4
- * $Id: misc1_datelib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * misc1/datelib/date12.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE DATE12(IDATE,IY,ITD)
12
- */
13
- SUBROUTINE DATE12(
14
- INTEGER IDATE
15
- INTEGER o IY
16
- INTEGER o ITD
17
- )
18
-
19
- /*****************************************************
20
- * misc1/datelib/date13.f
21
- ****************************************************/
22
- /*
23
- * SUBROUTINE DATE13(IDATE,IY,IM,ID)
24
- */
25
- SUBROUTINE DATE13(
26
- INTEGER IDATE
27
- INTEGER o IY
28
- INTEGER o IM
29
- INTEGER o ID
30
- )
31
-
32
- /*****************************************************
33
- * misc1/datelib/date21.f
34
- ****************************************************/
35
- /*
36
- * SUBROUTINE DATE21(IDATE,IY,ITD)
37
- */
38
- SUBROUTINE DATE21(
39
- INTEGER o IDATE
40
- INTEGER IY
41
- INTEGER ITD
42
- )
43
-
44
- /*****************************************************
45
- * misc1/datelib/date23.f
46
- ****************************************************/
47
- /*
48
- * SUBROUTINE DATE23(IY,IM,ID,ITD)
49
- */
50
- SUBROUTINE DATE23(
51
- INTEGER io IY
52
- INTEGER o IM
53
- INTEGER o ID
54
- INTEGER ITD
55
- )
56
-
57
- /*****************************************************
58
- * misc1/datelib/date31.f
59
- ****************************************************/
60
- /*
61
- * SUBROUTINE DATE31(IDATE,IY,IM,ID)
62
- */
63
- SUBROUTINE DATE31(
64
- INTEGER o IDATE
65
- INTEGER IY
66
- INTEGER IM
67
- INTEGER ID
68
- )
69
-
70
- /*****************************************************
71
- * misc1/datelib/date32.f
72
- ****************************************************/
73
- /*
74
- * SUBROUTINE DATE32(IY,IM,ID,ITD)
75
- */
76
- SUBROUTINE DATE32(
77
- INTEGER io IY
78
- INTEGER IM
79
- INTEGER ID
80
- INTEGER o ITD
81
- )
82
-
83
- /*****************************************************
84
- * misc1/datelib/datef1.f
85
- ****************************************************/
86
- /*
87
- * SUBROUTINE DATEF1(N,IDATE,NDATE)
88
- */
89
- SUBROUTINE DATEF1(
90
- INTEGER N
91
- INTEGER IDATE
92
- INTEGER o NDATE
93
- )
94
-
95
- /*****************************************************
96
- * misc1/datelib/datef2.f
97
- ****************************************************/
98
- /*
99
- * SUBROUTINE DATEF2(N,IY,ITD,NY,NTD)
100
- */
101
- SUBROUTINE DATEF2(
102
- INTEGER N
103
- INTEGER IY
104
- INTEGER ITD
105
- INTEGER o NY
106
- INTEGER o NTD
107
- )
108
-
109
- /*****************************************************
110
- * misc1/datelib/datef3.f
111
- ****************************************************/
112
- /*
113
- * SUBROUTINE DATEF3(N,IY,IM,ID,NY,NM,ND)
114
- */
115
- SUBROUTINE DATEF3(
116
- INTEGER N
117
- INTEGER IY
118
- INTEGER IM
119
- INTEGER ID
120
- INTEGER o NY
121
- INTEGER o NM
122
- INTEGER o ND
123
- )
124
-
125
- /*****************************************************
126
- * misc1/datelib/dateg1.f
127
- ****************************************************/
128
- /*
129
- * SUBROUTINE DATEG1(N,IDATE,NDATE)
130
- */
131
- SUBROUTINE DATEG1(
132
- INTEGER o N
133
- INTEGER IDATE
134
- INTEGER NDATE
135
- )
136
-
137
- /*****************************************************
138
- * misc1/datelib/dateg2.f
139
- ****************************************************/
140
- /*
141
- * SUBROUTINE DATEG2(N,IY,ITD,NY,NTD)
142
- */
143
- SUBROUTINE DATEG2(
144
- INTEGER o N
145
- INTEGER IY
146
- INTEGER ITD
147
- INTEGER NY
148
- INTEGER NTD
149
- )
150
-
151
- /*****************************************************
152
- * misc1/datelib/dateg3.f
153
- ****************************************************/
154
- /*
155
- * SUBROUTINE DATEG3(N,IY,IM,ID,NY,NM,ND)
156
- */
157
- SUBROUTINE DATEG3(
158
- INTEGER o N
159
- INTEGER IY
160
- INTEGER IM
161
- INTEGER ID
162
- INTEGER NY
163
- INTEGER NM
164
- INTEGER ND
165
- )
166
-
167
- /*****************************************************
168
- * misc1/datelib/ndate1.f
169
- ****************************************************/
170
- /*
171
- * INTEGER FUNCTION NDATE1(IDATE,NDATE)
172
- */
173
- INTEGER FUNCTION NDATE1(
174
- INTEGER IDATE
175
- INTEGER NDATE
176
- )
177
-
178
- /*****************************************************
179
- * misc1/datelib/ndate2.f
180
- ****************************************************/
181
- /*
182
- * INTEGER FUNCTION NDATE2(IY,ITD,NY,NTD)
183
- */
184
- INTEGER FUNCTION NDATE2(
185
- INTEGER IY
186
- INTEGER ITD
187
- INTEGER NY
188
- INTEGER NTD
189
- )
190
-
191
- /*****************************************************
192
- * misc1/datelib/ndate3.f
193
- ****************************************************/
194
- /*
195
- * INTEGER FUNCTION NDATE3(IY,IM,ID,NY,NM,ND)
196
- */
197
- INTEGER FUNCTION NDATE3(
198
- INTEGER IY
199
- INTEGER IM
200
- INTEGER ID
201
- INTEGER NY
202
- INTEGER NM
203
- INTEGER ND
204
- )
205
-
206
- /*****************************************************
207
- * misc1/datelib/datec1.f
208
- ****************************************************/
209
- /*
210
- * SUBROUTINE DATEC1(CFORM,IDATE)
211
- * CHARACTER CFORM*(*)
212
- */
213
- SUBROUTINE DATEC1(
214
- CHARACTER*(*) io CFORM
215
- INTEGER IDATE
216
- )
217
-
218
- /*****************************************************
219
- * misc1/datelib/datec2.f
220
- ****************************************************/
221
- /*
222
- * SUBROUTINE DATEC2(CFORM,IY,ITD)
223
- * CHARACTER CFORM*(*)
224
- */
225
- SUBROUTINE DATEC2(
226
- CHARACTER*(*) io CFORM
227
- INTEGER IY
228
- INTEGER ITD
229
- )
230
-
231
- /*****************************************************
232
- * misc1/datelib/datec3.f
233
- ****************************************************/
234
- /*
235
- * SUBROUTINE DATEC3(CFORM,IY,IM,ID)
236
- * CHARACTER CFORM*(*)
237
- */
238
- SUBROUTINE DATEC3(
239
- CHARACTER*(*) io CFORM
240
- INTEGER IY
241
- INTEGER IM
242
- INTEGER ID
243
- )
244
-
245
- /*****************************************************
246
- * misc1/datelib/dateq1.f
247
- ****************************************************/
248
- /*
249
- * SUBROUTINE DATEQ1(IDATE)
250
- */
251
- SUBROUTINE DATEQ1(
252
- INTEGER o IDATE
253
- )
254
-
255
- /*****************************************************
256
- * misc1/datelib/ndmon.f
257
- ****************************************************/
258
- /*
259
- * INTEGER FUNCTION NDMON(IY,IM)
260
- */
261
- INTEGER FUNCTION NDMON(
262
- INTEGER IY
263
- INTEGER IM
264
- )
265
-
266
- /*****************************************************
267
- * misc1/datelib/dateq2.f
268
- ****************************************************/
269
- /*
270
- * SUBROUTINE DATEQ2(IY, ITD)
271
- */
272
- SUBROUTINE DATEQ2(
273
- INTEGER o IY
274
- INTEGER o ITD
275
- )
276
-
277
- /*****************************************************
278
- * misc1/datelib/cmon.f
279
- ****************************************************/
280
- /*
281
- * CHARACTER*(*) FUNCTION CMON(IM)
282
- */
283
- CHARACTER*(*) FUNCTION CMON(
284
- INTEGER IM
285
- )
286
-
287
- /*****************************************************
288
- * misc1/datelib/cweek.f
289
- ****************************************************/
290
- /*
291
- * CHARACTER*(*) FUNCTION CWEEK(IW)
292
- */
293
- CHARACTER*(*) FUNCTION CWEEK(
294
- INTEGER IW
295
- )
296
-
297
- /*****************************************************
298
- * misc1/datelib/iweek1.f
299
- ****************************************************/
300
- /*
301
- * INTEGER FUNCTION IWEEK1(IDATE)
302
- */
303
- INTEGER FUNCTION IWEEK1(
304
- INTEGER IDATE
305
- )
306
-
307
- /*****************************************************
308
- * misc1/datelib/iweek2.f
309
- ****************************************************/
310
- /*
311
- * INTEGER FUNCTION IWEEK2(IY,ITD)
312
- */
313
- INTEGER FUNCTION IWEEK2(
314
- INTEGER IY
315
- INTEGER ITD
316
- )
317
-
318
- /*****************************************************
319
- * misc1/datelib/iweek3.f
320
- ****************************************************/
321
- /*
322
- * INTEGER FUNCTION IWEEK3(IY,IM,ID)
323
- */
324
- INTEGER FUNCTION IWEEK3(
325
- INTEGER IY
326
- INTEGER IM
327
- INTEGER ID
328
- )
329
-
330
- /*****************************************************
331
- * misc1/datelib/ndyear.f
332
- ****************************************************/
333
- /*
334
- * INTEGER FUNCTION NDYEAR(IY)
335
- */
336
- INTEGER FUNCTION NDYEAR(
337
- INTEGER IY
338
- )
339
-
340
- /*****************************************************
341
- * misc1/datelib/dateq3.c
342
- ****************************************************/
343
- /*
344
- * void dateq3_(iy, im, id)
345
- */
346
- /*
347
- SUBROUTINE DATEQ3(
348
- INTEGER o IY
349
- INTEGER o IM
350
- INTEGER o ID
351
- )
352
- */
@@ -1,19 +0,0 @@
1
- /*
2
- * misc1_fmtlib.fp
3
- *
4
- * $Id: misc1_fmtlib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * misc1/fmtlib/chval.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE CHVAL(CFMT,VAL,CVAL)
12
- * CHARACTER CFMT*(*),CVAL*(*)
13
- */
14
- SUBROUTINE CHVAL(
15
- CHARACTER*(*) CFMT
16
- REAL VAL
17
- CHARACTER*(*) o CVAL
18
- )
19
-
@@ -1,26 +0,0 @@
1
- /*
2
- * misc1_misclib.fp
3
- *
4
- * $Id: misc1_misclib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * misc1/misclib/cns.f
9
- ****************************************************/
10
- /*
11
- * CHARACTER*1 FUNCTION CNS(INS)
12
- */
13
- CHARACTER*1 FUNCTION CNS(
14
- INTEGER INS
15
- )
16
-
17
- /*****************************************************
18
- * misc1/misclib/cdblk.f
19
- ****************************************************/
20
- /*
21
- * SUBROUTINE CDBLK(CHR)
22
- * CHARACTER CHR*(*)
23
- */
24
- SUBROUTINE CDBLK(
25
- CHARACTER*(*) io CHR
26
- )
@@ -1,50 +0,0 @@
1
- /*
2
- * misc1_randlib.fp
3
- *
4
- * $Id: misc1_randlib.fp,v 1.2 2012/03/02 17:18:54 koshiro Exp $
5
- */
6
-
7
- /*****************************************************
8
- * misc1/randlib/rngu0.c
9
- ****************************************************/
10
- /*
11
- * REAL FUNCTION RNGU0(ISEED)
12
- */
13
- #if DCLVER >= 544
14
- REAL FUNCTION RNGU0(
15
- INTEGER io ISEED
16
- )
17
- #endif
18
-
19
- /*****************************************************
20
- * misc1/randlib/rngu1.f
21
- ****************************************************/
22
- /*
23
- * REAL FUNCTION RNGU1(ISEED)
24
- */
25
- REAL FUNCTION RNGU1(
26
- INTEGER io ISEED
27
- )
28
-
29
- /*****************************************************
30
- * misc1/randlib/rngu2.f
31
- ****************************************************/
32
- /*
33
- * REAL FUNCTION RNGU2(ISEED)
34
- */
35
- REAL FUNCTION RNGU2(
36
- INTEGER io ISEED
37
- )
38
-
39
- /*****************************************************
40
- * misc1/randlib/rngu3.f
41
- ****************************************************/
42
- /*
43
- * REAL FUNCTION RNGU3(ISEED)
44
- */
45
- #if DCLVER < 544
46
- REAL FUNCTION RNGU3(
47
- INTEGER io ISEED
48
- )
49
- #endif
50
-