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/grph2_uspack.fp DELETED
@@ -1,989 +0,0 @@
1
- /*
2
- * grph2_uspack.fp
3
- *
4
- * $Id: grph2_uspack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/uspack/usgrph.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE USGRPH(N, X, Y)
12
- * REAL X(*), Y(*)
13
- */
14
- SUBROUTINE USGRPH(
15
- INTEGER N
16
- REAL (N) X
17
- REAL (N) Y
18
- )
19
-
20
- /*****************************************************
21
- * grph2/uspack/ussttl.f
22
- ****************************************************/
23
- /*
24
- * SUBROUTINE USSTTL(CXTTL, CXUNIT, CYTTL, CYUNIT)
25
- * CHARACTER*(*) CXTTL, CXUNIT, CYTTL, CYUNIT
26
- */
27
- SUBROUTINE USSTTL(
28
- CHARACTER*(*) CXTTL
29
- CHARACTER*(*) CXUNIT
30
- CHARACTER*(*) CYTTL
31
- CHARACTER*(*) CYUNIT
32
- )
33
-
34
- /*****************************************************
35
- * grph2/uspack/usspnt.f
36
- ****************************************************/
37
- /*
38
- * SUBROUTINE USSPNT(N, X, Y)
39
- * REAL X(*), Y(*)
40
- */
41
- SUBROUTINE USSPNT(
42
- INTEGER N
43
- REAL (N) X
44
- REAL (N) Y
45
- )
46
-
47
- /*****************************************************
48
- * grph2/uspack/uspfit.f
49
- ****************************************************/
50
- /*
51
- * SUBROUTINE USPFIT
52
- */
53
- SUBROUTINE USPFIT(
54
- )
55
-
56
- /*****************************************************
57
- * grph2/uspack/usdaxs.f
58
- ****************************************************/
59
- /*
60
- * SUBROUTINE USDAXS
61
- */
62
- SUBROUTINE USDAXS(
63
- )
64
-
65
- /*****************************************************
66
- * grph2/uspack/usinit.f
67
- ****************************************************/
68
- /*
69
- * SUBROUTINE USINIT
70
- */
71
- SUBROUTINE USINIT(
72
- )
73
-
74
- /*****************************************************
75
- * grph2/uspack/uspget.f
76
- ****************************************************/
77
- /*
78
- * SUBROUTINE USPGET(CP,IPARA)
79
- * CHARACTER CP*(*)
80
- */
81
- /* SUBROUTINE USPGET(
82
- * CHARACTER*(*) CP
83
- * INTEGER o IPARA
84
- * )
85
- */
86
-
87
- /*
88
- * ENTRY USPSET(CP, IPARA)
89
- * CHARACTER CP*(*)
90
- */
91
- /* SUBROUTINE USPSET(
92
- * CHARACTER*(*) CP
93
- * INTEGER IPARA
94
- * )
95
- */
96
-
97
- /*
98
- * ENTRY USPSTX(CP, IPARA)
99
- * CHARACTER CP*(*)
100
- */
101
- /* SUBROUTINE USPSTX(
102
- * CHARACTER*(*) CP
103
- * INTEGER IPARA
104
- * )
105
- */
106
-
107
- /*****************************************************
108
- * grph2/uspack/uspqnp.f
109
- ****************************************************/
110
- /*
111
- * SUBROUTINE USPQNP(NCP)
112
- */
113
- SUBROUTINE USPQNP(
114
- INTEGER o NCP
115
- )
116
-
117
- /*
118
- * ENTRY USPQID(CP, IDX)
119
- * CHARACTER CP*(*)
120
- */
121
- SUBROUTINE USPQID(
122
- CHARACTER*(*) CP
123
- INTEGER o IDX
124
- )
125
-
126
- /*
127
- * ENTRY USPQCP(IDX, CP)
128
- * CHARACTER CP*(*)
129
- */
130
- SUBROUTINE USPQCP(
131
- INTEGER IDX
132
- CHARACTER*(*) o CP
133
- )
134
-
135
- /*
136
- * ENTRY USPQCL(IDX, CP)
137
- * CHARACTER CP*(*)
138
- */
139
- SUBROUTINE USPQCL(
140
- INTEGER IDX
141
- CHARACTER*(*) o CP
142
- )
143
-
144
- /*
145
- * ENTRY USPQIT(IDX, ITP)
146
- */
147
- SUBROUTINE USPQIT(
148
- INTEGER IDX
149
- INTEGER o ITP
150
- )
151
-
152
- /*
153
- * ENTRY USPQVL(IDX, IPARA)
154
- */
155
- SUBROUTINE USPQVL(
156
- INTEGER IDX
157
- INTEGER o IPARA
158
- )
159
-
160
- /*
161
- * ENTRY USPSVL(IDX, IPARA)
162
- */
163
- SUBROUTINE USPSVL(
164
- INTEGER IDX
165
- INTEGER IPARA
166
- )
167
-
168
- /*
169
- * ENTRY USPQIN(CP, IN)
170
- * CHARACTER CP*(*)
171
- */
172
- SUBROUTINE USPQIN(
173
- CHARACTER*(*) CP
174
- INTEGER o IN
175
- )
176
-
177
- /*****************************************************
178
- * grph2/uspack/uscget.f
179
- ****************************************************/
180
- /*
181
- * SUBROUTINE USCGET(CP,CPARA)
182
- * CHARACTER CP*(*), CPARA*(*)
183
- */
184
- SUBROUTINE USCGET(
185
- CHARACTER*(*) CP
186
- CHARACTER*(*) o CPARA
187
- )
188
-
189
- /*
190
- * ENTRY USCSET(CP,CPARA)
191
- * CHARACTER CP*(*), CPARA*(*)
192
- */
193
- SUBROUTINE USCSET(
194
- CHARACTER*(*) CP
195
- CHARACTER*(*) CPARA
196
- )
197
-
198
- /*
199
- * ENTRY USCSTX(CP, CPARA)
200
- * CHARACTER CP*(*), CPARA*(*)
201
- */
202
- SUBROUTINE USCSTX(
203
- CHARACTER*(*) CP
204
- CHARACTER*(*) CPARA
205
- )
206
-
207
- /*****************************************************
208
- * grph2/uspack/uscqnp.f
209
- ****************************************************/
210
- /*
211
- * SUBROUTINE USCQNP(NCP)
212
- */
213
- SUBROUTINE USCQNP(
214
- INTEGER o NCP
215
- )
216
-
217
- /*
218
- * ENTRY USCQID(CP, IDX)
219
- * CHARACTER CP*(*), CVAL*(*)
220
- */
221
- SUBROUTINE USCQID(
222
- CHARACTER*(*) CP
223
- INTEGER o IDX
224
- )
225
-
226
- /*
227
- * ENTRY USCQCP(IDX,CP)
228
- * CHARACTER CP*(*), CVAL*(*)
229
- */
230
- SUBROUTINE USCQCP(
231
- INTEGER IDX
232
- CHARACTER*(*) o CP
233
- )
234
-
235
- /*
236
- * ENTRY USCQCL(IDX,CP)
237
- * CHARACTER CP*(*), CVAL*(*)
238
- */
239
- SUBROUTINE USCQCL(
240
- INTEGER IDX
241
- CHARACTER*(*) o CP
242
- )
243
-
244
- /*
245
- * ENTRY USCQVL(IDX,CVAL)
246
- * CHARACTER CP*(*), CVAL*(*)
247
- */
248
- SUBROUTINE USCQVL(
249
- INTEGER IDX
250
- CHARACTER*(*) o CVAL
251
- )
252
-
253
- /*
254
- * ENTRY USCSVL(IDX,CVAL)
255
- * CHARACTER CP*(*), CVAL*(*)
256
- */
257
- SUBROUTINE USCSVL(
258
- INTEGER IDX
259
- CHARACTER*(*) CVAL
260
- )
261
-
262
- /*
263
- * ENTRY USCQIN(CP, IN)
264
- * CHARACTER CP*(*), CVAL*(*)
265
- */
266
- SUBROUTINE USCQIN(
267
- CHARACTER*(*) CP
268
- INTEGER o IN
269
- )
270
-
271
- /*****************************************************
272
- * grph2/uspack/usurdl.f
273
- ****************************************************/
274
- /*
275
- * SUBROUTINE USURDL(UMIN, UMAX, VMIN, VMAX)
276
- */
277
- SUBROUTINE USURDL(
278
- REAL io UMIN
279
- REAL io UMAX
280
- REAL VMIN
281
- REAL VMAX
282
- )
283
-
284
- /*****************************************************
285
- * grph2/uspack/usxaxs.f
286
- ****************************************************/
287
- /*
288
- * SUBROUTINE USXAXS(CSIDE)
289
- * CHARACTER CSIDE*(*), CS*1
290
- */
291
- SUBROUTINE USXAXS(
292
- CHARACTER*(*) CSIDE
293
- )
294
-
295
- /*****************************************************
296
- * grph2/uspack/usyaxs.f
297
- ****************************************************/
298
- /*
299
- * SUBROUTINE USYAXS(CSIDE)
300
- * CHARACTER CSIDE*(*), CS*1
301
- */
302
- SUBROUTINE USYAXS(
303
- CHARACTER*(*) CSIDE
304
- )
305
-
306
- /*****************************************************
307
- * grph2/uspack/ususcu.f
308
- ****************************************************/
309
- /*
310
- * SUBROUTINE USUSCU(CAXIS, UMIN, UMAX, VMIN, VMAX, MODE)
311
- * CHARACTER CAXIS*1, CFMT*8
312
- */
313
- SUBROUTINE USUSCU(
314
- CHARACTER*1 CAXIS
315
- REAL UMIN
316
- REAL UMAX
317
- REAL VMIN
318
- REAL VMAX
319
- INTEGER MODE
320
- )
321
-
322
- /*****************************************************
323
- * grph2/uspack/ususcl.f
324
- ****************************************************/
325
- /*
326
- * SUBROUTINE USUSCL(CAXIS, UMIN, UMAX, VMIN, VMAX)
327
- * CHARACTER CAXIS*1, CP*8
328
- */
329
- SUBROUTINE USUSCL(
330
- CHARACTER*1 CAXIS
331
- REAL UMIN
332
- REAL UMAX
333
- REAL VMIN
334
- REAL VMAX
335
- )
336
-
337
- /*****************************************************
338
- * grph2/uspack/usxaxu.f
339
- ****************************************************/
340
- /*
341
- * SUBROUTINE USXAXU(CXS)
342
- * CHARACTER CXS*(*), CXFMT*8, CXUNIT*32
343
- */
344
- SUBROUTINE USXAXU(
345
- CHARACTER*(*) CXS
346
- )
347
-
348
- /*****************************************************
349
- * grph2/uspack/usxaxl.f
350
- ****************************************************/
351
- /*
352
- * SUBROUTINE USXAXL(CXS)
353
- * CHARACTER CXS*(*), CUNIT*32, CXSUB*32, CSBLBL*32, CPOS*1, CP*8
354
- */
355
- SUBROUTINE USXAXL(
356
- CHARACTER*(*) CXS
357
- )
358
-
359
- /*****************************************************
360
- * grph2/uspack/usyaxu.f
361
- ****************************************************/
362
- /*
363
- * SUBROUTINE USYAXU(CYS)
364
- * CHARACTER CYS*(*), CYFMT*8, CYUNIT*32
365
- */
366
- SUBROUTINE USYAXU(
367
- CHARACTER*(*) CYS
368
- )
369
-
370
- /*****************************************************
371
- * grph2/uspack/usyaxl.f
372
- ****************************************************/
373
- /*
374
- * SUBROUTINE USYAXL(CYS)
375
- * CHARACTER CYS*(*), CUNIT*32, CYSUB*32, CSBLBL*32, CPOS*1, CP*8
376
- */
377
- SUBROUTINE USYAXL(
378
- CHARACTER*(*) CYS
379
- )
380
-
381
- /*****************************************************
382
- * grph2/uspack/usxsub.f
383
- ****************************************************/
384
- /*
385
- * SUBROUTINE USXSUB(CXA, CYA, CLABEL, RLBL)
386
- * CHARACTER CLABEL*(*), CXS*1, CYS*1, CXA*1, CYA*1, CP*8
387
- */
388
- SUBROUTINE USXSUB(
389
- CHARACTER*1 CXA
390
- CHARACTER*1 CYA
391
- CHARACTER*(*) CLABEL
392
- REAL RLBL
393
- )
394
-
395
- /*****************************************************
396
- * grph2/uspack/usysub.f
397
- ****************************************************/
398
- /*
399
- * SUBROUTINE USYSUB(CYA, CXA, CLABEL, RLBL)
400
- * CHARACTER CLABEL*(*), CXS*1, CYS*1, CXA*1, CYA*1, CP*8
401
- */
402
- SUBROUTINE USYSUB(
403
- CHARACTER*1 CYA
404
- CHARACTER*1 CXA
405
- CHARACTER*(*) CLABEL
406
- REAL RLBL
407
- )
408
-
409
- /*****************************************************
410
- * grph2/uspack/csblbl.f
411
- ****************************************************/
412
- /*
413
- * FUNCTION CSBLBL(UFAC, UOFF, CUNIT)
414
- * CHARACTER CSBLBL*(*), CUNIT*(*), CSUB*32, CBLKT*2,
415
- */
416
- CHARACTER*(*) FUNCTION CSBLBL(
417
- REAL UFAC
418
- REAL UOFF
419
- CHARACTER*(*) CUNIT
420
- )
421
-
422
- /*****************************************************
423
- * grph2/uspack/uschvl.f
424
- ****************************************************/
425
- /*
426
- * SUBROUTINE USCHVL(X, CHX)
427
- * REAL X
428
- * CHARACTER CHX*(*), CFMT*16, CVAL*16, CEXP*8, CEXP2*8, CSGI*1
429
- */
430
- SUBROUTINE USCHVL(
431
- REAL X
432
- CHARACTER*(*) o CHX
433
- )
434
-
435
- /*****************************************************
436
- * grph2/uspack/usxoff.f
437
- ****************************************************/
438
- /*
439
- * SUBROUTINE USXOFF(CXS)
440
- * CHARACTER*1 CXS, CP*8
441
- */
442
- SUBROUTINE USXOFF(
443
- CHARACTER*1 CXS
444
- )
445
-
446
- /*****************************************************
447
- * grph2/uspack/usyoff.f
448
- ****************************************************/
449
- /*
450
- * SUBROUTINE USYOFF(CYS)
451
- * CHARACTER*1 CYS, CP*8
452
- */
453
- SUBROUTINE USYOFF(
454
- CHARACTER*1 CYS
455
- )
456
-
457
- /*****************************************************
458
- * grph2/uspack/uszdgt.f
459
- ****************************************************/
460
- /*
461
- * SUBROUTINE USZDGT(UMIN, UMAX, DUL, MAXDGT,
462
- * # UOFF, UFACT, NDGT, LDGT)
463
- */
464
- SUBROUTINE USZDGT(
465
- REAL UMIN
466
- REAL UMAX
467
- REAL DUL
468
- INTEGER MAXDGT
469
- REAL io UOFF
470
- REAL io UFACT
471
- INTEGER o NDGT
472
- INTEGER o LDGT
473
- )
474
-
475
- /*****************************************************
476
- * grph2/uspack/uswapz.f
477
- ****************************************************/
478
- /*
479
- * SUBROUTINE USWAPZ(X1, X2, N)
480
- * REAL X1(N), X2(N)
481
- */
482
- SUBROUTINE USWAPZ(
483
- REAL (N) io X1
484
- REAL (N) io X2
485
- INTEGER N
486
- )
487
-
488
- /*****************************************************
489
- * grph2/uspack/usurdt.f
490
- ****************************************************/
491
- /*
492
- * SUBROUTINE USURDT(UMIN, UMAX, VMIN, VMAX, DUT)
493
- */
494
- SUBROUTINE USURDT(
495
- REAL io UMIN
496
- REAL io UMAX
497
- REAL VMIN
498
- REAL VMAX
499
- REAL o DUT
500
- )
501
-
502
- /*****************************************************
503
- * grph2/uspack/usaxcl.f
504
- ****************************************************/
505
- /*
506
- * SUBROUTINE USAXCL(CSIDE, JD0, CTYPE, ND)
507
- * CHARACTER CSIDE*(*), CTYPE*(*), CS, CT
508
- */
509
- SUBROUTINE USAXCL(
510
- CHARACTER*(*) CSIDE
511
- INTEGER JD0
512
- CHARACTER*(*) CTYPE
513
- INTEGER ND
514
- )
515
-
516
- /*****************************************************
517
- * grph2/uspack/usaxdv.f
518
- ****************************************************/
519
- /*
520
- * SUBROUTINE USAXDV(CSIDE, DTICK, DLBL)
521
- * CHARACTER CSIDE*(*), CS
522
- */
523
- SUBROUTINE USAXDV(
524
- CHARACTER*(*) CSIDE
525
- REAL DTICK
526
- REAL DLBL
527
- )
528
-
529
- /*****************************************************
530
- * grph2/uspack/usaxlb.f
531
- ****************************************************/
532
- /*
533
- * SUBROUTINE USAXLB(CSIDE, DTICK, N1, DLABEL, CH, NC, N2)
534
- * CHARACTER CSIDE*(*), CS, CH(*)*(*)
535
- * REAL DTICK(N1), DLABEL(N2), DTZ(N0),DLZ(N0)
536
- */
537
- SUBROUTINE USAXLB(
538
- CHARACTER*(*) CSIDE
539
- REAL (N1) DTICK
540
- INTEGER N1
541
- REAL (N2) DLABEL
542
- CHARACTER*(*) (N2) CH
543
- INTEGER NC
544
- INTEGER N2
545
- )
546
-
547
- /*****************************************************
548
- * grph2/uspack/usaxlg.f
549
- ****************************************************/
550
- /*
551
- * SUBROUTINE USAXLG(CSIDE, NLBL, NTICKS)
552
- * CHARACTER CSIDE*(*), CS
553
- */
554
- SUBROUTINE USAXLG(
555
- CHARACTER*(*) CSIDE
556
- INTEGER NLBL
557
- INTEGER NTICKS
558
- )
559
-
560
- /*****************************************************
561
- * grph2/uspack/usaxnm.f
562
- ****************************************************/
563
- /*
564
- * SUBROUTINE USAXNM(CSIDE, DTICK, N1, DLABEL, N2)
565
- * CHARACTER CSIDE*(*), CS
566
- * REAL DTICK(N1), DLABEL(N2), DTZ(N0),DLZ(N0)
567
- */
568
- SUBROUTINE USAXNM(
569
- CHARACTER*(*) CSIDE
570
- REAL (N1) DTICK
571
- INTEGER N1
572
- REAL (N2) DLABEL
573
- INTEGER N2
574
- )
575
-
576
- /*****************************************************
577
- * grph2/uspack/usaxsc.f
578
- ****************************************************/
579
- /*
580
- * SUBROUTINE USAXSC(CSIDE)
581
- * CHARACTER CSIDE*(*), CS, CP*8
582
- */
583
- SUBROUTINE USAXSC(
584
- CHARACTER*(*) CSIDE
585
- )
586
-
587
- /*****************************************************
588
- * grph2/uspack/usiget.f
589
- ****************************************************/
590
- /*
591
- * SUBROUTINE USIGET(CP, IPARA)
592
- * CHARACTER CP*(*)
593
- */
594
- SUBROUTINE USIGET(
595
- CHARACTER*(*) CP
596
- INTEGER o IPARA
597
- )
598
-
599
- /*
600
- * ENTRY USISET(CP, IPARA)
601
- * CHARACTER CP*(*)
602
- */
603
- SUBROUTINE USISET(
604
- CHARACTER*(*) CP
605
- INTEGER IPARA
606
- )
607
-
608
- /*
609
- * ENTRY USISTX(CP, IPARA)
610
- * CHARACTER CP*(*)
611
- */
612
- SUBROUTINE USISTX(
613
- CHARACTER*(*) CP
614
- INTEGER IPARA
615
- )
616
-
617
- /*****************************************************
618
- * grph2/uspack/usiqnp.f
619
- ****************************************************/
620
- /*
621
- * SUBROUTINE USIQNP(NCP)
622
- */
623
- SUBROUTINE USIQNP(
624
- INTEGER o NCP
625
- )
626
-
627
- /*
628
- * ENTRY USIQID(CP, IDX)
629
- * CHARACTER CP*(*)
630
- */
631
- SUBROUTINE USIQID(
632
- CHARACTER*(*) CP
633
- INTEGER o IDX
634
- )
635
-
636
- /*
637
- * ENTRY USIQCP(IDX, CP)
638
- * CHARACTER CP*(*)
639
- */
640
- SUBROUTINE USIQCP(
641
- INTEGER IDX
642
- CHARACTER*(*) o CP
643
- )
644
-
645
- /*
646
- * ENTRY USIQCL(IDX, CP)
647
- * CHARACTER CP*(*)
648
- */
649
- SUBROUTINE USIQCL(
650
- INTEGER IDX
651
- CHARACTER*(*) o CP
652
- )
653
-
654
- /*
655
- * ENTRY USIQVL(IDX, IPARA)
656
- */
657
- SUBROUTINE USIQVL(
658
- INTEGER IDX
659
- INTEGER o IPARA
660
- )
661
-
662
- /*
663
- * ENTRY USISVL(IDX, IPARA)
664
- */
665
- SUBROUTINE USISVL(
666
- INTEGER IDX
667
- INTEGER IPARA
668
- )
669
-
670
- /*
671
- * ENTRY USIQIN(CP, IN)
672
- * CHARACTER CP*(*)
673
- */
674
- SUBROUTINE USIQIN(
675
- CHARACTER*(*) CP
676
- INTEGER o IN
677
- )
678
-
679
- /*****************************************************
680
- * grph2/uspack/uslget.f
681
- ****************************************************/
682
- /*
683
- * SUBROUTINE USLGET(CP, LPARA)
684
- * CHARACTER CP*(*)
685
- * LOGICAL LPARA
686
- */
687
- SUBROUTINE USLGET(
688
- CHARACTER*(*) CP
689
- LOGICAL o LPARA
690
- )
691
-
692
- /*
693
- * ENTRY USLSET(CP, LPARA)
694
- * CHARACTER CP*(*)
695
- * LOGICAL LPARA
696
- */
697
- SUBROUTINE USLSET(
698
- CHARACTER*(*) CP
699
- LOGICAL LPARA
700
- )
701
-
702
- /*
703
- * ENTRY USLSTX(CP, LPARA)
704
- * CHARACTER CP*(*)
705
- * LOGICAL LPARA
706
- */
707
- SUBROUTINE USLSTX(
708
- CHARACTER*(*) CP
709
- LOGICAL LPARA
710
- )
711
-
712
- /*****************************************************
713
- * grph2/uspack/uslqnp.f
714
- ****************************************************/
715
- /*
716
- * SUBROUTINE USLQNP(NCP)
717
- */
718
- SUBROUTINE USLQNP(
719
- INTEGER o NCP
720
- )
721
-
722
- /*
723
- * ENTRY USLQID(CP, IDX)
724
- * CHARACTER CP*(*)
725
- */
726
- SUBROUTINE USLQID(
727
- CHARACTER*(*) CP
728
- INTEGER o IDX
729
- )
730
-
731
- /*
732
- * ENTRY USLQCP(IDX, CP)
733
- * CHARACTER CP*(*)
734
- */
735
- SUBROUTINE USLQCP(
736
- INTEGER IDX
737
- CHARACTER*(*) o CP
738
- )
739
-
740
- /*
741
- * ENTRY USLQCL(IDX, CP)
742
- * CHARACTER CP*(*)
743
- */
744
- SUBROUTINE USLQCL(
745
- INTEGER IDX
746
- CHARACTER*(*) o CP
747
- )
748
-
749
- /*
750
- * ENTRY USLQVL(IDX, LPARA)
751
- * LOGICAL LPARA
752
- */
753
- SUBROUTINE USLQVL(
754
- INTEGER IDX
755
- LOGICAL o LPARA
756
- )
757
-
758
- /*
759
- * ENTRY USLSVL(IDX, LPARA)
760
- * LOGICAL LPARA
761
- */
762
- SUBROUTINE USLSVL(
763
- INTEGER IDX
764
- LOGICAL LPARA
765
- )
766
-
767
- /*
768
- * ENTRY USLQIN(CP, IN)
769
- * CHARACTER CP*(*)
770
- */
771
- SUBROUTINE USLQIN(
772
- CHARACTER*(*) CP
773
- INTEGER o IN
774
- )
775
-
776
- /*****************************************************
777
- * grph2/uspack/uspaxs.f
778
- ****************************************************/
779
- /*
780
- * SUBROUTINE USPAXS(CSIDE, ISLCT)
781
- * CHARACTER CSIDE*(*), CS
782
- */
783
- SUBROUTINE USPAXS(
784
- CHARACTER*(*) CSIDE
785
- INTEGER ISLCT
786
- )
787
-
788
- /*****************************************************
789
- * grph2/uspack/usplbl.f
790
- ****************************************************/
791
- /*
792
- * SUBROUTINE USPLBL(CSIDE, ISLCT, POS, CH, NC, N)
793
- * CHARACTER CSIDE*(*), CH(*)*(*), CS
794
- * REAL POS(N)
795
- */
796
- SUBROUTINE USPLBL(
797
- CHARACTER*(*) CSIDE
798
- INTEGER ISLCT
799
- REAL (N) POS
800
- CHARACTER*(*) (N) CH
801
- INTEGER NC
802
- INTEGER N
803
- )
804
-
805
- /*****************************************************
806
- * grph2/uspack/uspnum.f
807
- ****************************************************/
808
- /*
809
- * SUBROUTINE USPNUM(CSIDE, ISLCT, POS, N)
810
- * CHARACTER CSIDE*(*), CS
811
- * REAL POS(N)
812
- */
813
- SUBROUTINE USPNUM(
814
- CHARACTER*(*) CSIDE
815
- INTEGER ISLCT
816
- REAL (N) POS
817
- INTEGER N
818
- )
819
-
820
- /*****************************************************
821
- * grph2/uspack/usptmk.f
822
- ****************************************************/
823
- /*
824
- * SUBROUTINE USPTMK(CSIDE, ISLCT, POS, N)
825
- * CHARACTER CSIDE*(*), CS
826
- * REAL POS(N)
827
- */
828
- SUBROUTINE USPTMK(
829
- CHARACTER*(*) CSIDE
830
- INTEGER ISLCT
831
- REAL (N) POS
832
- INTEGER N
833
- )
834
-
835
- /*****************************************************
836
- * grph2/uspack/uspttl.f
837
- ****************************************************/
838
- /*
839
- * SUBROUTINE USPTTL(CSIDE, ISLCT, CTTL, POS)
840
- * CHARACTER CSIDE*(*), CTTL*(*), CS
841
- */
842
- SUBROUTINE USPTTL(
843
- CHARACTER*(*) CSIDE
844
- INTEGER ISLCT
845
- CHARACTER*(*) CTTL
846
- REAL POS
847
- )
848
-
849
- /*****************************************************
850
- * grph2/uspack/usrget.f
851
- ****************************************************/
852
- /*
853
- * SUBROUTINE USRGET(CP, RPARA)
854
- * CHARACTER CP*(*)
855
- */
856
- SUBROUTINE USRGET(
857
- CHARACTER*(*) CP
858
- REAL o RPARA
859
- )
860
-
861
- /*
862
- * ENTRY USRSET(CP, RPARA)
863
- * CHARACTER CP*(*)
864
- */
865
- SUBROUTINE USRSET(
866
- CHARACTER*(*) CP
867
- REAL RPARA
868
- )
869
-
870
- /*
871
- * ENTRY USRSTX(CP, RPARA)
872
- * CHARACTER CP*(*)
873
- */
874
- SUBROUTINE USRSTX(
875
- CHARACTER*(*) CP
876
- REAL RPARA
877
- )
878
-
879
- /*****************************************************
880
- * grph2/uspack/usrqnp.f
881
- ****************************************************/
882
- /*
883
- * SUBROUTINE USRQNP(NCP)
884
- */
885
- SUBROUTINE USRQNP(
886
- INTEGER o NCP
887
- )
888
-
889
- /*
890
- * ENTRY USRQID(CP, IDX)
891
- * CHARACTER CP*(*)
892
- */
893
- SUBROUTINE USRQID(
894
- CHARACTER*(*) CP
895
- INTEGER o IDX
896
- )
897
-
898
- /*
899
- * ENTRY USRQCP(IDX, CP)
900
- * CHARACTER CP*(*)
901
- */
902
- SUBROUTINE USRQCP(
903
- INTEGER IDX
904
- CHARACTER*(*) o CP
905
- )
906
-
907
- /*
908
- * ENTRY USRQCL(IDX, CP)
909
- * CHARACTER CP*(*)
910
- */
911
- SUBROUTINE USRQCL(
912
- INTEGER IDX
913
- CHARACTER*(*) o CP
914
- )
915
-
916
- /*
917
- * ENTRY USRQVL(IDX, RPARA)
918
- */
919
- SUBROUTINE USRQVL(
920
- INTEGER IDX
921
- REAL o RPARA
922
- )
923
-
924
- /*
925
- * ENTRY USRSVL(IDX, RPARA)
926
- */
927
- SUBROUTINE USRSVL(
928
- INTEGER IDX
929
- REAL RPARA
930
- )
931
-
932
- /*
933
- * ENTRY USRQIN(CP, IN)
934
- * CHARACTER CP*(*)
935
- */
936
- SUBROUTINE USRQIN(
937
- CHARACTER*(*) CP
938
- INTEGER o IN
939
- )
940
-
941
- /*****************************************************
942
- * grph2/uspack/ussaxs.f
943
- ****************************************************/
944
- /*
945
- * SUBROUTINE USSAXS(CSIDE)
946
- * CHARACTER CSIDE*(*), CS
947
- */
948
- SUBROUTINE USSAXS(
949
- CHARACTER*(*) CSIDE
950
- )
951
-
952
- /*****************************************************
953
- * grph2/uspack/usxinz.f
954
- ****************************************************/
955
- /*
956
- * SUBROUTINE USXINZ(CSA, FACA, OFFA)
957
- * CHARACTER CSA, CS, CPOS
958
- */
959
- SUBROUTINE USXINZ(
960
- CHARACTER*(*) CSA
961
- REAL o FACA
962
- REAL o OFFA
963
- )
964
-
965
- /*
966
- * ENTRY USXTLZ
967
- */
968
- SUBROUTINE USXTLZ(
969
- )
970
-
971
- /*****************************************************
972
- * grph2/uspack/usyinz.f
973
- ****************************************************/
974
- /*
975
- * SUBROUTINE USYINZ(CSA, FACA, OFFA)
976
- * CHARACTER CSA, CS, CPOS
977
- */
978
- SUBROUTINE USYINZ(
979
- CHARACTER*(*) CSA
980
- REAL o FACA
981
- REAL o OFFA
982
- )
983
-
984
- /*
985
- * ENTRY USYTLZ
986
- */
987
- SUBROUTINE USYTLZ(
988
- )
989
-