ruby-dcl 1.7.1 → 1.8.0

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 (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/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