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_stpack.fp DELETED
@@ -1,455 +0,0 @@
1
- /*
2
- * grph1_stpack.fp
3
- *
4
- * $Id: grph1_stpack.fp,v 1.2 2012/03/02 17:18:53 koshiro Exp $
5
- */
6
-
7
- /*
8
- * Wrappers of STFTRF, STITRF, STFPR2, and STIPR2 are made in
9
- * ../dcl_narrayed_funcs.rb
10
- */
11
-
12
- /*****************************************************
13
- * grph1/stpack/stftrf.f
14
- ****************************************************/
15
- /*
16
- * SUBROUTINE STFTRF(UX, UY, VX, VY)
17
- */
18
- /*
19
- * SUBROUTINE STFTRF(
20
- * REAL UX
21
- * REAL UY
22
- * REAL o VX
23
- * REAL o VY
24
- * )
25
- */
26
-
27
- /*
28
- * ENTRY STITRF(VX, VY, UX, UY)
29
- */
30
- /*
31
- * SUBROUTINE STITRF(
32
- * REAL VX
33
- * REAL VY
34
- * REAL o UX
35
- * REAL o UY
36
- * )
37
- */
38
-
39
- /*
40
- * ENTRY STQTRF(LMAPA)
41
- * LOGICAL LMAPA
42
- */
43
- SUBROUTINE STQTRF(
44
- LOGICAL o LMAPA
45
- )
46
-
47
- /*
48
- * ENTRY STSTRF(LMAPA)
49
- * LOGICAL LMAPA
50
- */
51
- SUBROUTINE STSTRF(
52
- LOGICAL LMAPA
53
- )
54
-
55
- /*****************************************************
56
- * grph1/stpack/stftrn.f
57
- ****************************************************/
58
- /*
59
- * SUBROUTINE STFTRN(UX, UY, VX, VY)
60
- */
61
- SUBROUTINE STFTRN(
62
- REAL UX
63
- REAL UY
64
- REAL o VX
65
- REAL o VY
66
- )
67
-
68
- /*
69
- * ENTRY STITRN(VX, VY, UX, UY)
70
- */
71
- SUBROUTINE STITRN(
72
- REAL VX
73
- REAL VY
74
- REAL o UX
75
- REAL o UY
76
- )
77
-
78
- /*
79
- * ENTRY STSTRI(ITR)
80
- */
81
- #if DCLVER >= 530
82
- SUBROUTINE STSTRI(
83
- INTEGER ITR
84
- )
85
- #endif
86
-
87
- /*
88
- * ENTRY STSTRP(CXA, CYA, VXOFF, VYOFF)
89
- */
90
- #if DCLVER >= 530
91
- SUBROUTINE STSTRP(
92
- REAL CXA
93
- REAL CYA
94
- REAL VXOFF
95
- REAL VYOFF
96
- )
97
- #endif
98
-
99
- /*****************************************************
100
- * grph1/stpack/stftrn.f if DCL52
101
- ****************************************************/
102
- /*
103
- * ENTRY STSTRN(ITR, CXA, CYA, VXOFF, VYOFF)
104
- */
105
- /*****************************************************
106
- * grph1/stpack/ststrn.f if DCL53
107
- ****************************************************/
108
- /*
109
- * SUBROUTINE STSTRN(ITR, CXA, CYA, VXOFF, VYOFF)
110
- */
111
- SUBROUTINE STSTRN(
112
- INTEGER ITR
113
- REAL CXA
114
- REAL CYA
115
- REAL VXOFF
116
- REAL VYOFF
117
- )
118
-
119
- /*****************************************************
120
- * grph1/stpack/stfrot.f
121
- ****************************************************/
122
- /*
123
- * SUBROUTINE STFROT(UX, UY, TX, TY)
124
- */
125
- SUBROUTINE STFROT(
126
- REAL UX
127
- REAL UY
128
- REAL o TX
129
- REAL o TY
130
- )
131
-
132
- /*
133
- * ENTRY STIROT(TX, TY, UX, UY)
134
- */
135
- SUBROUTINE STIROT(
136
- REAL TX
137
- REAL TY
138
- REAL o UX
139
- REAL o UY
140
- )
141
-
142
- /*
143
- * ENTRY STSROT(THETA, PHI, PSI)
144
- */
145
- SUBROUTINE STSROT(
146
- REAL THETA
147
- REAL PHI
148
- REAL PSI
149
- )
150
-
151
- /*****************************************************
152
- * grph1/stpack/stfrad.f
153
- ****************************************************/
154
- /*
155
- * SUBROUTINE STFRAD(X, Y, RX, RY)
156
- */
157
- SUBROUTINE STFRAD(
158
- REAL X
159
- REAL Y
160
- REAL o RX
161
- REAL o RY
162
- )
163
-
164
- /*
165
- * ENTRY STIRAD(RX, RY, X, Y)
166
- */
167
- SUBROUTINE STIRAD(
168
- REAL RX
169
- REAL RY
170
- REAL o X
171
- REAL o Y
172
- )
173
-
174
- /*
175
- * ENTRY STSRAD(LXDEG, LYDEG)
176
- * LOGICAL LXDEG, LYDEG
177
- */
178
- SUBROUTINE STSRAD(
179
- LOGICAL LXDEG
180
- LOGICAL LYDEG
181
- )
182
-
183
- /*****************************************************
184
- * grph1/stpack/stfusr.f
185
- ****************************************************/
186
- #if DCLVER >= 544
187
- /*
188
- * SUBROUTINE STFUSR(XLON, YLAT, X, Y)
189
- */
190
- SUBROUTINE STFUSR(
191
- REAL XLON
192
- REAL YLAT
193
- REAL o XX
194
- REAL o YY
195
- )
196
- #else
197
- /*
198
- * SUBROUTINE STFUSR(UX, UY, XX, YY)
199
- */
200
- SUBROUTINE STFUSR(
201
- REAL UX
202
- REAL UY
203
- REAL o XX
204
- REAL o YY
205
- )
206
- #endif
207
-
208
- #if DCLVER >= 544
209
- /*
210
- * ENTRY STIUSR(XX, YY, XLON, YLAT)
211
- */
212
- SUBROUTINE STIUSR(
213
- REAL XX
214
- REAL YY
215
- REAL o XLON
216
- REAL o YLAT
217
- )
218
- #else
219
- /*
220
- * ENTRY STIUSR(XX, YY, UX, UY)
221
- */
222
- SUBROUTINE STIUSR(
223
- REAL XX
224
- REAL YY
225
- REAL o UX
226
- REAL o UY
227
- )
228
- #endif
229
-
230
- /*
231
- * ENTRY STSUSR
232
- */
233
- SUBROUTINE STSUSR(
234
- )
235
-
236
- /*
237
- * ENTRY STNUSR(KPROJ)
238
- */
239
- #if DCLVER >= 544
240
- SUBROUTINE STNUSR(
241
- INTEGER KPROJ
242
- )
243
- #endif
244
-
245
- /*
246
- * ENTRY STCUSR(I,CTTL)
247
- CHARACTER CTTL*(*)
248
- */
249
- #if DCLVER >= 544
250
- SUBROUTINE STCUSR(
251
- INTEGER I
252
- CHARACTER*(*) o CTTL
253
- )
254
- #endif
255
-
256
- /*****************************************************
257
- * grph1/stpack/stfwtr.f
258
- ****************************************************/
259
- /*
260
- * SUBROUTINE STFWTR(RX,RY,WX,WY)
261
- */
262
- SUBROUTINE STFWTR(
263
- REAL RX
264
- REAL RY
265
- REAL o WX
266
- REAL o WY
267
- )
268
-
269
- /*
270
- * ENTRY STIWTR(WX,WY,RX,RY)
271
- */
272
- SUBROUTINE STIWTR(
273
- REAL WX
274
- REAL WY
275
- REAL o RX
276
- REAL o RY
277
- )
278
-
279
- /*
280
- * ENTRY STSWTR(RXMIN,RXMAX,RYMIN,RYMAX,
281
- * + WXMIN,WXMAX,WYMIN,WYMAX,IWTRF)
282
- */
283
- SUBROUTINE STSWTR(
284
- REAL RXMIN
285
- REAL RXMAX
286
- REAL RYMIN
287
- REAL RYMAX
288
- REAL WXMIN
289
- REAL WXMAX
290
- REAL WYMIN
291
- REAL WYMAX
292
- INTEGER IWTRF
293
- )
294
-
295
- /*
296
- * ENTRY STQWTR(RXMIN,RXMAX,RYMIN,RYMAX,
297
- * + WXMIN,WXMAX,WYMIN,WYMAX,IWTRF)
298
- */
299
- SUBROUTINE STQWTR(
300
- REAL o RXMIN
301
- REAL o RXMAX
302
- REAL o RYMIN
303
- REAL o RYMAX
304
- REAL o WXMIN
305
- REAL o WXMAX
306
- REAL o WYMIN
307
- REAL o WYMAX
308
- INTEGER o IWTRF
309
- )
310
-
311
- /*
312
- * ENTRY STSWRC(WSXMN,WSXMX,WSYMN,WSYMX)
313
- */
314
- SUBROUTINE STSWRC(
315
- REAL WSXMN
316
- REAL WSXMX
317
- REAL WSYMN
318
- REAL WSYMX
319
- )
320
-
321
- /*
322
- * ENTRY STQWRC(WSXMN,WSXMX,WSYMN,WSYMX)
323
- */
324
- SUBROUTINE STQWRC(
325
- REAL o WSXMN
326
- REAL o WSXMX
327
- REAL o WSYMN
328
- REAL o WSYMX
329
- )
330
-
331
- /*****************************************************
332
- * grph1/stpack/stfpr3.f
333
- ****************************************************/
334
- /*
335
- * SUBROUTINE STFPR3(X, Y, Z, RX, RY)
336
- */
337
- SUBROUTINE STFPR3(
338
- REAL X
339
- REAL Y
340
- REAL Z
341
- REAL o RX
342
- REAL o RY
343
- )
344
-
345
- /*
346
- * ENTRY STSPR3(XFC, YFC, ZFC, THETA, PHI, PSI, FAC,
347
- * + ZVIEW, RXOFF, RYOFF)
348
- */
349
- SUBROUTINE STSPR3(
350
- REAL XFC
351
- REAL YFC
352
- REAL ZFC
353
- REAL THETA
354
- REAL PHI
355
- REAL PSI
356
- REAL FAC
357
- REAL ZVIEW
358
- REAL RXOFF
359
- REAL RYOFF
360
- )
361
-
362
- /*
363
- * ENTRY STFPR2(X, Y, RX, RY)
364
- */
365
- /*
366
- * SUBROUTINE STFPR2(
367
- * REAL X
368
- * REAL Y
369
- * REAL o RX
370
- * REAL o RY
371
- * )
372
- */
373
-
374
- /*
375
- * ENTRY STIPR2(RX, RY, X, Y)
376
- */
377
- /*
378
- * SUBROUTINE STIPR2(
379
- * REAL RX
380
- * REAL RY
381
- * REAL o X
382
- * REAL o Y
383
- * )
384
- */
385
-
386
- /*
387
- * ENTRY STSPR2(IX, IY, SECT)
388
- */
389
- SUBROUTINE STSPR2(
390
- INTEGER IX
391
- INTEGER IY
392
- REAL SECT
393
- )
394
-
395
- /*
396
- * ENTRY STEPR2
397
- */
398
- SUBROUTINE STEPR2(
399
- )
400
-
401
- /*
402
- * ENTRY STRPR2
403
- */
404
- SUBROUTINE STRPR2(
405
- )
406
-
407
- /*****************************************************
408
- * grph1/stpack/stftr3.f
409
- ****************************************************/
410
- /*
411
- * SUBROUTINE STFTR3(UX, UY, UZ, VX, VY, VZ)
412
- */
413
- SUBROUTINE STFTR3(
414
- REAL UX
415
- REAL UY
416
- REAL UZ
417
- REAL o VX
418
- REAL o VY
419
- REAL o VZ
420
- )
421
-
422
- /*
423
- * ENTRY STSTR3(ITR, CXA, CYA, CZA, VXOFF, VYOFF, VZOFF)
424
- */
425
- SUBROUTINE STSTR3(
426
- INTEGER ITR
427
- REAL CXA
428
- REAL CYA
429
- REAL CZA
430
- REAL VXOFF
431
- REAL VYOFF
432
- REAL VZOFF
433
- )
434
-
435
- /*
436
- * ENTRY STSRD3(LXRD, LYRD, LZRD)
437
- * LOGICAL LXRD, LYRD, LZRD, LXLG, LYLG, LZLG
438
- */
439
- SUBROUTINE STSRD3(
440
- LOGICAL LXRD
441
- LOGICAL LYRD
442
- LOGICAL LZRD
443
- )
444
-
445
- /*
446
- * ENTRY STSLG3(LXLG, LYLG, LZLG)
447
- * LOGICAL LXRD, LYRD, LZRD, LXLG, LYLG, LZLG
448
- */
449
- SUBROUTINE STSLG3(
450
- LOGICAL LXLG
451
- LOGICAL LYLG
452
- LOGICAL LZLG
453
- )
454
-
455
-