ruby-dcl 1.6.3.1 → 1.7.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (43) hide show
  1. data/.gitignore +17 -0
  2. data/ChangeLog +57 -1
  3. data/Gemfile +4 -0
  4. data/GenWrapper/Makefile +1 -0
  5. data/GenWrapper/dcl_rb_heading +2 -8
  6. data/GenWrapper/elim_ary_size.rb +1 -1
  7. data/GenWrapper/proto/Makefile +17 -16
  8. data/GenWrapper/proto/grph1_sgpack.fp +367 -1
  9. data/GenWrapper/proto/grph1_stpack.fp +45 -1
  10. data/GenWrapper/proto/grph1_swpack.fp +70 -1
  11. data/GenWrapper/proto/grph2_uipack.fp +508 -0
  12. data/GenWrapper/proto/math1_clsplib.fp +74 -0
  13. data/GenWrapper/proto/misc1_randlib.fp +15 -1
  14. data/README.md +29 -0
  15. data/Rakefile +18 -38
  16. data/dcl_narrayed_funcs.c +23 -22
  17. data/dcl_rubydcloriginal.c +21 -21
  18. data/demo/grph2/uipack/uipk01.rb +38 -0
  19. data/demo/grph2/uipack/uipk02.rb +48 -0
  20. data/demo/grph2/umpack/test09_2.rb +89 -0
  21. data/demo/math1/clsplib/cslb01.rb +55 -0
  22. data/extconf.rb +16 -48
  23. data/grph1_sgpack.c +1166 -0
  24. data/grph1_stpack.c +141 -0
  25. data/grph1_swpack.c +182 -0
  26. data/grph2_uipack.c +1456 -0
  27. data/init.c.default +8 -0
  28. data/lib/.keepme +0 -0
  29. data/lib/dcl/dcl.rb +5578 -0
  30. data/lib/dcl/version.rb +3 -0
  31. data/lib/dcl.rb +2 -5084
  32. data/math1_clsplib.c +329 -0
  33. data/misc1_randlib.c +37 -0
  34. data/ruby-dcl.gemspec +30 -0
  35. metadata +343 -352
  36. data/GenWrapper/etc/Mk_proto +0 -375
  37. data/GenWrapper/etc/dcl_gen +0 -13
  38. data/GenWrapper/etc/p_init +0 -410
  39. data/GenWrapper/proto/math2_shtlib.fp_old +0 -1294
  40. data/README_old +0 -79
  41. data/dummy.c +0 -9
  42. data/grph1_zgpack.c.org +0 -141
  43. data/init.c.gtk +0 -189
data/GenWrapper/proto/grph1_swpack.fp CHANGED
@@ -1,7 +1,7 @@
1
1
  /*
2
2
  * grph1_swpack.fp
3
3
  *
4
- * $Id: grph1_swpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
4
+ * $Id: grph1_swpack.fp,v 1.2 2012-03-02 17:18:53 koshiro Exp $
5
5
  */
6
6
 
7
7
  /*****************************************************
@@ -19,6 +19,26 @@
19
19
  SUBROUTINE SWDCLS(
20
20
  )
21
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
+
22
42
  /*
23
43
  * ENTRY SWPOPN
24
44
  */
@@ -55,12 +75,33 @@
55
75
  INTEGER IWDIDX
56
76
  )
57
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
58
88
  /*
59
89
  * ENTRY SWSCLI(ICLIDX)
60
90
  */
61
91
  SUBROUTINE SWSCLI(
62
92
  INTEGER ICLIDX
63
93
  )
94
+ #endif
95
+
96
+
97
+ /*
98
+ * ENTRY SWSLCL(ICOLOR)
99
+ */
100
+ #if DCLVER >= 544
101
+ SUBROUTINE SWSLCL(
102
+ INTEGER ICOLOR
103
+ )
104
+ #endif
64
105
 
65
106
  /*
66
107
  * ENTRY SWGOPN
@@ -90,6 +131,15 @@
90
131
  SUBROUTINE SWGCLS(
91
132
  )
92
133
 
134
+ /*
135
+ * ENTRY SWSTCL(ICOLOR)
136
+ */
137
+ #if DCLVER >= 544
138
+ SUBROUTINE SWSTCL(
139
+ INTEGER ICOLOR
140
+ )
141
+ #endif
142
+
93
143
  /*
94
144
  * ENTRY SWGTON(NP,WPX,WPY,ITPAT)
95
145
  * REAL WPX(*), WPY(*)
@@ -120,6 +170,17 @@
120
170
  INTEGER NLEN
121
171
  )
122
172
 
173
+ /*
174
+ * ENTRY SWICLR(IMAGE, NLEN)
175
+ * INTEGER IMAGE(*)
176
+ */
177
+ #if DCLVER >= 544
178
+ SUBROUTINE SWICLR(
179
+ INTEGER (NLEN) IMAGE
180
+ INTEGER NLEN
181
+ )
182
+ #endif
183
+
123
184
  /*
124
185
  * ENTRY SWICLS
125
186
  */
@@ -213,6 +274,14 @@
213
274
  INTEGER IWTROT
214
275
  )
215
276
 
277
+ /*
278
+ * ENTRY SWCLCH()
279
+ */
280
+ #if DCLVER >= 544
281
+ SUBROUTINE SWCLCH(
282
+ )
283
+ #endif
284
+
216
285
  /*****************************************************
217
286
  * grph1/swpack/swpqnp.f
218
287
  ****************************************************/
data/GenWrapper/proto/grph2_uipack.fp ADDED
@@ -0,0 +1,508 @@
1
+ /*
2
+ * grph2_uipack.fp
3
+ *
4
+ * $Id: grph2_uipack.fp,v 1.3 2012-03-08 05:16:17 koshiro Exp $
5
+ */
6
+
7
+ #if DCLVER >= 544
8
+
9
+ /*****************************************************
10
+ * grph2/uipack/uipdat.f
11
+ ****************************************************/
12
+ /*
13
+ * SUBROUTINE UIPDAT(Z, MX, NX, NY)
14
+ * REAL Z(MX,*)
15
+ */
16
+ SUBROUTINE UIPDAT(
17
+ REAL (MX,NY) Z
18
+ INTEGER MX
19
+ INTEGER NX
20
+ INTEGER NY
21
+ )
22
+
23
+ /*****************************************************
24
+ * grph2/uipack/uipda2.f
25
+ ****************************************************/
26
+ /*
27
+ * SUBROUTINE UIPDA2(U, V, MX, NX, NY)
28
+ * REAL U(MX, *), V(MX, *)
29
+ */
30
+ SUBROUTINE UIPDA2(
31
+ REAL (MX,NY) U
32
+ REAL (MX,NY) V
33
+ INTEGER MX
34
+ INTEGER NX
35
+ INTEGER NY
36
+ )
37
+
38
+ /*****************************************************
39
+ * grph2/uipack/uipda3.f
40
+ ****************************************************/
41
+ /*
42
+ * SUBROUTINE UIPDA3(U, V, W, MX, NX, NY)
43
+ * REAL U(MX, *), V(MX, *), W(MX, *)
44
+ */
45
+ SUBROUTINE UIPDA3(
46
+ REAL (MX,NY) U
47
+ REAL (MX,NY) V
48
+ REAL (MX,NY) W
49
+ INTEGER MX
50
+ INTEGER NX
51
+ INTEGER NY
52
+ )
53
+
54
+ /*****************************************************
55
+ * grph2/uipack/uicrgb.f
56
+ ****************************************************/
57
+ /*
58
+ * ENTRY UISCRG(ZMIN, ZMAX)
59
+ */
60
+ SUBROUTINE UISCRG(
61
+ REAL ZMIN
62
+ REAL ZMAX
63
+ )
64
+
65
+ /*
66
+ * ENTRY UISMRG(ZMIN, ZMAX)
67
+ */
68
+ SUBROUTINE UISMRG(
69
+ REAL ZMIN
70
+ REAL ZMAX
71
+ )
72
+
73
+ /*
74
+ * ENTRY UISCSQ(CLRLVL, ICOLOR, N)
75
+ * DIMENSION ICOLOR(*), CLRLVL(*)
76
+ */
77
+ SUBROUTINE UISCSQ(
78
+ REAL (N) CLRLVL
79
+ INTEGER (N) ICOLOR
80
+ INTEGER N
81
+ )
82
+
83
+ /*
84
+ * ENTRY UISCFL(CDSN)
85
+ * CHARACTER CDSN*(*)
86
+ */
87
+ SUBROUTINE UISCFL(
88
+ CHARACTER*(*) CDSN
89
+ )
90
+
91
+ /*
92
+ * ENTRY UISMSQ(SHDLVL, SHADE, N)
93
+ * DIMENSION SHADE(*), SHDLVL(*)
94
+ */
95
+ SUBROUTINE UISMSQ(
96
+ REAL (N) SHDLVL
97
+ INTEGER (N) SHADE
98
+ INTEGER N
99
+ )
100
+
101
+ /*
102
+ * ENTRY UISMFL(CDSN)
103
+ * CHARACTER CDSN*(*)
104
+ */
105
+ SUBROUTINE UISMFL(
106
+ CHARACTER*(*) CDSN
107
+ )
108
+
109
+ /*****************************************************
110
+ * grph2/uipack/uixbar.f
111
+ ****************************************************/
112
+ /*
113
+ * SUBROUTINE UIXBAR(XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX,CPOS)
114
+ * CHARACTER CPOS*(*)
115
+ */
116
+ SUBROUTINE UIXBAR(
117
+ REAL XMIN
118
+ REAL XMAX
119
+ REAL YMIN
120
+ REAL YMAX
121
+ REAL ZMIN
122
+ REAL ZMAX
123
+ CHARACTER*(*) CPOS
124
+ )
125
+
126
+ /*****************************************************
127
+ * grph2/uipack/uiybar.f
128
+ ****************************************************/
129
+ /*
130
+ * SUBROUTINE UIYBAR(XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX,CPOS)
131
+ * CHARACTER CPOS*(*)
132
+ */
133
+ SUBROUTINE UIYBAR(
134
+ REAL XMIN
135
+ REAL XMAX
136
+ REAL YMIN
137
+ REAL YMAX
138
+ REAL ZMIN
139
+ REAL ZMAX
140
+ CHARACTER*(*) CPOS
141
+ )
142
+
143
+ /*****************************************************
144
+ * grph2/uipack/uic2d.f
145
+ ****************************************************/
146
+ /*
147
+ * ENTRY UISCR2(UMIN, UMAX, VMIN, VMAX)
148
+ */
149
+ SUBROUTINE UISCR2(
150
+ REAL UMIN
151
+ REAL UMAX
152
+ REAL VMIN
153
+ REAL VMAX
154
+ )
155
+
156
+ /*
157
+ * ENTRY UIQCR2(UMIN, UMAX, VMIN, VMAX)
158
+ */
159
+ SUBROUTINE UIQCR2(
160
+ REAL o UMIN
161
+ REAL o UMAX
162
+ REAL o VMIN
163
+ REAL o VMAX
164
+ )
165
+
166
+ /*
167
+ * ENTRY UISCMP(IRGB1, IRGB2, IRGB3, IRGB4)
168
+ */
169
+ SUBROUTINE UISCMP(
170
+ INTEGER IRGB1
171
+ INTEGER IRGB2
172
+ INTEGER IRGB3
173
+ INTEGER IRGB4
174
+ )
175
+
176
+ /*****************************************************
177
+ * grph2/uipack/uipcmp.f
178
+ ****************************************************/
179
+ /*
180
+ * SUBROUTINE UIPCMP(XMIN,XMAX,YMIN,YMAX,CPOS)
181
+ * CHARACTER*(*) CPOS
182
+ */
183
+ SUBROUTINE UIPCMP(
184
+ REAL XMIN
185
+ REAL XMAX
186
+ REAL YMIN
187
+ REAL YMAX
188
+ CHARACTER*(*) CPOS
189
+ )
190
+
191
+ /*****************************************************
192
+ * grph2/uipack/uifpac.f
193
+ ****************************************************/
194
+ /*
195
+ * SUBROUTINE UIFPAC(IR, IG, IB, IRGB)
196
+ */
197
+ SUBROUTINE UIFPAC(
198
+ INTEGER IR
199
+ INTEGER IG
200
+ INTEGER IB
201
+ INTEGER o IRGB
202
+ )
203
+
204
+ /*
205
+ * ENTRY UIIPAC(IRGB, IR, IG, IB)
206
+ */
207
+ SUBROUTINE UIIPAC(
208
+ INTEGER IRGB
209
+ INTEGER o IR
210
+ INTEGER o IG
211
+ INTEGER o IB
212
+ )
213
+
214
+ /*****************************************************
215
+ * grph2/uipack/uiiget.f
216
+ ****************************************************/
217
+ /*
218
+ * SUBROUTINE UIIGET(CP, IPARA)
219
+ * CHARACTER CP*(*)
220
+ */
221
+ SUBROUTINE UIIGET(
222
+ CHARACTER*(*) CP
223
+ INTEGER o IPARA
224
+ )
225
+
226
+ /*
227
+ * ENTRY UIISET(CP, IPARA)
228
+ * CHARACTER CP*(*)
229
+ */
230
+ SUBROUTINE UIISET(
231
+ CHARACTER*(*) CP
232
+ INTEGER IPARA
233
+ )
234
+
235
+ /*
236
+ * ENTRY UIISTX(CP, IPARA)
237
+ * CHARACTER CP*(*)
238
+ */
239
+ SUBROUTINE UIISTX(
240
+ CHARACTER*(*) CP
241
+ INTEGER IPARA
242
+ )
243
+
244
+ /*****************************************************
245
+ * grph2/uipack/uiiqnp.f
246
+ ****************************************************/
247
+ /*
248
+ * SUBROUTINE UIIQNP(NCP)
249
+ */
250
+ SUBROUTINE UIIQNP(
251
+ INTEGER o NCP
252
+ )
253
+
254
+ /*
255
+ * ENTRY UIIQID(CP, IDX)
256
+ * CHARACTER CP*(*)
257
+ */
258
+ SUBROUTINE UIIQID(
259
+ CHARACTER*(*) CP
260
+ INTEGER o IDX
261
+ )
262
+
263
+ /*
264
+ * ENTRY UIIQCP(IDX, CP)
265
+ * CHARACTER CP*(*)
266
+ */
267
+ SUBROUTINE UIIQCP(
268
+ INTEGER IDX
269
+ CHARACTER*(*) o CP
270
+ )
271
+
272
+ /*
273
+ * ENTRY UIIQCL(IDX, CP)
274
+ * CHARACTER CP*(*)
275
+ */
276
+ SUBROUTINE UIIQCL(
277
+ INTEGER IDX
278
+ CHARACTER*(*) o CP
279
+ )
280
+
281
+ /*
282
+ * ENTRY UIIQVL(IDX, IPARA)
283
+ */
284
+ SUBROUTINE UIIQVL(
285
+ INTEGER IDX
286
+ INTEGER o IPARA
287
+ )
288
+
289
+ /*
290
+ * ENTRY UIISVL(IDX, IPARA)
291
+ */
292
+ SUBROUTINE UIISVL(
293
+ INTEGER IDX
294
+ INTEGER IPARA
295
+ )
296
+
297
+ /*
298
+ * ENTRY UIIQIN(CP, IN)
299
+ * CHARACTER CP*(*)
300
+ */
301
+ SUBROUTINE UIIQIN(
302
+ CHARACTER*(*) CP
303
+ INTEGER o IN
304
+ )
305
+
306
+ /*****************************************************
307
+ * grph2/uipack/uilget.f
308
+ ****************************************************/
309
+ /*
310
+ * SUBROUTINE UILGET(CP, LPARA)
311
+ * CHARACTER CP*(*)
312
+ * LOGICAL LPARA
313
+ */
314
+ SUBROUTINE UILGET(
315
+ CHARACTER*(*) CP
316
+ LOGICAL o LPARA
317
+ )
318
+
319
+ /*
320
+ * ENTRY UILSET(CP, LPARA)
321
+ * CHARACTER CP*(*)
322
+ * LOGICAL LPARA
323
+ */
324
+ SUBROUTINE UILSET(
325
+ CHARACTER*(*) CP
326
+ LOGICAL LPARA
327
+ )
328
+
329
+ /*
330
+ * ENTRY UILSTX(CP, LPARA)
331
+ * CHARACTER CP*(*)
332
+ * LOGICAL LPARA
333
+ */
334
+ SUBROUTINE UILSTX(
335
+ CHARACTER*(*) CP
336
+ LOGICAL LPARA
337
+ )
338
+
339
+ /*****************************************************
340
+ * grph2/uipack/uilqnp.f
341
+ ****************************************************/
342
+ /*
343
+ * SUBROUTINE UILQNP(NCP)
344
+ */
345
+ SUBROUTINE UILQNP(
346
+ INTEGER o NCP
347
+ )
348
+
349
+ /*
350
+ * ENTRY UILQID(CP, IDX)
351
+ * CHARACTER CP*(*)
352
+ */
353
+ SUBROUTINE UILQID(
354
+ CHARACTER*(*) CP
355
+ INTEGER o IDX
356
+ )
357
+
358
+ /*
359
+ * ENTRY UILQCP(IDX, CP)
360
+ * CHARACTER CP*(*)
361
+ */
362
+ SUBROUTINE UILQCP(
363
+ INTEGER IDX
364
+ CHARACTER*(*) o CP
365
+ )
366
+
367
+ /*
368
+ * ENTRY UILQCL(IDX, CP)
369
+ * CHARACTER CP*(*)
370
+ */
371
+ SUBROUTINE UILQCL(
372
+ INTEGER IDX
373
+ CHARACTER*(*) o CP
374
+ )
375
+
376
+ /*
377
+ * ENTRY UILQVL(IDX, LPARA)
378
+ * LOGICAL LPARA
379
+ */
380
+ SUBROUTINE UILQVL(
381
+ INTEGER IDX
382
+ LOGICAL o LPARA
383
+ )
384
+
385
+ /*
386
+ * ENTRY UILSVL(IDX, LPARA)
387
+ * LOGICAL LPARA
388
+ */
389
+ SUBROUTINE UILSVL(
390
+ INTEGER IDX
391
+ LOGICAL LPARA
392
+ )
393
+
394
+ /*
395
+ * ENTRY UILQIN(CP, IN)
396
+ * CHARACTER CP*(*)
397
+ */
398
+ SUBROUTINE UILQIN(
399
+ CHARACTER*(*) CP
400
+ INTEGER o IN
401
+ )
402
+
403
+ /*****************************************************
404
+ * grph2/uipack/uirget.f
405
+ ****************************************************/
406
+ /*
407
+ * SUBROUTINE UIRGET(CP, RPARA)
408
+ * CHARACTER CP*(*)
409
+ */
410
+ SUBROUTINE UIRGET(
411
+ CHARACTER*(*) CP
412
+ REAL o RPARA
413
+ )
414
+
415
+ /*
416
+ * ENTRY UIRSET(CP, RPARA)
417
+ * CHARACTER CP*(*)
418
+ */
419
+ SUBROUTINE UIRSET(
420
+ CHARACTER*(*) CP
421
+ REAL RPARA
422
+ )
423
+
424
+ /*
425
+ * ENTRY UIRSTX(CP, RPARA)
426
+ * CHARACTER CP*(*)
427
+ */
428
+ SUBROUTINE UIRSTX(
429
+ CHARACTER*(*) CP
430
+ REAL RPARA
431
+ )
432
+
433
+ /*****************************************************
434
+ * grph2/uipack/uirqnp.f
435
+ ****************************************************/
436
+ /*
437
+ * SUBROUTINE UIRQNP(NCP)
438
+ */
439
+ SUBROUTINE UIRQNP(
440
+ INTEGER o NCP
441
+ )
442
+
443
+ /*
444
+ * ENTRY UIRQID(CP, IDX)
445
+ * CHARACTER CP*(*)
446
+ */
447
+ SUBROUTINE UIRQID(
448
+ CHARACTER*(*) CP
449
+ INTEGER o IDX
450
+ )
451
+
452
+ /*
453
+ * ENTRY UIRQCP(IDX, CP)
454
+ * CHARACTER CP*(*)
455
+ */
456
+ SUBROUTINE UIRQCP(
457
+ INTEGER IDX
458
+ CHARACTER*(*) o CP
459
+ )
460
+
461
+ /*
462
+ * ENTRY UIRQCL(IDX, CP)
463
+ * CHARACTER CP*(*)
464
+ */
465
+ SUBROUTINE UIRQCL(
466
+ INTEGER IDX
467
+ CHARACTER*(*) o CP
468
+ )
469
+
470
+ /*
471
+ * ENTRY UIRQVL(IDX, RPARA)
472
+ */
473
+ SUBROUTINE UIRQVL(
474
+ INTEGER IDX
475
+ REAL o RPARA
476
+ )
477
+
478
+ /*
479
+ * ENTRY UIRSVL(IDX, RPARA)
480
+ */
481
+ SUBROUTINE UIRSVL(
482
+ INTEGER IDX
483
+ REAL RPARA
484
+ )
485
+
486
+ /*
487
+ * ENTRY UIRQIN(CP, IN)
488
+ * CHARACTER CP*(*)
489
+ */
490
+ SUBROUTINE UIRQIN(
491
+ CHARACTER*(*) CP
492
+ INTEGER o IN
493
+ )
494
+
495
+ /*****************************************************
496
+ * grph2/uipack/uiqfnm.f
497
+ ****************************************************/
498
+ /*
499
+ * SUBROUTINE UIQFNM(CPARA,CFNAME)
500
+ * CHARACTER CPARA*(*),CFNAME*(*)
501
+ */
502
+ SUBROUTINE UIQFNM(CPARA,CFNAME)
503
+ CHARACTER*(*) CPARA
504
+ CHARACTER*(*) o CFNAME
505
+ )
506
+
507
+ #endif
508
+
data/GenWrapper/proto/math1_clsplib.fp ADDED
@@ -0,0 +1,74 @@
1
+ /*
2
+ * math1_clsplib.fp
3
+ *
4
+ * $Id: math1_clsplib.fp,v 1.3 2012-03-08 05:16:17 koshiro Exp $
5
+ */
6
+
7
+ #if DCLVER >= 544
8
+
9
+ /*****************************************************
10
+ * math1/clsplib/clrgsv.f
11
+ ****************************************************/
12
+ /*
13
+ * SUBROUTINE CLRGSV(R,G,B,H,S,V,N,M)
14
+ */
15
+ SUBROUTINE CLRGSV(
16
+ INTEGER (N,M) R
17
+ INTEGER (N,M) G
18
+ INTEGER (N,M) B
19
+ REAL (N,M) o H
20
+ REAL (N,M) o S
21
+ REAL (N,M) o V
22
+ INTEGER N
23
+ INTEGER M
24
+ )
25
+
26
+ /*****************************************************
27
+ * math1/clsplib/clsvrg.f
28
+ ****************************************************/
29
+ /*
30
+ * SUBROUTINE CLSVRG(H,S,V,R,G,B,N,M)
31
+ */
32
+ SUBROUTINE CLSVRG(
33
+ REAL (N,M) H
34
+ REAL (N,M) S
35
+ REAL (N,M) V
36
+ INTEGER (N,M) o R
37
+ INTEGER (N,M) o G
38
+ INTEGER (N,M) o B
39
+ INTEGER N
40
+ INTEGER M
41
+ )
42
+
43
+ /*****************************************************
44
+ * math1/clsplib/inorml.f
45
+ ****************************************************/
46
+ /*
47
+ * SUBROUTINE INORML(V,W,N,M,X,Y)
48
+ */
49
+ SUBROUTINE INORML(
50
+ INTEGER (N,M) V
51
+ REAL (N,M) o W
52
+ INTEGER N
53
+ INTEGER M
54
+ REAL X
55
+ REAL Y
56
+ )
57
+
58
+ /*****************************************************
59
+ * math1/clsplib/rnorml.f
60
+ ****************************************************/
61
+ /*
62
+ * SUBROUTINE RNORML(V,W,N,M,X,Y)
63
+ */
64
+ SUBROUTINE RNORML(
65
+ REAL (N,M) V
66
+ REAL (N,M) o W
67
+ INTEGER N
68
+ INTEGER M
69
+ REAL X
70
+ REAL Y
71
+ )
72
+
73
+ #endif
74
+
data/GenWrapper/proto/misc1_randlib.fp CHANGED
@@ -1,9 +1,21 @@
1
1
  /*
2
2
  * misc1_randlib.fp
3
3
  *
4
- * $Id: misc1_randlib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
4
+ * $Id: misc1_randlib.fp,v 1.2 2012-03-02 17:18:54 koshiro Exp $
5
5
  */
6
6
 
7
+ /*****************************************************
8
+ * misc1/randlib/rngu0.c
9
+ ****************************************************/
10
+ /*
11
+ * REAL FUNCTION RNGU0(ISEED)
12
+ */
13
+ #if DCLVER >= 544
14
+ REAL FUNCTION RNGU0(
15
+ INTEGER io ISEED
16
+ )
17
+ #endif
18
+
7
19
  /*****************************************************
8
20
  * misc1/randlib/rngu1.f
9
21
  ****************************************************/
@@ -30,7 +42,9 @@
30
42
  /*
31
43
  * REAL FUNCTION RNGU3(ISEED)
32
44
  */
45
+ #if DCLVER < 544
33
46
  REAL FUNCTION RNGU3(
34
47
  INTEGER io ISEED
35
48
  )
49
+ #endif
36
50