ruby-dcl 1.7.1 → 1.8.2

Sign up to get free protection for your applications and to get access to all the features.
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
-