ruby-dcl 1.7.1 → 1.8.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 (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
data/GenWrapper/proto/grph1_swpack.fp DELETED
@@ -1,826 +0,0 @@
1
- /*
2
- * grph1_swpack.fp
3
- *
4
- * $Id: grph1_swpack.fp,v 1.3 2015/03/18 03:27:42 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph1/swpack/swpack.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE SWDOPN
12
- */
13
- SUBROUTINE SWDOPN(
14
- )
15
-
16
- /*
17
- * ENTRY SWDCLS
18
- */
19
- SUBROUTINE SWDCLS(
20
- )
21
-
22
- /*
23
- * ENTRY SWQFCC(LFCATR)
24
- * LOGICAL LFCATR
25
- */
26
- #if DCLVER >= 544
27
- SUBROUTINE SWQFCC(
28
- LOGICAL o LFCATR
29
- )
30
- #endif
31
-
32
- /*
33
- * ENTRY SWSFCM(LFCMOD)
34
- * LOGICAL LFCMOD
35
- */
36
- #if DCLVER >= 544
37
- SUBROUTINE SWSFCM(
38
- LOGICAL o LFCMOD
39
- )
40
- #endif
41
-
42
- /*
43
- * ENTRY SWPOPN
44
- */
45
- SUBROUTINE SWPOPN(
46
- )
47
-
48
- /*
49
- * ENTRY SWPCLS
50
- */
51
- SUBROUTINE SWPCLS(
52
- )
53
-
54
- /*
55
- * ENTRY SWOOPN(COBJ, COMM)
56
- * CHARACTER COBJ*(*), COMM*(*)
57
- */
58
- SUBROUTINE SWOOPN(
59
- CHARACTER*(*) COBJ
60
- CHARACTER*(*) COMM
61
- )
62
-
63
- /*
64
- * ENTRY SWOCLS(COBJ)
65
- * CHARACTER COBJ*(*), COMM*(*)
66
- */
67
- SUBROUTINE SWOCLS(
68
- CHARACTER*(*) COBJ
69
- )
70
-
71
- /*
72
- * ENTRY SWSWDI(IWDIDX)
73
- */
74
- SUBROUTINE SWSWDI(
75
- INTEGER IWDIDX
76
- )
77
-
78
- #if DCLVER >= 544
79
- /*
80
- * ENTRY SWSCLI(ICLIDX,LFCATR)
81
- * LOGICAL LFCATR
82
- */
83
- SUBROUTINE SWSCLI(
84
- INTEGER ICLIDX
85
- LOGICAL LFCATR
86
- )
87
- #else
88
- /*
89
- * ENTRY SWSCLI(ICLIDX)
90
- */
91
- SUBROUTINE SWSCLI(
92
- INTEGER ICLIDX
93
- )
94
- #endif
95
-
96
-
97
- /*
98
- * ENTRY SWSLCL(ICOLOR)
99
- */
100
- #if DCLVER >= 544
101
- SUBROUTINE SWSLCL(
102
- INTEGER ICOLOR
103
- )
104
- #endif
105
-
106
- /*
107
- * ENTRY SWGOPN
108
- */
109
- SUBROUTINE SWGOPN(
110
- )
111
-
112
- /*
113
- * ENTRY SWGMOV(WX,WY)
114
- */
115
- SUBROUTINE SWGMOV(
116
- REAL WX
117
- REAL WY
118
- )
119
-
120
- /*
121
- * ENTRY SWGPLT(WX,WY)
122
- */
123
- SUBROUTINE SWGPLT(
124
- REAL WX
125
- REAL WY
126
- )
127
-
128
- /*
129
- * ENTRY SWGCLS
130
- */
131
- SUBROUTINE SWGCLS(
132
- )
133
-
134
- /*
135
- * ENTRY SWSTCL(ICOLOR)
136
- */
137
- #if DCLVER >= 544
138
- SUBROUTINE SWSTCL(
139
- INTEGER ICOLOR
140
- )
141
- #endif
142
-
143
- /*
144
- * ENTRY SWGTON(NP,WPX,WPY,ITPAT)
145
- * REAL WPX(*), WPY(*)
146
- */
147
- SUBROUTINE SWGTON(
148
- INTEGER NP
149
- REAL (NP) WPX
150
- REAL (NP) WPY
151
- INTEGER ITPAT
152
- )
153
-
154
- /*
155
- * ENTRY SWIOPN(IWX,IWY,IMW,IMH,
156
- * + WX1, WY1, WX2, WY2, WX3, WY3, WX4, WY4)
157
- *
158
- * ( ENTRY SWIOPN(IWX,IWY,IMW,IMH) for <= dcl-5.2 )
159
- */
160
- SUBROUTINE SWIOPN(
161
- INTEGER IWX
162
- INTEGER IWY
163
- INTEGER IMW
164
- INTEGER IMH
165
- REAL WX1
166
- REAL WY1
167
- REAL WX2
168
- REAL WY2
169
- REAL WX3
170
- REAL WY3
171
- REAL WX4
172
- REAL WY4
173
- )
174
-
175
- /*
176
- * ENTRY SWIDAT(IMAGE, NLEN)
177
- * INTEGER IMAGE(*)
178
- */
179
- SUBROUTINE SWIDAT(
180
- INTEGER (NLEN) IMAGE
181
- INTEGER NLEN
182
- )
183
-
184
- /*
185
- * ENTRY SWICLR(IMAGE, NLEN)
186
- * INTEGER IMAGE(*)
187
- */
188
- #if DCLVER >= 544
189
- SUBROUTINE SWICLR(
190
- INTEGER (NLEN) IMAGE
191
- INTEGER NLEN
192
- )
193
- #endif
194
-
195
- /*
196
- * ENTRY SWICLS
197
- */
198
- SUBROUTINE SWICLS(
199
- )
200
-
201
- /*
202
- * ENTRY SWQPNT(WX,WY,MB)
203
- */
204
- SUBROUTINE SWQPNT(
205
- REAL o WX
206
- REAL o WY
207
- INTEGER o MB
208
- )
209
-
210
- /*
211
- * ENTRY SWFINT(WX, WY, IWX, IWY)
212
- */
213
- SUBROUTINE SWFINT(
214
- REAL WX
215
- REAL WY
216
- INTEGER o IWX
217
- INTEGER o IWY
218
- )
219
-
220
- /*
221
- * ENTRY SWIINT(IWX, IWY, WX, WY)
222
- */
223
- SUBROUTINE SWIINT(
224
- INTEGER IWX
225
- INTEGER IWY
226
- REAL o WX
227
- REAL o WY
228
- )
229
-
230
- /*
231
- * ENTRY SWQWDC(LWDATR)
232
- * LOGICAL LWDATR, LCLATR, LTNATR, LIMATR, LPTATR
233
- */
234
- SUBROUTINE SWQWDC(
235
- LOGICAL o LWDATR
236
- )
237
-
238
- /*
239
- * ENTRY SWQCLC(LCLATR)
240
- * LOGICAL LWDATR, LCLATR, LTNATR, LIMATR, LPTATR
241
- */
242
- SUBROUTINE SWQCLC(
243
- LOGICAL o LCLATR
244
- )
245
-
246
- /*
247
- * ENTRY SWQTNC(LTNATR)
248
- * LOGICAL LWDATR, LCLATR, LTNATR, LIMATR, LPTATR
249
- */
250
- SUBROUTINE SWQTNC(
251
- LOGICAL o LTNATR
252
- )
253
-
254
- /*
255
- * ENTRY SWQIMC(LIMATR)
256
- * LOGICAL LWDATR, LCLATR, LTNATR, LIMATR, LPTATR
257
- */
258
- SUBROUTINE SWQIMC(
259
- LOGICAL o LIMATR
260
- )
261
-
262
- /*
263
- * ENTRY SWQPTC(LPTATR)
264
- * LOGICAL LWDATR, LCLATR, LTNATR, LIMATR, LPTATR
265
- */
266
- SUBROUTINE SWQPTC(
267
- LOGICAL o LPTATR
268
- )
269
-
270
- /*
271
- * ENTRY SWQRCT(WSXMN,WSXMX,WSYMN,WSYMX,FACT)
272
- */
273
- SUBROUTINE SWQRCT(
274
- REAL o WSXMN
275
- REAL o WSXMX
276
- REAL o WSYMN
277
- REAL o WSYMX
278
- REAL o FACT
279
- )
280
-
281
- /*
282
- * ENTRY SWSROT(IWTROT)
283
- */
284
- SUBROUTINE SWSROT(
285
- INTEGER IWTROT
286
- )
287
-
288
- /*
289
- * ENTRY SWCLCH()
290
- */
291
- #if DCLVER >= 544
292
- SUBROUTINE SWCLCH(
293
- )
294
- #endif
295
-
296
- /*****************************************************
297
- * grph1/swpack/swpqnp.f
298
- ****************************************************/
299
- /*
300
- * SUBROUTINE SWPQNP(NCP)
301
- */
302
- SUBROUTINE SWPQNP(
303
- INTEGER o NCP
304
- )
305
-
306
- /*
307
- * ENTRY SWPQID(CP, IDX)
308
- * CHARACTER CP*(*)
309
- */
310
- SUBROUTINE SWPQID(
311
- CHARACTER*(*) CP
312
- INTEGER o IDX
313
- )
314
-
315
- /*
316
- * ENTRY SWPQCP(IDX, CP)
317
- * CHARACTER CP*(*)
318
- */
319
- SUBROUTINE SWPQCP(
320
- INTEGER IDX
321
- CHARACTER*(*) o CP
322
- )
323
-
324
- /*
325
- * ENTRY SWPQCL(IDX, CP)
326
- * CHARACTER CP*(*)
327
- */
328
- SUBROUTINE SWPQCL(
329
- INTEGER IDX
330
- CHARACTER*(*) o CP
331
- )
332
-
333
- /*
334
- * ENTRY SWPQIT(IDX, ITP)
335
- */
336
- SUBROUTINE SWPQIT(
337
- INTEGER IDX
338
- INTEGER o ITP
339
- )
340
-
341
- /*
342
- * ENTRY SWPQVL(IDX, IPARA)
343
- */
344
- SUBROUTINE SWPQVL(
345
- INTEGER IDX
346
- INTEGER o IPARA
347
- )
348
-
349
- /*
350
- * ENTRY SWPSVL(IDX, IPARA)
351
- */
352
- SUBROUTINE SWPSVL(
353
- INTEGER IDX
354
- INTEGER IPARA
355
- )
356
-
357
- /*
358
- * ENTRY SWPQIN(CP, IN)
359
- * CHARACTER CP*(*)
360
- */
361
- SUBROUTINE SWPQIN(
362
- CHARACTER*(*) CP
363
- INTEGER o IN
364
- )
365
-
366
- /*****************************************************
367
- * grph1/swpack/swpget.f
368
- ****************************************************/
369
- /*
370
- * SUBROUTINE SWPGET(CP, IPARA)
371
- * CHARACTER CP*(*)
372
- */
373
- /* SUBROUTINE SWPGET(
374
- * CHARACTER*(*) CP
375
- * INTEGER o IPARA
376
- * )
377
- */
378
-
379
- /*
380
- * ENTRY SWPSET(CP, IPARA)
381
- * CHARACTER CP*(*)
382
- */
383
- /* SUBROUTINE SWPSET(
384
- * CHARACTER*(*) CP
385
- * INTEGER IPARA
386
- * )
387
- */
388
-
389
- /*
390
- * ENTRY SWPSTX(CP, IPARA)
391
- * CHARACTER CP*(*)
392
- */
393
- /* SUBROUTINE SWPSTX(
394
- * CHARACTER*(*) CP
395
- * INTEGER IPARA
396
- * )
397
- */
398
-
399
- /*****************************************************
400
- * grph1/swpack/swcget.f
401
- ****************************************************/
402
- /*
403
- * SUBROUTINE SWCGET(CP, CPARA)
404
- * CHARACTER CP*(*), CPARA*(*)
405
- */
406
- SUBROUTINE SWCGET(
407
- CHARACTER*(*) CP
408
- CHARACTER*(*) o CPARA
409
- )
410
-
411
- /*
412
- * ENTRY SWCSET(CP, CPARA)
413
- * CHARACTER CP*(*), CPARA*(*)
414
- */
415
- SUBROUTINE SWCSET(
416
- CHARACTER*(*) CP
417
- CHARACTER*(*) CPARA
418
- )
419
-
420
- /*
421
- * ENTRY SWCSTX(CP, CPARA)
422
- * CHARACTER CP*(*), CPARA*(*)
423
- */
424
- SUBROUTINE SWCSTX(
425
- CHARACTER*(*) CP
426
- CHARACTER*(*) CPARA
427
- )
428
-
429
- /*****************************************************
430
- * grph1/swpack/swqfnm.f
431
- ****************************************************/
432
- /*
433
- * SUBROUTINE SWQFNM(CPARA,CFNAME)
434
- * CHARACTER CPARA*(*),CFNAME*(*)
435
- */
436
- SUBROUTINE SWQFNM(
437
- CHARACTER*(*) CPARA
438
- CHARACTER*(*) o CFNAME
439
- )
440
-
441
- /*****************************************************
442
- * grph1/swpack/swcqnp.f
443
- ****************************************************/
444
- /*
445
- * SUBROUTINE SWCQNP(NCP)
446
- */
447
- SUBROUTINE SWCQNP(
448
- INTEGER o NCP
449
- )
450
-
451
- /*
452
- * ENTRY SWCQID(CP, IDX)
453
- * CHARACTER CP*(*), CVAL*(*)
454
- */
455
- SUBROUTINE SWCQID(
456
- CHARACTER*(*) CP
457
- INTEGER o IDX
458
- )
459
-
460
- /*
461
- * ENTRY SWCQCP(IDX, CP)
462
- * CHARACTER CP*(*), CVAL*(*)
463
- */
464
- SUBROUTINE SWCQCP(
465
- INTEGER IDX
466
- CHARACTER*(*) o CP
467
- )
468
-
469
- /*
470
- * ENTRY SWCQCL(IDX, CP)
471
- * CHARACTER CP*(*), CVAL*(*)
472
- */
473
- SUBROUTINE SWCQCL(
474
- INTEGER IDX
475
- CHARACTER*(*) o CP
476
- )
477
-
478
- /*
479
- * ENTRY SWCQVL(IDX, CVAL)
480
- * CHARACTER CP*(*), CVAL*(*)
481
- */
482
- SUBROUTINE SWCQVL(
483
- INTEGER IDX
484
- CHARACTER*(*) o CVAL
485
- )
486
-
487
- /*
488
- * ENTRY SWCSVL(IDX, CVAL)
489
- * CHARACTER CP*(*), CVAL*(*)
490
- */
491
- SUBROUTINE SWCSVL(
492
- INTEGER IDX
493
- CHARACTER*(*) CVAL
494
- )
495
-
496
- /*
497
- * ENTRY SWCQIN(CP, IN)
498
- * CHARACTER CP*(*), CVAL*(*)
499
- */
500
- SUBROUTINE SWCQIN(
501
- CHARACTER*(*) CP
502
- INTEGER o IN
503
- )
504
-
505
- /*****************************************************
506
- * grph1/swpack/swiget.f
507
- ****************************************************/
508
- /*
509
- * SUBROUTINE SWIGET(CP, IPARA)
510
- * CHARACTER CP*(*)
511
- */
512
- SUBROUTINE SWIGET(
513
- CHARACTER*(*) CP
514
- INTEGER o IPARA
515
- )
516
-
517
- /*
518
- * ENTRY SWISET(CP, IPARA)
519
- * CHARACTER CP*(*)
520
- */
521
- SUBROUTINE SWISET(
522
- CHARACTER*(*) CP
523
- INTEGER IPARA
524
- )
525
-
526
- /*
527
- * ENTRY SWISTX(CP, IPARA)
528
- * CHARACTER CP*(*)
529
- */
530
- SUBROUTINE SWISTX(
531
- CHARACTER*(*) CP
532
- INTEGER IPARA
533
- )
534
-
535
- /*****************************************************
536
- * grph1/swpack/swiqnp.f
537
- ****************************************************/
538
- /*
539
- * SUBROUTINE SWIQNP(NCP)
540
- */
541
- SUBROUTINE SWIQNP(
542
- INTEGER o NCP
543
- )
544
-
545
- /*
546
- * ENTRY SWIQID(CP, IDX)
547
- * CHARACTER CP*(*)
548
- */
549
- SUBROUTINE SWIQID(
550
- CHARACTER*(*) CP
551
- INTEGER o IDX
552
- )
553
-
554
- /*
555
- * ENTRY SWIQCP(IDX, CP)
556
- * CHARACTER CP*(*)
557
- */
558
- SUBROUTINE SWIQCP(
559
- INTEGER IDX
560
- CHARACTER*(*) o CP
561
- )
562
-
563
- /*
564
- * ENTRY SWIQCL(IDX, CP)
565
- * CHARACTER CP*(*)
566
- */
567
- SUBROUTINE SWIQCL(
568
- INTEGER IDX
569
- CHARACTER*(*) o CP
570
- )
571
-
572
- /*
573
- * ENTRY SWIQVL(IDX, IPARA)
574
- */
575
- SUBROUTINE SWIQVL(
576
- INTEGER IDX
577
- INTEGER o IPARA
578
- )
579
-
580
- /*
581
- * ENTRY SWISVL(IDX, IPARA)
582
- */
583
- SUBROUTINE SWISVL(
584
- INTEGER IDX
585
- INTEGER IPARA
586
- )
587
-
588
- /*
589
- * ENTRY SWIQIN(CP, IN)
590
- * CHARACTER CP*(*)
591
- */
592
- SUBROUTINE SWIQIN(
593
- CHARACTER*(*) CP
594
- INTEGER o IN
595
- )
596
-
597
- /*****************************************************
598
- * grph1/swpack/swlget.f
599
- ****************************************************/
600
- /*
601
- * SUBROUTINE SWLGET(CP, LPARA)
602
- * CHARACTER CP*(*)
603
- * LOGICAL LPARA
604
- */
605
- SUBROUTINE SWLGET(
606
- CHARACTER*(*) CP
607
- LOGICAL o LPARA
608
- )
609
-
610
- /*
611
- * ENTRY SWLSET(CP, LPARA)
612
- * CHARACTER CP*(*)
613
- * LOGICAL LPARA
614
- */
615
- SUBROUTINE SWLSET(
616
- CHARACTER*(*) CP
617
- LOGICAL LPARA
618
- )
619
-
620
- /*
621
- * ENTRY SWLSTX(CP, LPARA)
622
- * CHARACTER CP*(*)
623
- * LOGICAL LPARA
624
- */
625
- SUBROUTINE SWLSTX(
626
- CHARACTER*(*) CP
627
- LOGICAL LPARA
628
- )
629
-
630
- /*****************************************************
631
- * grph1/swpack/swlqnp.f
632
- ****************************************************/
633
- /*
634
- * SUBROUTINE SWLQNP(NCP)
635
- */
636
- SUBROUTINE SWLQNP(
637
- INTEGER o NCP
638
- )
639
-
640
- /*
641
- * ENTRY SWLQID(CP, IDX)
642
- * CHARACTER CP*(*)
643
- */
644
- SUBROUTINE SWLQID(
645
- CHARACTER*(*) CP
646
- INTEGER o IDX
647
- )
648
-
649
- /*
650
- * ENTRY SWLQCP(IDX, CP)
651
- * CHARACTER CP*(*)
652
- */
653
- SUBROUTINE SWLQCP(
654
- INTEGER IDX
655
- CHARACTER*(*) o CP
656
- )
657
-
658
- /*
659
- * ENTRY SWLQCL(IDX, CP)
660
- * CHARACTER CP*(*)
661
- */
662
- SUBROUTINE SWLQCL(
663
- INTEGER IDX
664
- CHARACTER*(*) o CP
665
- )
666
-
667
- /*
668
- * ENTRY SWLQVL(IDX, LPARA)
669
- * LOGICAL LPARA
670
- */
671
- SUBROUTINE SWLQVL(
672
- INTEGER IDX
673
- LOGICAL o LPARA
674
- )
675
-
676
- /*
677
- * ENTRY SWLSVL(IDX, LPARA)
678
- * LOGICAL LPARA
679
- */
680
- SUBROUTINE SWLSVL(
681
- INTEGER IDX
682
- LOGICAL LPARA
683
- )
684
-
685
- /*
686
- * ENTRY SWLQIN(CP, IN)
687
- * CHARACTER CP*(*)
688
- */
689
- SUBROUTINE SWLQIN(
690
- CHARACTER*(*) CP
691
- INTEGER o IN
692
- )
693
-
694
- /*****************************************************
695
- * grph1/swpack/swrget.f
696
- ****************************************************/
697
- /*
698
- * SUBROUTINE SWRGET(CP, RPARA)
699
- * CHARACTER CP*(*)
700
- */
701
- SUBROUTINE SWRGET(
702
- CHARACTER*(*) CP
703
- REAL o RPARA
704
- )
705
-
706
- /*
707
- * ENTRY SWRSET(CP, RPARA)
708
- * CHARACTER CP*(*)
709
- */
710
- SUBROUTINE SWRSET(
711
- CHARACTER*(*) CP
712
- REAL RPARA
713
- )
714
-
715
- /*
716
- * ENTRY SWRSTX(CP, RPARA)
717
- * CHARACTER CP*(*)
718
- */
719
- SUBROUTINE SWRSTX(
720
- CHARACTER*(*) CP
721
- REAL RPARA
722
- )
723
-
724
- /*****************************************************
725
- * grph1/swpack/swrqnp.f
726
- ****************************************************/
727
- /*
728
- * SUBROUTINE SWRQNP(NCP)
729
- */
730
- SUBROUTINE SWRQNP(
731
- INTEGER o NCP
732
- )
733
-
734
- /*
735
- * ENTRY SWRQID(CP, IDX)
736
- * CHARACTER CP*(*)
737
- */
738
- SUBROUTINE SWRQID(
739
- CHARACTER*(*) CP
740
- INTEGER o IDX
741
- )
742
-
743
- /*
744
- * ENTRY SWRQCP(IDX, CP)
745
- * CHARACTER CP*(*)
746
- */
747
- SUBROUTINE SWRQCP(
748
- INTEGER IDX
749
- CHARACTER*(*) o CP
750
- )
751
-
752
- /*
753
- * ENTRY SWRQCL(IDX, CP)
754
- * CHARACTER CP*(*)
755
- */
756
- SUBROUTINE SWRQCL(
757
- INTEGER IDX
758
- CHARACTER*(*) o CP
759
- )
760
-
761
- /*
762
- * ENTRY SWRQVL(IDX, RPARA)
763
- */
764
- SUBROUTINE SWRQVL(
765
- INTEGER IDX
766
- REAL o RPARA
767
- )
768
-
769
- /*
770
- * ENTRY SWRSVL(IDX, RPARA)
771
- */
772
- SUBROUTINE SWRSVL(
773
- INTEGER IDX
774
- REAL RPARA
775
- )
776
-
777
- /*
778
- * ENTRY SWRQIN(CP, IN)
779
- * CHARACTER CP*(*)
780
- */
781
- SUBROUTINE SWRQIN(
782
- CHARACTER*(*) CP
783
- INTEGER o IN
784
- )
785
-
786
-
787
- /*****************************************************
788
- * grph1/swpack/swcmll.f
789
- ****************************************************/
790
- /*
791
- * SUBROUTINE SWCMLL
792
- * CHARACTER CTF*(*),CTD*(*)
793
- */
794
- #if DCLVER >= 530
795
- SUBROUTINE SWCMLL(
796
- )
797
- #endif
798
-
799
- /*
800
- * ENTRY SWQCMN(NN)
801
- */
802
- #if DCLVER >= 530
803
- SUBROUTINE SWQCMN(
804
- INTEGER o NN
805
- )
806
- #endif
807
-
808
- /*
809
- * ENTRY SWQCMF(NTX,CTF)
810
- */
811
- #if DCLVER >= 530
812
- SUBROUTINE SWQCMF(
813
- INTEGER NTX
814
- CHARACTER*(*) o CTF
815
- )
816
- #endif
817
-
818
- /*
819
- * ENTRY SWQCMD(NTX,CTD)
820
- */
821
- #if DCLVER >= 530
822
- SUBROUTINE SWQCMD(
823
- INTEGER NTX
824
- CHARACTER*(*) o CTD
825
- )
826
- #endif