ruby-dcl 1.7.1 → 1.8.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (307) hide show
  1. checksums.yaml +4 -4
  2. data/{ChangeLog → .ChangeLog.until20150318} +0 -0
  3. data/LICENSE.txt +1 -1
  4. data/Rakefile +7 -11
  5. data/demo/gokuraku/hop/hop.rb +1 -1
  6. data/demo/gokuraku/jump/jump1.rb +1 -1
  7. data/demo/gokuraku/jump/jump2.rb +1 -1
  8. data/demo/gokuraku/layout/lay1.rb +1 -1
  9. data/demo/gokuraku/layout/lay2.rb +1 -1
  10. data/demo/gokuraku/step/step0.rb +1 -1
  11. data/demo/gokuraku/step/step1.rb +1 -1
  12. data/demo/gokuraku/step/step2.rb +1 -1
  13. data/demo/gokuraku/u1d/u1d1.rb +1 -1
  14. data/demo/gokuraku/u1d/u1d2.rb +1 -1
  15. data/demo/gokuraku/u2d/u2d1.rb +1 -1
  16. data/demo/gokuraku/u2d/u2d2.rb +1 -1
  17. data/demo/gokuraku/u2d/u2d3.rb +1 -1
  18. data/demo/gokuraku/u2d/u2d4.rb +1 -1
  19. data/demo/grph1/scpack/scpkt2.rb +1 -1
  20. data/demo/grph1/scpack/scpkt3.rb +1 -1
  21. data/demo/grph1/scpack/scpkt6.rb +1 -1
  22. data/demo/grph1/scpack/scpkt7.rb +1 -1
  23. data/demo/grph1/scpack/scpkt8.rb +1 -1
  24. data/demo/grph1/sgpack/sgfont.rb +1 -1
  25. data/demo/grph1/sgpack/sgfonz.rb +1 -1
  26. data/demo/grph1/sgpack/sgksx1.rb +1 -1
  27. data/demo/grph1/sgpack/sgksx2.rb +1 -1
  28. data/demo/grph1/sgpack/sgksx3.rb +1 -1
  29. data/demo/grph1/sgpack/sglidx.rb +1 -1
  30. data/demo/grph1/sgpack/sgltyp.rb +1 -1
  31. data/demo/grph1/sgpack/sgpk01.rb +1 -1
  32. data/demo/grph1/sgpack/sgpk02.rb +1 -1
  33. data/demo/grph1/sgpack/sgpk03.rb +1 -1
  34. data/demo/grph1/sgpack/sgpk04.rb +1 -1
  35. data/demo/grph1/sgpack/sgpk05.rb +1 -1
  36. data/demo/grph1/sgpack/sgpk06.rb +1 -1
  37. data/demo/grph1/sgpack/sgpk07.rb +1 -1
  38. data/demo/grph1/sgpack/sgpk08.rb +1 -1
  39. data/demo/grph1/sgpack/sgpk09.rb +1 -1
  40. data/demo/grph1/sgpack/sgpk10.rb +1 -1
  41. data/demo/grph1/sgpack/sgtclr.rb +1 -1
  42. data/demo/grph1/sgpack/sgtone.rb +1 -1
  43. data/demo/grph1/sgpack/sgtonz.rb +1 -1
  44. data/demo/grph1/slpack/slpk01.rb +1 -1
  45. data/demo/grph1/slpack/slpk02.rb +1 -1
  46. data/demo/grph1/slpack/slpk03.rb +1 -1
  47. data/demo/grph1/slpack/slpk04.rb +1 -1
  48. data/demo/grph2/grpack/grpk01.rb +1 -1
  49. data/demo/grph2/ucpack/ucpk01.rb +1 -1
  50. data/demo/grph2/ucpack/ucpk02.rb +1 -1
  51. data/demo/grph2/udegpk/u2df01.rb +1 -1
  52. data/demo/grph2/udegpk/u2df02.rb +1 -1
  53. data/demo/grph2/udegpk/u2df03.rb +1 -1
  54. data/demo/grph2/udegpk/u2df04.rb +1 -1
  55. data/demo/grph2/udegpk/u2df05.rb +1 -1
  56. data/demo/grph2/udegpk/u2df06.rb +1 -1
  57. data/demo/grph2/udegpk/u2df07.rb +1 -1
  58. data/demo/grph2/udegpk/u2df08.rb +1 -1
  59. data/demo/grph2/uipack/uipk01.rb +1 -1
  60. data/demo/grph2/uipack/uipk02.rb +1 -1
  61. data/demo/grph2/ulpack/ulpk01.rb +1 -1
  62. data/demo/grph2/ulpack/ulpk01n.rb +1 -1
  63. data/demo/grph2/ulpack/ulpk02.rb +1 -1
  64. data/demo/grph2/ulpack/ulpk02n.rb +1 -1
  65. data/demo/grph2/umpack/test01.rb +1 -1
  66. data/demo/grph2/umpack/test02.rb +1 -1
  67. data/demo/grph2/umpack/test03.rb +1 -1
  68. data/demo/grph2/umpack/test04.rb +1 -1
  69. data/demo/grph2/umpack/test05.rb +1 -1
  70. data/demo/grph2/umpack/test06.rb +1 -1
  71. data/demo/grph2/umpack/test07.rb +1 -1
  72. data/demo/grph2/umpack/test08.rb +1 -1
  73. data/demo/grph2/umpack/umpk01.rb +1 -1
  74. data/demo/grph2/umpack/umpk02.rb +1 -1
  75. data/demo/grph2/umpack/umpk03.rb +1 -1
  76. data/demo/grph2/umpack/umpk04.rb +1 -1
  77. data/demo/grph2/umpack/umpk05.rb +1 -1
  78. data/demo/grph2/uspack/uspk01.rb +1 -1
  79. data/demo/grph2/uspack/uspk02.rb +1 -1
  80. data/demo/grph2/uspack/uspk03.rb +1 -1
  81. data/demo/grph2/uspack/uspk04.rb +1 -1
  82. data/demo/grph2/uspack/uspk05.rb +1 -1
  83. data/demo/grph2/uspack/uspk06.rb +1 -1
  84. data/demo/grph2/uspack/uspk07.rb +1 -1
  85. data/demo/grph2/uspack/uspk08.rb +1 -1
  86. data/demo/grph2/uspack/uspk09.rb +1 -1
  87. data/demo/grph2/uspack/uspk10.rb +1 -1
  88. data/demo/grph2/uspack/uspk11.rb +1 -1
  89. data/demo/grph2/uspack/uspk12.rb +1 -1
  90. data/demo/grph2/uupack/uupk01.rb +1 -1
  91. data/demo/grph2/uupack/uupk02.rb +1 -1
  92. data/demo/grph2/uupack/uupk03.rb +1 -1
  93. data/demo/grph2/uupack/uupk04.rb +1 -1
  94. data/demo/grph2/uupack/uupk05.rb +1 -1
  95. data/demo/grph2/uupack/uupk06.rb +1 -1
  96. data/demo/grph2/uupack/uupk07.rb +1 -1
  97. data/demo/grph2/uxyzpk/uxyz01.rb +1 -1
  98. data/demo/grph2/uxyzpk/uxyz02.rb +1 -1
  99. data/demo/grph2/uxyzpk/uxyz03.rb +1 -1
  100. data/demo/grph2/uxyzpk/uxyz04.rb +1 -1
  101. data/demo/grph2/uxyzpk/uxyz05.rb +1 -1
  102. data/demo/grph2/uxyzpk/uxyz06.rb +1 -1
  103. data/demo/grph2/uxyzpk/uxyz07.rb +1 -1
  104. data/demo/grph2/uxyzpk/uxyz08.rb +1 -1
  105. data/demo/grph2/uxyzpk/uxyz09.rb +1 -1
  106. data/demo/grph2/uxyzpk/uxyz10.rb +1 -1
  107. data/demo/grph2/ximage/ximg01.rb +1 -1
  108. data/demo/math1/clsplib/cslb01.rb +1 -1
  109. data/demo/math2/fftlib/fftl01.rb +1 -1
  110. data/demo/math2/fftlib/fftl02.rb +1 -1
  111. data/demo/math2/intrlib/intr01.rb +1 -1
  112. data/demo/math2/rnmlib/rnml01.rb +1 -1
  113. data/demo/math2/vstlib/vstl01.rb +1 -1
  114. data/demo/math2/vstlib/vstl02.rb +1 -1
  115. data/demo/rakuraku/color/color1.rb +1 -1
  116. data/demo/rakuraku/color/color2.rb +1 -1
  117. data/demo/rakuraku/color/color3.rb +1 -1
  118. data/demo/rakuraku/kihon/kihon1.rb +1 -1
  119. data/demo/rakuraku/kihon/kihon2.rb +1 -1
  120. data/demo/rakuraku/kihon/kihon3.rb +1 -1
  121. data/demo/rakuraku/kihon/kihon4.rb +1 -1
  122. data/demo/rakuraku/kihon/kihon5.rb +1 -1
  123. data/demo/rakuraku/kihon/kihon6.rb +1 -1
  124. data/demo/rakuraku/kihon/kihon7.rb +1 -1
  125. data/demo/rakuraku/kihon/kihon8.rb +1 -1
  126. data/demo/rakuraku/kihon/kihon9.rb +1 -1
  127. data/demo/rakuraku/kihon/kihona.rb +1 -1
  128. data/demo/rakuraku/kihon/kihonb.rb +1 -1
  129. data/demo/rakuraku/kihon/kihonc.rb +1 -1
  130. data/demo/rakuraku/layout/lay1.rb +1 -1
  131. data/demo/rakuraku/layout/lay2.rb +1 -1
  132. data/demo/rakuraku/layout/lay3.rb +1 -1
  133. data/demo/rakuraku/map3d/map3d1.rb +1 -1
  134. data/demo/rakuraku/map3d/map3d2.rb +1 -1
  135. data/demo/rakuraku/map3d/map3d3.rb +1 -1
  136. data/demo/rakuraku/map3d/map3d4.rb +1 -1
  137. data/demo/rakuraku/map3d/map3d5.rb +1 -1
  138. data/demo/rakuraku/miss/miss1.rb +1 -1
  139. data/demo/rakuraku/miss/miss2.rb +1 -1
  140. data/demo/rakuraku/quick/quick1.rb +1 -1
  141. data/demo/rakuraku/quick/quick2.rb +1 -1
  142. data/demo/rakuraku/quick/quick3.rb +1 -1
  143. data/demo/rakuraku/quick/quick4.rb +1 -1
  144. data/demo/rakuraku/quick/quick5.rb +1 -1
  145. data/demo/rakuraku/u2d/u2d1.rb +1 -1
  146. data/demo/rakuraku/u2d/u2d2.rb +1 -1
  147. data/demo/rakuraku/u2d/u2d3.rb +1 -1
  148. data/demo/rakuraku/u2d/u2d4.rb +1 -1
  149. data/demo/rakuraku/u2d/u2d5.rb +1 -1
  150. data/demo/rakuraku/u2d/u2d6.rb +1 -1
  151. data/demo/rakuraku/u2d/u2d7.rb +1 -1
  152. data/demo/rakuraku/uspack/uspac1.rb +1 -1
  153. data/demo/rakuraku/uspack/uspac2.rb +1 -1
  154. data/demo/rakuraku/uspack/uspac3.rb +1 -1
  155. data/demo/rakuraku/uspack/uspac4.rb +1 -1
  156. data/demo/rakuraku/uxyz/uxyz1.rb +1 -1
  157. data/demo/rakuraku/uxyz/uxyz2.rb +1 -1
  158. data/demo/rakuraku/uxyz/uxyz3.rb +1 -1
  159. data/demo/rakuraku/uxyz/uxyz4.rb +1 -1
  160. data/demo/rakuraku/uxyz/uxyz5.rb +1 -1
  161. data/demo/rakuraku/uxyz/uxyz6.rb +1 -1
  162. data/demo/rakuraku/uxyz/uxyz7.rb +1 -1
  163. data/demo/rakuraku/uxyz/uxyz8.rb +1 -1
  164. data/ext/numru/dcl_cary2obj.c +28 -23
  165. data/ext/numru/dcl_obj2cary.c +8 -4
  166. data/ext/numru/dcl_rubydcloriginal.c +14 -4
  167. data/ext/numru/extconf.rb +9 -51
  168. data/ext/numru/grph1_csgi.c +9 -5
  169. data/ext/numru/grph1_scpack.c +9 -5
  170. data/ext/numru/grph1_sgpack.c +9 -5
  171. data/ext/numru/grph1_slpack.c +9 -5
  172. data/ext/numru/grph1_stpack.c +9 -5
  173. data/ext/numru/grph1_swpack.c +69 -5
  174. data/ext/numru/grph2_grpack.c +9 -5
  175. data/ext/numru/grph2_ucpack.c +9 -5
  176. data/ext/numru/grph2_udpack.c +9 -5
  177. data/ext/numru/grph2_uepack.c +9 -5
  178. data/ext/numru/grph2_ugpack.c +9 -5
  179. data/ext/numru/grph2_uhpack.c +9 -5
  180. data/ext/numru/grph2_uipack.c +9 -5
  181. data/ext/numru/grph2_ulpack.c +9 -5
  182. data/ext/numru/grph2_umpack.c +9 -5
  183. data/ext/numru/grph2_uspack.c +9 -5
  184. data/ext/numru/grph2_uupack.c +9 -5
  185. data/ext/numru/grph2_uvpack.c +9 -5
  186. data/ext/numru/grph2_uwpack.c +9 -5
  187. data/ext/numru/grph2_uxpack.c +9 -5
  188. data/ext/numru/grph2_uypack.c +9 -5
  189. data/ext/numru/grph2_uzpack.c +9 -5
  190. data/ext/numru/init.c +202 -0
  191. data/ext/numru/init.c.default +7 -0
  192. data/ext/numru/math1_blklib.c +9 -5
  193. data/ext/numru/math1_chrlib.c +9 -5
  194. data/ext/numru/math1_clsplib.c +9 -5
  195. data/ext/numru/math1_fnclib.c +9 -5
  196. data/ext/numru/math1_gnmlib.c +9 -5
  197. data/ext/numru/math1_gt2dlib.c +9 -5
  198. data/ext/numru/math1_ifalib.c +9 -5
  199. data/ext/numru/math1_indxlib.c +9 -5
  200. data/ext/numru/math1_intlib.c +9 -5
  201. data/ext/numru/math1_lrllib.c +9 -5
  202. data/ext/numru/math1_maplib.c +9 -5
  203. data/ext/numru/math1_oslib.c +9 -5
  204. data/ext/numru/math1_rfalib.c +9 -5
  205. data/ext/numru/math1_rfblib.c +9 -5
  206. data/ext/numru/math1_sublib.c +9 -5
  207. data/ext/numru/math1_syslib.c +9 -5
  208. data/ext/numru/math1_vialib.c +9 -5
  209. data/ext/numru/math1_viblib.c +9 -5
  210. data/ext/numru/math1_vralib.c +9 -5
  211. data/ext/numru/math1_vrblib.c +9 -5
  212. data/ext/numru/math1_xfclib.c +9 -5
  213. data/ext/numru/math2_fftlib.c +9 -5
  214. data/ext/numru/math2_intrlib.c +9 -5
  215. data/ext/numru/math2_rnmlib.c +9 -5
  216. data/ext/numru/math2_shtlib.c +9 -5
  217. data/ext/numru/math2_vstlib.c +9 -5
  218. data/ext/numru/misc1_chnlib.c +9 -5
  219. data/ext/numru/misc1_datelib.c +9 -5
  220. data/ext/numru/misc1_fmtlib.c +9 -5
  221. data/ext/numru/misc1_misclib.c +9 -5
  222. data/ext/numru/misc1_randlib.c +9 -5
  223. data/ext/numru/misc1_timelib.c +9 -5
  224. data/lib/numru/dcl.rb +6 -5580
  225. data/lib/numru/dcl/dcl.rb +5591 -0
  226. data/lib/numru/dcl/version.rb +5 -0
  227. data/ruby-dcl-bigmem.gemspec +36 -0
  228. data/ruby-dcl.gemspec +10 -9
  229. metadata +17 -93
  230. data/.gitignore +0 -13
  231. data/.rspec +0 -2
  232. data/.travis.yml +0 -3
  233. data/GenWrapper/cproto2init.rb +0 -41
  234. data/GenWrapper/dcl_narrayed_funcs.rb +0 -181
  235. data/GenWrapper/dcl_rb_footing +0 -29
  236. data/GenWrapper/dcl_rb_heading +0 -123
  237. data/GenWrapper/def.rb +0 -20
  238. data/GenWrapper/elim_ary_size.rb +0 -398
  239. data/GenWrapper/etc/p_header +0 -64
  240. data/GenWrapper/pparse.rb +0 -137
  241. data/GenWrapper/proto/grph1_00 +0 -17
  242. data/GenWrapper/proto/grph1_csgi.fp +0 -27
  243. data/GenWrapper/proto/grph1_scpack.fp +0 -442
  244. data/GenWrapper/proto/grph1_sgpack.fp +0 -1772
  245. data/GenWrapper/proto/grph1_slpack.fp +0 -316
  246. data/GenWrapper/proto/grph1_stpack.fp +0 -455
  247. data/GenWrapper/proto/grph1_swpack.fp +0 -826
  248. data/GenWrapper/proto/grph2_00 +0 -16
  249. data/GenWrapper/proto/grph2_grpack.fp +0 -139
  250. data/GenWrapper/proto/grph2_ucpack.fp +0 -522
  251. data/GenWrapper/proto/grph2_udpack.fp +0 -692
  252. data/GenWrapper/proto/grph2_uepack.fp +0 -601
  253. data/GenWrapper/proto/grph2_ugpack.fp +0 -436
  254. data/GenWrapper/proto/grph2_uhpack.fp +0 -246
  255. data/GenWrapper/proto/grph2_uipack.fp +0 -508
  256. data/GenWrapper/proto/grph2_ulpack.fp +0 -516
  257. data/GenWrapper/proto/grph2_umpack.fp +0 -676
  258. data/GenWrapper/proto/grph2_uspack.fp +0 -989
  259. data/GenWrapper/proto/grph2_uupack.fp +0 -663
  260. data/GenWrapper/proto/grph2_uvpack.fp +0 -246
  261. data/GenWrapper/proto/grph2_uwpack.fp +0 -203
  262. data/GenWrapper/proto/grph2_uxpack.fp +0 -295
  263. data/GenWrapper/proto/grph2_uypack.fp +0 -295
  264. data/GenWrapper/proto/grph2_uzpack.fp +0 -574
  265. data/GenWrapper/proto/math1_00 +0 -12
  266. data/GenWrapper/proto/math1_blklib.fp +0 -58
  267. data/GenWrapper/proto/math1_chrlib.fp +0 -83
  268. data/GenWrapper/proto/math1_clsplib.fp +0 -74
  269. data/GenWrapper/proto/math1_fnclib.fp +0 -79
  270. data/GenWrapper/proto/math1_gnmlib.fp +0 -118
  271. data/GenWrapper/proto/math1_gt2dlib.fp +0 -144
  272. data/GenWrapper/proto/math1_ifalib.fp +0 -123
  273. data/GenWrapper/proto/math1_indxlib.fp +0 -222
  274. data/GenWrapper/proto/math1_intlib.fp +0 -46
  275. data/GenWrapper/proto/math1_lrllib.fp +0 -276
  276. data/GenWrapper/proto/math1_maplib.fp +0 -24
  277. data/GenWrapper/proto/math1_oslib.fp +0 -28
  278. data/GenWrapper/proto/math1_rfalib.fp +0 -420
  279. data/GenWrapper/proto/math1_rfblib.fp +0 -51
  280. data/GenWrapper/proto/math1_sublib.fp +0 -60
  281. data/GenWrapper/proto/math1_syslib.fp +0 -767
  282. data/GenWrapper/proto/math1_vialib.fp +0 -339
  283. data/GenWrapper/proto/math1_viblib.fp +0 -264
  284. data/GenWrapper/proto/math1_vralib.fp +0 -339
  285. data/GenWrapper/proto/math1_vrblib.fp +0 -264
  286. data/GenWrapper/proto/math1_xfclib.fp +0 -68
  287. data/GenWrapper/proto/math2_00 +0 -12
  288. data/GenWrapper/proto/math2_fftlib.fp +0 -803
  289. data/GenWrapper/proto/math2_intrlib.fp +0 -32
  290. data/GenWrapper/proto/math2_odelib.fp_notused +0 -568
  291. data/GenWrapper/proto/math2_rnmlib.fp +0 -54
  292. data/GenWrapper/proto/math2_shtlib.fp +0 -1292
  293. data/GenWrapper/proto/math2_vstlib.fp +0 -84
  294. data/GenWrapper/proto/misc1_00 +0 -17
  295. data/GenWrapper/proto/misc1_chnlib.fp +0 -47
  296. data/GenWrapper/proto/misc1_datelib.fp +0 -352
  297. data/GenWrapper/proto/misc1_fmtlib.fp +0 -19
  298. data/GenWrapper/proto/misc1_misclib.fp +0 -26
  299. data/GenWrapper/proto/misc1_randlib.fp +0 -50
  300. data/GenWrapper/proto/misc1_timelib.fp +0 -151
  301. data/GenWrapper/proto2c.rb +0 -13
  302. data/GenWrapper/prototype.rb +0 -209
  303. data/GenWrapper/util.rb +0 -9
  304. data/GenWrapper/variable.rb +0 -671
  305. data/ToDo +0 -2
  306. data/bin/console +0 -14
  307. data/bin/setup +0 -7
data/GenWrapper/proto/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