ruby-dcl 1.6.2

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (319) hide show
  1. data/ChangeLog +321 -0
  2. data/GenWrapper/Makefile +14 -0
  3. data/GenWrapper/cproto2init.rb +41 -0
  4. data/GenWrapper/dcl_narrayed_funcs.rb +181 -0
  5. data/GenWrapper/dcl_rb_footing +29 -0
  6. data/GenWrapper/dcl_rb_heading +129 -0
  7. data/GenWrapper/def.rb +20 -0
  8. data/GenWrapper/elim_ary_size.rb +398 -0
  9. data/GenWrapper/etc/Mk_proto +375 -0
  10. data/GenWrapper/etc/dcl_gen +13 -0
  11. data/GenWrapper/etc/p_header +63 -0
  12. data/GenWrapper/etc/p_init +410 -0
  13. data/GenWrapper/pparse.rb +137 -0
  14. data/GenWrapper/proto/Makefile +35 -0
  15. data/GenWrapper/proto/grph1_00 +17 -0
  16. data/GenWrapper/proto/grph1_csgi.fp +27 -0
  17. data/GenWrapper/proto/grph1_scpack.fp +442 -0
  18. data/GenWrapper/proto/grph1_sgpack.fp +1406 -0
  19. data/GenWrapper/proto/grph1_slpack.fp +316 -0
  20. data/GenWrapper/proto/grph1_stpack.fp +411 -0
  21. data/GenWrapper/proto/grph1_swpack.fp +746 -0
  22. data/GenWrapper/proto/grph2_00 +16 -0
  23. data/GenWrapper/proto/grph2_grpack.fp +139 -0
  24. data/GenWrapper/proto/grph2_ucpack.fp +522 -0
  25. data/GenWrapper/proto/grph2_udpack.fp +692 -0
  26. data/GenWrapper/proto/grph2_uepack.fp +601 -0
  27. data/GenWrapper/proto/grph2_ugpack.fp +436 -0
  28. data/GenWrapper/proto/grph2_uhpack.fp +246 -0
  29. data/GenWrapper/proto/grph2_ulpack.fp +516 -0
  30. data/GenWrapper/proto/grph2_umpack.fp +676 -0
  31. data/GenWrapper/proto/grph2_uspack.fp +989 -0
  32. data/GenWrapper/proto/grph2_uupack.fp +663 -0
  33. data/GenWrapper/proto/grph2_uvpack.fp +246 -0
  34. data/GenWrapper/proto/grph2_uwpack.fp +203 -0
  35. data/GenWrapper/proto/grph2_uxpack.fp +295 -0
  36. data/GenWrapper/proto/grph2_uypack.fp +295 -0
  37. data/GenWrapper/proto/grph2_uzpack.fp +574 -0
  38. data/GenWrapper/proto/math1_00 +12 -0
  39. data/GenWrapper/proto/math1_blklib.fp +58 -0
  40. data/GenWrapper/proto/math1_chrlib.fp +83 -0
  41. data/GenWrapper/proto/math1_fnclib.fp +79 -0
  42. data/GenWrapper/proto/math1_gnmlib.fp +118 -0
  43. data/GenWrapper/proto/math1_gt2dlib.fp +144 -0
  44. data/GenWrapper/proto/math1_ifalib.fp +123 -0
  45. data/GenWrapper/proto/math1_indxlib.fp +222 -0
  46. data/GenWrapper/proto/math1_intlib.fp +46 -0
  47. data/GenWrapper/proto/math1_lrllib.fp +276 -0
  48. data/GenWrapper/proto/math1_maplib.fp +24 -0
  49. data/GenWrapper/proto/math1_oslib.fp +28 -0
  50. data/GenWrapper/proto/math1_rfalib.fp +420 -0
  51. data/GenWrapper/proto/math1_rfblib.fp +51 -0
  52. data/GenWrapper/proto/math1_sublib.fp +60 -0
  53. data/GenWrapper/proto/math1_syslib.fp +767 -0
  54. data/GenWrapper/proto/math1_vialib.fp +339 -0
  55. data/GenWrapper/proto/math1_viblib.fp +264 -0
  56. data/GenWrapper/proto/math1_vralib.fp +339 -0
  57. data/GenWrapper/proto/math1_vrblib.fp +264 -0
  58. data/GenWrapper/proto/math1_xfclib.fp +68 -0
  59. data/GenWrapper/proto/math2_00 +12 -0
  60. data/GenWrapper/proto/math2_fftlib.fp +803 -0
  61. data/GenWrapper/proto/math2_intrlib.fp +32 -0
  62. data/GenWrapper/proto/math2_odelib.fp_notused +568 -0
  63. data/GenWrapper/proto/math2_rnmlib.fp +54 -0
  64. data/GenWrapper/proto/math2_shtlib.fp +1292 -0
  65. data/GenWrapper/proto/math2_shtlib.fp_old +1294 -0
  66. data/GenWrapper/proto/math2_vstlib.fp +84 -0
  67. data/GenWrapper/proto/misc1_00 +17 -0
  68. data/GenWrapper/proto/misc1_chnlib.fp +47 -0
  69. data/GenWrapper/proto/misc1_datelib.fp +352 -0
  70. data/GenWrapper/proto/misc1_fmtlib.fp +19 -0
  71. data/GenWrapper/proto/misc1_misclib.fp +26 -0
  72. data/GenWrapper/proto/misc1_randlib.fp +36 -0
  73. data/GenWrapper/proto/misc1_timelib.fp +151 -0
  74. data/GenWrapper/proto2c.rb +13 -0
  75. data/GenWrapper/prototype.rb +209 -0
  76. data/GenWrapper/util.rb +9 -0
  77. data/GenWrapper/variable.rb +671 -0
  78. data/README +29 -0
  79. data/Rakefile +44 -0
  80. data/ToDo +2 -0
  81. data/dcl_cary2obj.c +354 -0
  82. data/dcl_narrayed_funcs.c +518 -0
  83. data/dcl_obj2cary.c +512 -0
  84. data/dcl_rubydcloriginal.c +129 -0
  85. data/demo/gokuraku/hop/hop.rb +26 -0
  86. data/demo/gokuraku/jump/jump1.rb +64 -0
  87. data/demo/gokuraku/jump/jump2.rb +50 -0
  88. data/demo/gokuraku/layout/lay1.rb +46 -0
  89. data/demo/gokuraku/layout/lay2.rb +44 -0
  90. data/demo/gokuraku/step/step0.rb +34 -0
  91. data/demo/gokuraku/step/step1.rb +84 -0
  92. data/demo/gokuraku/step/step2.rb +62 -0
  93. data/demo/gokuraku/u1d/u1d1.rb +37 -0
  94. data/demo/gokuraku/u1d/u1d2.rb +50 -0
  95. data/demo/gokuraku/u2d/u2d1.rb +46 -0
  96. data/demo/gokuraku/u2d/u2d2.rb +49 -0
  97. data/demo/gokuraku/u2d/u2d3.rb +45 -0
  98. data/demo/gokuraku/u2d/u2d4.rb +61 -0
  99. data/demo/grph1/scpack/scpkt2.rb +40 -0
  100. data/demo/grph1/scpack/scpkt3.rb +102 -0
  101. data/demo/grph1/scpack/scpkt6.rb +84 -0
  102. data/demo/grph1/scpack/scpkt7.rb +59 -0
  103. data/demo/grph1/scpack/scpkt8.rb +60 -0
  104. data/demo/grph1/scpack/t810630.dat +296 -0
  105. data/demo/grph1/scpack/t811231.dat +296 -0
  106. data/demo/grph1/sgpack/sgfont.rb +52 -0
  107. data/demo/grph1/sgpack/sgfonz.rb +53 -0
  108. data/demo/grph1/sgpack/sgksx1.rb +44 -0
  109. data/demo/grph1/sgpack/sgksx2.rb +90 -0
  110. data/demo/grph1/sgpack/sgksx3.rb +75 -0
  111. data/demo/grph1/sgpack/sglidx.rb +40 -0
  112. data/demo/grph1/sgpack/sgltyp.rb +48 -0
  113. data/demo/grph1/sgpack/sgpk01.rb +39 -0
  114. data/demo/grph1/sgpack/sgpk02.rb +79 -0
  115. data/demo/grph1/sgpack/sgpk03.rb +107 -0
  116. data/demo/grph1/sgpack/sgpk04.rb +86 -0
  117. data/demo/grph1/sgpack/sgpk05.rb +66 -0
  118. data/demo/grph1/sgpack/sgpk06.rb +91 -0
  119. data/demo/grph1/sgpack/sgpk07.rb +66 -0
  120. data/demo/grph1/sgpack/sgpk08.rb +67 -0
  121. data/demo/grph1/sgpack/sgpk09.rb +61 -0
  122. data/demo/grph1/sgpack/sgpk10.rb +58 -0
  123. data/demo/grph1/sgpack/sgtclr.rb +59 -0
  124. data/demo/grph1/sgpack/sgtone.rb +70 -0
  125. data/demo/grph1/sgpack/sgtonz.rb +66 -0
  126. data/demo/grph1/slpack/slpk01.rb +37 -0
  127. data/demo/grph1/slpack/slpk02.rb +29 -0
  128. data/demo/grph1/slpack/slpk03.rb +36 -0
  129. data/demo/grph1/slpack/slpk04.rb +36 -0
  130. data/demo/grph2/g2pack/g2pk01.rb +78 -0
  131. data/demo/grph2/g2pack/g2pk02.rb +75 -0
  132. data/demo/grph2/grpack/grpk01.rb +65 -0
  133. data/demo/grph2/ucpack/ucpk01.rb +95 -0
  134. data/demo/grph2/ucpack/ucpk02.rb +95 -0
  135. data/demo/grph2/udegpk/u2df01.rb +50 -0
  136. data/demo/grph2/udegpk/u2df02.rb +76 -0
  137. data/demo/grph2/udegpk/u2df03.rb +80 -0
  138. data/demo/grph2/udegpk/u2df04.rb +52 -0
  139. data/demo/grph2/udegpk/u2df05.rb +70 -0
  140. data/demo/grph2/udegpk/u2df06.rb +59 -0
  141. data/demo/grph2/udegpk/u2df07.rb +68 -0
  142. data/demo/grph2/udegpk/u2df08.rb +91 -0
  143. data/demo/grph2/udegpk/u2df09b.rb +88 -0
  144. data/demo/grph2/udegpk/u2df09c.rb +89 -0
  145. data/demo/grph2/udegpk/u2df09e.rb +88 -0
  146. data/demo/grph2/udegpk/u2df09f.rb +89 -0
  147. data/demo/grph2/ulpack/ulpk01.rb +111 -0
  148. data/demo/grph2/ulpack/ulpk01n.rb +111 -0
  149. data/demo/grph2/ulpack/ulpk02.rb +111 -0
  150. data/demo/grph2/ulpack/ulpk02n.rb +111 -0
  151. data/demo/grph2/umpack/t811231.dat +296 -0
  152. data/demo/grph2/umpack/test01.rb +69 -0
  153. data/demo/grph2/umpack/test02.rb +64 -0
  154. data/demo/grph2/umpack/test03.rb +84 -0
  155. data/demo/grph2/umpack/test04.rb +54 -0
  156. data/demo/grph2/umpack/test05.rb +85 -0
  157. data/demo/grph2/umpack/test06.rb +44 -0
  158. data/demo/grph2/umpack/test07.rb +43 -0
  159. data/demo/grph2/umpack/test08.rb +37 -0
  160. data/demo/grph2/umpack/test09.rb +86 -0
  161. data/demo/grph2/umpack/test10.rb +52 -0
  162. data/demo/grph2/umpack/umpk01.rb +65 -0
  163. data/demo/grph2/umpack/umpk02.rb +54 -0
  164. data/demo/grph2/umpack/umpk03.rb +46 -0
  165. data/demo/grph2/umpack/umpk04.rb +65 -0
  166. data/demo/grph2/umpack/umpk05.rb +84 -0
  167. data/demo/grph2/uspack/uspk01.rb +39 -0
  168. data/demo/grph2/uspack/uspk02.rb +47 -0
  169. data/demo/grph2/uspack/uspk03.rb +38 -0
  170. data/demo/grph2/uspack/uspk04.rb +64 -0
  171. data/demo/grph2/uspack/uspk05.rb +68 -0
  172. data/demo/grph2/uspack/uspk06.rb +43 -0
  173. data/demo/grph2/uspack/uspk07.rb +62 -0
  174. data/demo/grph2/uspack/uspk08.rb +46 -0
  175. data/demo/grph2/uspack/uspk09.rb +89 -0
  176. data/demo/grph2/uspack/uspk10.rb +48 -0
  177. data/demo/grph2/uspack/uspk11.rb +71 -0
  178. data/demo/grph2/uspack/uspk12.rb +51 -0
  179. data/demo/grph2/uupack/uupk01.rb +50 -0
  180. data/demo/grph2/uupack/uupk02.rb +74 -0
  181. data/demo/grph2/uupack/uupk03.rb +56 -0
  182. data/demo/grph2/uupack/uupk04.rb +84 -0
  183. data/demo/grph2/uupack/uupk05.rb +74 -0
  184. data/demo/grph2/uupack/uupk06.rb +77 -0
  185. data/demo/grph2/uupack/uupk07.rb +88 -0
  186. data/demo/grph2/uxyzpk/uxyz01.rb +38 -0
  187. data/demo/grph2/uxyzpk/uxyz02.rb +36 -0
  188. data/demo/grph2/uxyzpk/uxyz03.rb +37 -0
  189. data/demo/grph2/uxyzpk/uxyz04.rb +54 -0
  190. data/demo/grph2/uxyzpk/uxyz05.rb +41 -0
  191. data/demo/grph2/uxyzpk/uxyz06.rb +42 -0
  192. data/demo/grph2/uxyzpk/uxyz07.rb +38 -0
  193. data/demo/grph2/uxyzpk/uxyz08.rb +60 -0
  194. data/demo/grph2/uxyzpk/uxyz09.rb +52 -0
  195. data/demo/grph2/uxyzpk/uxyz10.rb +57 -0
  196. data/demo/grph2/ximage/MEMO +23 -0
  197. data/demo/grph2/ximage/tomsclm.dat +1344 -0
  198. data/demo/grph2/ximage/ximg01.rb +145 -0
  199. data/demo/math1/gt2dlib/gt2d01.rb +33 -0
  200. data/demo/math2/fftlib/fftl01.rb +28 -0
  201. data/demo/math2/fftlib/fftl02.rb +224 -0
  202. data/demo/math2/intrlib/intr01.rb +22 -0
  203. data/demo/math2/rnmlib/rnml01.rb +21 -0
  204. data/demo/math2/vstlib/vstl01.rb +29 -0
  205. data/demo/math2/vstlib/vstl02.rb +38 -0
  206. data/demo/rakuraku/color/color1.rb +61 -0
  207. data/demo/rakuraku/color/color2.rb +57 -0
  208. data/demo/rakuraku/color/color3.rb +81 -0
  209. data/demo/rakuraku/kihon/kihon1.rb +39 -0
  210. data/demo/rakuraku/kihon/kihon2.rb +56 -0
  211. data/demo/rakuraku/kihon/kihon3.rb +57 -0
  212. data/demo/rakuraku/kihon/kihon4.rb +70 -0
  213. data/demo/rakuraku/kihon/kihon5.rb +56 -0
  214. data/demo/rakuraku/kihon/kihon6.rb +40 -0
  215. data/demo/rakuraku/kihon/kihon7.rb +98 -0
  216. data/demo/rakuraku/kihon/kihon8.rb +93 -0
  217. data/demo/rakuraku/kihon/kihon9.rb +77 -0
  218. data/demo/rakuraku/kihon/kihona.rb +123 -0
  219. data/demo/rakuraku/kihon/kihonb.rb +73 -0
  220. data/demo/rakuraku/kihon/kihonc.rb +110 -0
  221. data/demo/rakuraku/layout/lay1.rb +29 -0
  222. data/demo/rakuraku/layout/lay2.rb +28 -0
  223. data/demo/rakuraku/layout/lay3.rb +29 -0
  224. data/demo/rakuraku/map3d/map3d1.rb +68 -0
  225. data/demo/rakuraku/map3d/map3d2.rb +67 -0
  226. data/demo/rakuraku/map3d/map3d3.rb +66 -0
  227. data/demo/rakuraku/map3d/map3d4.rb +107 -0
  228. data/demo/rakuraku/map3d/map3d5.rb +118 -0
  229. data/demo/rakuraku/map3d/map3d6.rb +96 -0
  230. data/demo/rakuraku/map3d/map3d7.rb +98 -0
  231. data/demo/rakuraku/miss/miss1.rb +76 -0
  232. data/demo/rakuraku/miss/miss2.rb +60 -0
  233. data/demo/rakuraku/quick/quick1.rb +35 -0
  234. data/demo/rakuraku/quick/quick2.rb +33 -0
  235. data/demo/rakuraku/quick/quick3.rb +46 -0
  236. data/demo/rakuraku/quick/quick4.rb +47 -0
  237. data/demo/rakuraku/quick/quick5.rb +46 -0
  238. data/demo/rakuraku/u2d/u2d1.rb +50 -0
  239. data/demo/rakuraku/u2d/u2d2.rb +51 -0
  240. data/demo/rakuraku/u2d/u2d3.rb +70 -0
  241. data/demo/rakuraku/u2d/u2d4.rb +59 -0
  242. data/demo/rakuraku/u2d/u2d5.rb +61 -0
  243. data/demo/rakuraku/u2d/u2d6.rb +57 -0
  244. data/demo/rakuraku/u2d/u2d7.rb +103 -0
  245. data/demo/rakuraku/uspack/uspac1.rb +35 -0
  246. data/demo/rakuraku/uspack/uspac2.rb +66 -0
  247. data/demo/rakuraku/uspack/uspac3.rb +37 -0
  248. data/demo/rakuraku/uspack/uspac4.rb +49 -0
  249. data/demo/rakuraku/uxyz/uxyz1.rb +37 -0
  250. data/demo/rakuraku/uxyz/uxyz2.rb +35 -0
  251. data/demo/rakuraku/uxyz/uxyz3.rb +38 -0
  252. data/demo/rakuraku/uxyz/uxyz4.rb +36 -0
  253. data/demo/rakuraku/uxyz/uxyz5.rb +57 -0
  254. data/demo/rakuraku/uxyz/uxyz6.rb +43 -0
  255. data/demo/rakuraku/uxyz/uxyz7.rb +39 -0
  256. data/demo/rakuraku/uxyz/uxyz8.rb +56 -0
  257. data/demo/rubydcloriginal/uemrkz1.rb +37 -0
  258. data/dummy.c +9 -0
  259. data/extconf.rb +133 -0
  260. data/grph1_csgi.c +119 -0
  261. data/grph1_scpack.c +1388 -0
  262. data/grph1_sgpack.c +3876 -0
  263. data/grph1_slpack.c +432 -0
  264. data/grph1_stpack.c +1044 -0
  265. data/grph1_swpack.c +1922 -0
  266. data/grph1_zgpack.c.org +141 -0
  267. data/grph2_grpack.c +368 -0
  268. data/grph2_ucpack.c +1232 -0
  269. data/grph2_udpack.c +1404 -0
  270. data/grph2_uepack.c +1443 -0
  271. data/grph2_ugpack.c +1073 -0
  272. data/grph2_uhpack.c +943 -0
  273. data/grph2_ulpack.c +1304 -0
  274. data/grph2_umpack.c +1540 -0
  275. data/grph2_uspack.c +2481 -0
  276. data/grph2_uupack.c +1689 -0
  277. data/grph2_uvpack.c +943 -0
  278. data/grph2_uwpack.c +552 -0
  279. data/grph2_uxpack.c +555 -0
  280. data/grph2_uypack.c +555 -0
  281. data/grph2_uzpack.c +1455 -0
  282. data/init.c.default +187 -0
  283. data/init.c.gtk +189 -0
  284. data/lib/dcl.rb +5084 -0
  285. data/math1_blklib.c +227 -0
  286. data/math1_chrlib.c +239 -0
  287. data/math1_fnclib.c +254 -0
  288. data/math1_gnmlib.c +356 -0
  289. data/math1_gt2dlib.c +514 -0
  290. data/math1_ifalib.c +427 -0
  291. data/math1_indxlib.c +709 -0
  292. data/math1_intlib.c +167 -0
  293. data/math1_lrllib.c +817 -0
  294. data/math1_maplib.c +172 -0
  295. data/math1_oslib.c +111 -0
  296. data/math1_rfalib.c +1417 -0
  297. data/math1_rfblib.c +232 -0
  298. data/math1_sublib.c +221 -0
  299. data/math1_syslib.c +2025 -0
  300. data/math1_vialib.c +1156 -0
  301. data/math1_viblib.c +1027 -0
  302. data/math1_vralib.c +1156 -0
  303. data/math1_vrblib.c +1027 -0
  304. data/math1_xfclib.c +142 -0
  305. data/math2_fftlib.c +833 -0
  306. data/math2_intrlib.c +138 -0
  307. data/math2_rnmlib.c +226 -0
  308. data/math2_shtlib.c +1568 -0
  309. data/math2_vstlib.c +366 -0
  310. data/misc1_chnlib.c +179 -0
  311. data/misc1_datelib.c +953 -0
  312. data/misc1_fmtlib.c +99 -0
  313. data/misc1_misclib.c +118 -0
  314. data/misc1_randlib.c +142 -0
  315. data/misc1_timelib.c +380 -0
  316. data/obsolete/README +2 -0
  317. data/obsolete/dcl_ext.html +112 -0
  318. data/obsolete/dcl_ext.rb +313 -0
  319. metadata +433 -0
data/GenWrapper/proto/math2_vstlib.fp ADDED
@@ -0,0 +1,84 @@
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
+
data/GenWrapper/proto/misc1_00 ADDED
@@ -0,0 +1,17 @@
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
+
data/GenWrapper/proto/misc1_chnlib.fp ADDED
@@ -0,0 +1,47 @@
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
+
data/GenWrapper/proto/misc1_datelib.fp ADDED
@@ -0,0 +1,352 @@
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
+ */