ruby-dcl 1.7.1 → 1.8.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.
- checksums.yaml +4 -4
- data/{ChangeLog → .ChangeLog.until20150318} +0 -0
- data/LICENSE.txt +1 -1
- data/Rakefile +7 -11
- data/demo/gokuraku/hop/hop.rb +1 -1
- data/demo/gokuraku/jump/jump1.rb +1 -1
- data/demo/gokuraku/jump/jump2.rb +1 -1
- data/demo/gokuraku/layout/lay1.rb +1 -1
- data/demo/gokuraku/layout/lay2.rb +1 -1
- data/demo/gokuraku/step/step0.rb +1 -1
- data/demo/gokuraku/step/step1.rb +1 -1
- data/demo/gokuraku/step/step2.rb +1 -1
- data/demo/gokuraku/u1d/u1d1.rb +1 -1
- data/demo/gokuraku/u1d/u1d2.rb +1 -1
- data/demo/gokuraku/u2d/u2d1.rb +1 -1
- data/demo/gokuraku/u2d/u2d2.rb +1 -1
- data/demo/gokuraku/u2d/u2d3.rb +1 -1
- data/demo/gokuraku/u2d/u2d4.rb +1 -1
- data/demo/grph1/scpack/scpkt2.rb +1 -1
- data/demo/grph1/scpack/scpkt3.rb +1 -1
- data/demo/grph1/scpack/scpkt6.rb +1 -1
- data/demo/grph1/scpack/scpkt7.rb +1 -1
- data/demo/grph1/scpack/scpkt8.rb +1 -1
- data/demo/grph1/sgpack/sgfont.rb +1 -1
- data/demo/grph1/sgpack/sgfonz.rb +1 -1
- data/demo/grph1/sgpack/sgksx1.rb +1 -1
- data/demo/grph1/sgpack/sgksx2.rb +1 -1
- data/demo/grph1/sgpack/sgksx3.rb +1 -1
- data/demo/grph1/sgpack/sglidx.rb +1 -1
- data/demo/grph1/sgpack/sgltyp.rb +1 -1
- data/demo/grph1/sgpack/sgpk01.rb +1 -1
- data/demo/grph1/sgpack/sgpk02.rb +1 -1
- data/demo/grph1/sgpack/sgpk03.rb +1 -1
- data/demo/grph1/sgpack/sgpk04.rb +1 -1
- data/demo/grph1/sgpack/sgpk05.rb +1 -1
- data/demo/grph1/sgpack/sgpk06.rb +1 -1
- data/demo/grph1/sgpack/sgpk07.rb +1 -1
- data/demo/grph1/sgpack/sgpk08.rb +1 -1
- data/demo/grph1/sgpack/sgpk09.rb +1 -1
- data/demo/grph1/sgpack/sgpk10.rb +1 -1
- data/demo/grph1/sgpack/sgtclr.rb +1 -1
- data/demo/grph1/sgpack/sgtone.rb +1 -1
- data/demo/grph1/sgpack/sgtonz.rb +1 -1
- data/demo/grph1/slpack/slpk01.rb +1 -1
- data/demo/grph1/slpack/slpk02.rb +1 -1
- data/demo/grph1/slpack/slpk03.rb +1 -1
- data/demo/grph1/slpack/slpk04.rb +1 -1
- data/demo/grph2/grpack/grpk01.rb +1 -1
- data/demo/grph2/ucpack/ucpk01.rb +1 -1
- data/demo/grph2/ucpack/ucpk02.rb +1 -1
- data/demo/grph2/udegpk/u2df01.rb +1 -1
- data/demo/grph2/udegpk/u2df02.rb +1 -1
- data/demo/grph2/udegpk/u2df03.rb +1 -1
- data/demo/grph2/udegpk/u2df04.rb +1 -1
- data/demo/grph2/udegpk/u2df05.rb +1 -1
- data/demo/grph2/udegpk/u2df06.rb +1 -1
- data/demo/grph2/udegpk/u2df07.rb +1 -1
- data/demo/grph2/udegpk/u2df08.rb +1 -1
- data/demo/grph2/uipack/uipk01.rb +1 -1
- data/demo/grph2/uipack/uipk02.rb +1 -1
- data/demo/grph2/ulpack/ulpk01.rb +1 -1
- data/demo/grph2/ulpack/ulpk01n.rb +1 -1
- data/demo/grph2/ulpack/ulpk02.rb +1 -1
- data/demo/grph2/ulpack/ulpk02n.rb +1 -1
- data/demo/grph2/umpack/test01.rb +1 -1
- data/demo/grph2/umpack/test02.rb +1 -1
- data/demo/grph2/umpack/test03.rb +1 -1
- data/demo/grph2/umpack/test04.rb +1 -1
- data/demo/grph2/umpack/test05.rb +1 -1
- data/demo/grph2/umpack/test06.rb +1 -1
- data/demo/grph2/umpack/test07.rb +1 -1
- data/demo/grph2/umpack/test08.rb +1 -1
- data/demo/grph2/umpack/umpk01.rb +1 -1
- data/demo/grph2/umpack/umpk02.rb +1 -1
- data/demo/grph2/umpack/umpk03.rb +1 -1
- data/demo/grph2/umpack/umpk04.rb +1 -1
- data/demo/grph2/umpack/umpk05.rb +1 -1
- data/demo/grph2/uspack/uspk01.rb +1 -1
- data/demo/grph2/uspack/uspk02.rb +1 -1
- data/demo/grph2/uspack/uspk03.rb +1 -1
- data/demo/grph2/uspack/uspk04.rb +1 -1
- data/demo/grph2/uspack/uspk05.rb +1 -1
- data/demo/grph2/uspack/uspk06.rb +1 -1
- data/demo/grph2/uspack/uspk07.rb +1 -1
- data/demo/grph2/uspack/uspk08.rb +1 -1
- data/demo/grph2/uspack/uspk09.rb +1 -1
- data/demo/grph2/uspack/uspk10.rb +1 -1
- data/demo/grph2/uspack/uspk11.rb +1 -1
- data/demo/grph2/uspack/uspk12.rb +1 -1
- data/demo/grph2/uupack/uupk01.rb +1 -1
- data/demo/grph2/uupack/uupk02.rb +1 -1
- data/demo/grph2/uupack/uupk03.rb +1 -1
- data/demo/grph2/uupack/uupk04.rb +1 -1
- data/demo/grph2/uupack/uupk05.rb +1 -1
- data/demo/grph2/uupack/uupk06.rb +1 -1
- data/demo/grph2/uupack/uupk07.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz01.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz02.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz03.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz04.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz05.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz06.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz07.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz08.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz09.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz10.rb +1 -1
- data/demo/grph2/ximage/ximg01.rb +1 -1
- data/demo/math1/clsplib/cslb01.rb +1 -1
- data/demo/math2/fftlib/fftl01.rb +1 -1
- data/demo/math2/fftlib/fftl02.rb +1 -1
- data/demo/math2/intrlib/intr01.rb +1 -1
- data/demo/math2/rnmlib/rnml01.rb +1 -1
- data/demo/math2/vstlib/vstl01.rb +1 -1
- data/demo/math2/vstlib/vstl02.rb +1 -1
- data/demo/rakuraku/color/color1.rb +1 -1
- data/demo/rakuraku/color/color2.rb +1 -1
- data/demo/rakuraku/color/color3.rb +1 -1
- data/demo/rakuraku/kihon/kihon1.rb +1 -1
- data/demo/rakuraku/kihon/kihon2.rb +1 -1
- data/demo/rakuraku/kihon/kihon3.rb +1 -1
- data/demo/rakuraku/kihon/kihon4.rb +1 -1
- data/demo/rakuraku/kihon/kihon5.rb +1 -1
- data/demo/rakuraku/kihon/kihon6.rb +1 -1
- data/demo/rakuraku/kihon/kihon7.rb +1 -1
- data/demo/rakuraku/kihon/kihon8.rb +1 -1
- data/demo/rakuraku/kihon/kihon9.rb +1 -1
- data/demo/rakuraku/kihon/kihona.rb +1 -1
- data/demo/rakuraku/kihon/kihonb.rb +1 -1
- data/demo/rakuraku/kihon/kihonc.rb +1 -1
- data/demo/rakuraku/layout/lay1.rb +1 -1
- data/demo/rakuraku/layout/lay2.rb +1 -1
- data/demo/rakuraku/layout/lay3.rb +1 -1
- data/demo/rakuraku/map3d/map3d1.rb +1 -1
- data/demo/rakuraku/map3d/map3d2.rb +1 -1
- data/demo/rakuraku/map3d/map3d3.rb +1 -1
- data/demo/rakuraku/map3d/map3d4.rb +1 -1
- data/demo/rakuraku/map3d/map3d5.rb +1 -1
- data/demo/rakuraku/miss/miss1.rb +1 -1
- data/demo/rakuraku/miss/miss2.rb +1 -1
- data/demo/rakuraku/quick/quick1.rb +1 -1
- data/demo/rakuraku/quick/quick2.rb +1 -1
- data/demo/rakuraku/quick/quick3.rb +1 -1
- data/demo/rakuraku/quick/quick4.rb +1 -1
- data/demo/rakuraku/quick/quick5.rb +1 -1
- data/demo/rakuraku/u2d/u2d1.rb +1 -1
- data/demo/rakuraku/u2d/u2d2.rb +1 -1
- data/demo/rakuraku/u2d/u2d3.rb +1 -1
- data/demo/rakuraku/u2d/u2d4.rb +1 -1
- data/demo/rakuraku/u2d/u2d5.rb +1 -1
- data/demo/rakuraku/u2d/u2d6.rb +1 -1
- data/demo/rakuraku/u2d/u2d7.rb +1 -1
- data/demo/rakuraku/uspack/uspac1.rb +1 -1
- data/demo/rakuraku/uspack/uspac2.rb +1 -1
- data/demo/rakuraku/uspack/uspac3.rb +1 -1
- data/demo/rakuraku/uspack/uspac4.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz1.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz2.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz3.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz4.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz5.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz6.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz7.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz8.rb +1 -1
- data/ext/numru/dcl_cary2obj.c +28 -23
- data/ext/numru/dcl_obj2cary.c +8 -4
- data/ext/numru/dcl_rubydcloriginal.c +14 -4
- data/ext/numru/extconf.rb +9 -51
- data/ext/numru/grph1_csgi.c +9 -5
- data/ext/numru/grph1_scpack.c +9 -5
- data/ext/numru/grph1_sgpack.c +9 -5
- data/ext/numru/grph1_slpack.c +9 -5
- data/ext/numru/grph1_stpack.c +9 -5
- data/ext/numru/grph1_swpack.c +69 -5
- data/ext/numru/grph2_grpack.c +9 -5
- data/ext/numru/grph2_ucpack.c +9 -5
- data/ext/numru/grph2_udpack.c +9 -5
- data/ext/numru/grph2_uepack.c +9 -5
- data/ext/numru/grph2_ugpack.c +9 -5
- data/ext/numru/grph2_uhpack.c +9 -5
- data/ext/numru/grph2_uipack.c +9 -5
- data/ext/numru/grph2_ulpack.c +9 -5
- data/ext/numru/grph2_umpack.c +9 -5
- data/ext/numru/grph2_uspack.c +9 -5
- data/ext/numru/grph2_uupack.c +9 -5
- data/ext/numru/grph2_uvpack.c +9 -5
- data/ext/numru/grph2_uwpack.c +9 -5
- data/ext/numru/grph2_uxpack.c +9 -5
- data/ext/numru/grph2_uypack.c +9 -5
- data/ext/numru/grph2_uzpack.c +9 -5
- data/ext/numru/init.c +202 -0
- data/ext/numru/init.c.default +7 -0
- data/ext/numru/math1_blklib.c +9 -5
- data/ext/numru/math1_chrlib.c +9 -5
- data/ext/numru/math1_clsplib.c +9 -5
- data/ext/numru/math1_fnclib.c +9 -5
- data/ext/numru/math1_gnmlib.c +9 -5
- data/ext/numru/math1_gt2dlib.c +9 -5
- data/ext/numru/math1_ifalib.c +9 -5
- data/ext/numru/math1_indxlib.c +9 -5
- data/ext/numru/math1_intlib.c +9 -5
- data/ext/numru/math1_lrllib.c +9 -5
- data/ext/numru/math1_maplib.c +9 -5
- data/ext/numru/math1_oslib.c +9 -5
- data/ext/numru/math1_rfalib.c +9 -5
- data/ext/numru/math1_rfblib.c +9 -5
- data/ext/numru/math1_sublib.c +9 -5
- data/ext/numru/math1_syslib.c +9 -5
- data/ext/numru/math1_vialib.c +9 -5
- data/ext/numru/math1_viblib.c +9 -5
- data/ext/numru/math1_vralib.c +9 -5
- data/ext/numru/math1_vrblib.c +9 -5
- data/ext/numru/math1_xfclib.c +9 -5
- data/ext/numru/math2_fftlib.c +9 -5
- data/ext/numru/math2_intrlib.c +9 -5
- data/ext/numru/math2_rnmlib.c +9 -5
- data/ext/numru/math2_shtlib.c +9 -5
- data/ext/numru/math2_vstlib.c +9 -5
- data/ext/numru/misc1_chnlib.c +9 -5
- data/ext/numru/misc1_datelib.c +9 -5
- data/ext/numru/misc1_fmtlib.c +9 -5
- data/ext/numru/misc1_misclib.c +9 -5
- data/ext/numru/misc1_randlib.c +9 -5
- data/ext/numru/misc1_timelib.c +9 -5
- data/lib/numru/dcl.rb +6 -5580
- data/lib/numru/dcl/dcl.rb +5591 -0
- data/lib/numru/dcl/version.rb +5 -0
- data/ruby-dcl-bigmem.gemspec +36 -0
- data/ruby-dcl.gemspec +10 -9
- metadata +17 -93
- data/.gitignore +0 -13
- data/.rspec +0 -2
- data/.travis.yml +0 -3
- data/GenWrapper/cproto2init.rb +0 -41
- data/GenWrapper/dcl_narrayed_funcs.rb +0 -181
- data/GenWrapper/dcl_rb_footing +0 -29
- data/GenWrapper/dcl_rb_heading +0 -123
- data/GenWrapper/def.rb +0 -20
- data/GenWrapper/elim_ary_size.rb +0 -398
- data/GenWrapper/etc/p_header +0 -64
- data/GenWrapper/pparse.rb +0 -137
- data/GenWrapper/proto/grph1_00 +0 -17
- data/GenWrapper/proto/grph1_csgi.fp +0 -27
- data/GenWrapper/proto/grph1_scpack.fp +0 -442
- data/GenWrapper/proto/grph1_sgpack.fp +0 -1772
- data/GenWrapper/proto/grph1_slpack.fp +0 -316
- data/GenWrapper/proto/grph1_stpack.fp +0 -455
- data/GenWrapper/proto/grph1_swpack.fp +0 -826
- data/GenWrapper/proto/grph2_00 +0 -16
- data/GenWrapper/proto/grph2_grpack.fp +0 -139
- data/GenWrapper/proto/grph2_ucpack.fp +0 -522
- data/GenWrapper/proto/grph2_udpack.fp +0 -692
- data/GenWrapper/proto/grph2_uepack.fp +0 -601
- data/GenWrapper/proto/grph2_ugpack.fp +0 -436
- data/GenWrapper/proto/grph2_uhpack.fp +0 -246
- data/GenWrapper/proto/grph2_uipack.fp +0 -508
- data/GenWrapper/proto/grph2_ulpack.fp +0 -516
- data/GenWrapper/proto/grph2_umpack.fp +0 -676
- data/GenWrapper/proto/grph2_uspack.fp +0 -989
- data/GenWrapper/proto/grph2_uupack.fp +0 -663
- data/GenWrapper/proto/grph2_uvpack.fp +0 -246
- data/GenWrapper/proto/grph2_uwpack.fp +0 -203
- data/GenWrapper/proto/grph2_uxpack.fp +0 -295
- data/GenWrapper/proto/grph2_uypack.fp +0 -295
- data/GenWrapper/proto/grph2_uzpack.fp +0 -574
- data/GenWrapper/proto/math1_00 +0 -12
- data/GenWrapper/proto/math1_blklib.fp +0 -58
- data/GenWrapper/proto/math1_chrlib.fp +0 -83
- data/GenWrapper/proto/math1_clsplib.fp +0 -74
- data/GenWrapper/proto/math1_fnclib.fp +0 -79
- data/GenWrapper/proto/math1_gnmlib.fp +0 -118
- data/GenWrapper/proto/math1_gt2dlib.fp +0 -144
- data/GenWrapper/proto/math1_ifalib.fp +0 -123
- data/GenWrapper/proto/math1_indxlib.fp +0 -222
- data/GenWrapper/proto/math1_intlib.fp +0 -46
- data/GenWrapper/proto/math1_lrllib.fp +0 -276
- data/GenWrapper/proto/math1_maplib.fp +0 -24
- data/GenWrapper/proto/math1_oslib.fp +0 -28
- data/GenWrapper/proto/math1_rfalib.fp +0 -420
- data/GenWrapper/proto/math1_rfblib.fp +0 -51
- data/GenWrapper/proto/math1_sublib.fp +0 -60
- data/GenWrapper/proto/math1_syslib.fp +0 -767
- data/GenWrapper/proto/math1_vialib.fp +0 -339
- data/GenWrapper/proto/math1_viblib.fp +0 -264
- data/GenWrapper/proto/math1_vralib.fp +0 -339
- data/GenWrapper/proto/math1_vrblib.fp +0 -264
- data/GenWrapper/proto/math1_xfclib.fp +0 -68
- data/GenWrapper/proto/math2_00 +0 -12
- data/GenWrapper/proto/math2_fftlib.fp +0 -803
- data/GenWrapper/proto/math2_intrlib.fp +0 -32
- data/GenWrapper/proto/math2_odelib.fp_notused +0 -568
- data/GenWrapper/proto/math2_rnmlib.fp +0 -54
- data/GenWrapper/proto/math2_shtlib.fp +0 -1292
- data/GenWrapper/proto/math2_vstlib.fp +0 -84
- data/GenWrapper/proto/misc1_00 +0 -17
- data/GenWrapper/proto/misc1_chnlib.fp +0 -47
- data/GenWrapper/proto/misc1_datelib.fp +0 -352
- data/GenWrapper/proto/misc1_fmtlib.fp +0 -19
- data/GenWrapper/proto/misc1_misclib.fp +0 -26
- data/GenWrapper/proto/misc1_randlib.fp +0 -50
- data/GenWrapper/proto/misc1_timelib.fp +0 -151
- data/GenWrapper/proto2c.rb +0 -13
- data/GenWrapper/prototype.rb +0 -209
- data/GenWrapper/util.rb +0 -9
- data/GenWrapper/variable.rb +0 -671
- data/ToDo +0 -2
- data/bin/console +0 -14
- data/bin/setup +0 -7
|
@@ -1,84 +0,0 @@
|
|
|
1
|
-
/*
|
|
2
|
-
* math2_vstlib.fp
|
|
3
|
-
*
|
|
4
|
-
* $Id: math2_vstlib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
|
|
5
|
-
*/
|
|
6
|
-
|
|
7
|
-
/*****************************************************
|
|
8
|
-
* math2/vstlib/vs1int.f
|
|
9
|
-
****************************************************/
|
|
10
|
-
/*
|
|
11
|
-
* SUBROUTINE VS1INT(WZ,NW,IX)
|
|
12
|
-
* REAL WZ(IX,2),X(IX)
|
|
13
|
-
* INTEGER NW(IX)
|
|
14
|
-
*/
|
|
15
|
-
SUBROUTINE VS1INT(
|
|
16
|
-
REAL (IX,2) o WZ
|
|
17
|
-
INTEGER (IX) o NW
|
|
18
|
-
INTEGER IX
|
|
19
|
-
)
|
|
20
|
-
|
|
21
|
-
/*
|
|
22
|
-
* ENTRY VS1DIN(WZ,NW,IX,X)
|
|
23
|
-
* REAL WZ(IX,2),X(IX)
|
|
24
|
-
* INTEGER NW(IX)
|
|
25
|
-
*/
|
|
26
|
-
SUBROUTINE VS1DIN(
|
|
27
|
-
REAL (IX,2) io WZ
|
|
28
|
-
INTEGER (IX) io NW
|
|
29
|
-
INTEGER IX
|
|
30
|
-
REAL (IX) X
|
|
31
|
-
)
|
|
32
|
-
|
|
33
|
-
/*
|
|
34
|
-
* ENTRY VS1OUT(WZ,NW,IX)
|
|
35
|
-
* REAL WZ(IX,2),X(IX)
|
|
36
|
-
* INTEGER NW(IX)
|
|
37
|
-
*/
|
|
38
|
-
SUBROUTINE VS1OUT(
|
|
39
|
-
REAL (IX,2) io WZ
|
|
40
|
-
INTEGER (IX) NW
|
|
41
|
-
INTEGER IX
|
|
42
|
-
)
|
|
43
|
-
|
|
44
|
-
/*****************************************************
|
|
45
|
-
* math2/vstlib/vs2int.f
|
|
46
|
-
****************************************************/
|
|
47
|
-
/*
|
|
48
|
-
* SUBROUTINE VS2INT(WZ,NW,IX,IY)
|
|
49
|
-
* REAL WZ(IX,IY,5),X(IX),Y(IY)
|
|
50
|
-
* INTEGER NW(IX,IY)
|
|
51
|
-
*/
|
|
52
|
-
SUBROUTINE VS2INT(
|
|
53
|
-
REAL (IX,IY,5) o WZ
|
|
54
|
-
INTEGER (IX,IY) o NW
|
|
55
|
-
INTEGER IX
|
|
56
|
-
INTEGER IY
|
|
57
|
-
)
|
|
58
|
-
|
|
59
|
-
/*
|
|
60
|
-
* ENTRY VS2DIN(WZ,NW,IX,IY,X,Y)
|
|
61
|
-
* REAL WZ(IX,IY,5),X(IX),Y(IY)
|
|
62
|
-
* INTEGER NW(IX,IY)
|
|
63
|
-
*/
|
|
64
|
-
SUBROUTINE VS2DIN(
|
|
65
|
-
REAL (IX,IY,5) io WZ
|
|
66
|
-
INTEGER (IX,IY) io NW
|
|
67
|
-
INTEGER IX
|
|
68
|
-
INTEGER IY
|
|
69
|
-
REAL (IX) X
|
|
70
|
-
REAL (IX) Y
|
|
71
|
-
)
|
|
72
|
-
|
|
73
|
-
/*
|
|
74
|
-
* ENTRY VS2OUT(WZ,NW,IX,IY)
|
|
75
|
-
* REAL WZ(IX,IY,5),X(IX),Y(IY)
|
|
76
|
-
* INTEGER NW(IX,IY)
|
|
77
|
-
*/
|
|
78
|
-
SUBROUTINE VS2OUT(
|
|
79
|
-
REAL (IX,IY,5) io WZ
|
|
80
|
-
INTEGER (IX,IY) NW
|
|
81
|
-
INTEGER IX
|
|
82
|
-
INTEGER IY
|
|
83
|
-
)
|
|
84
|
-
|
data/GenWrapper/proto/misc1_00
DELETED
|
@@ -1,17 +0,0 @@
|
|
|
1
|
-
/*
|
|
2
|
-
* misc1_00
|
|
3
|
-
* log to split misc1.f77proto into misc1_xxxlib.fp
|
|
4
|
-
*
|
|
5
|
-
* $Id: misc1_00,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
|
|
6
|
-
*/
|
|
7
|
-
-----
|
|
8
|
-
/*
|
|
9
|
-
* misc1.f77proto
|
|
10
|
-
* #Id: misc1.f77proto,v 1.2 2000/11/05 14:39:34 keiko Exp $
|
|
11
|
-
*/
|
|
12
|
-
|
|
13
|
-
/*
|
|
14
|
-
* Packages deleted (by horinout):
|
|
15
|
-
* /bitlib, chglib, chklib, fiolib, hexlib, reallib
|
|
16
|
-
*/
|
|
17
|
-
|
|
@@ -1,47 +0,0 @@
|
|
|
1
|
-
/*
|
|
2
|
-
* misc1_chnlib.fp
|
|
3
|
-
*
|
|
4
|
-
* $Id: misc1_chnlib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
|
|
5
|
-
*/
|
|
6
|
-
|
|
7
|
-
/*****************************************************
|
|
8
|
-
* misc1/chnlib/chngc.f
|
|
9
|
-
****************************************************/
|
|
10
|
-
/*
|
|
11
|
-
* SUBROUTINE CHNGC(CH,CA,CB)
|
|
12
|
-
* CHARACTER CH*(*),CA*(*),CB*(*)
|
|
13
|
-
*/
|
|
14
|
-
SUBROUTINE CHNGC(
|
|
15
|
-
CHARACTER*(*) io CH
|
|
16
|
-
CHARACTER*(*) CA
|
|
17
|
-
CHARACTER*(*) CB
|
|
18
|
-
)
|
|
19
|
-
|
|
20
|
-
/*****************************************************
|
|
21
|
-
* misc1/chnlib/chngi.f
|
|
22
|
-
****************************************************/
|
|
23
|
-
/*
|
|
24
|
-
* SUBROUTINE CHNGI(CH,CA,II,CFMT)
|
|
25
|
-
* CHARACTER CH*(*),CA*(*),CFMT*(*)
|
|
26
|
-
*/
|
|
27
|
-
SUBROUTINE CHNGI(
|
|
28
|
-
CHARACTER*(*) io CH
|
|
29
|
-
CHARACTER*(*) CA
|
|
30
|
-
INTEGER II
|
|
31
|
-
CHARACTER*(*) CFMT
|
|
32
|
-
)
|
|
33
|
-
|
|
34
|
-
/*****************************************************
|
|
35
|
-
* misc1/chnlib/chngr.f
|
|
36
|
-
****************************************************/
|
|
37
|
-
/*
|
|
38
|
-
* SUBROUTINE CHNGR(CH,CA,RR,CFMT)
|
|
39
|
-
* CHARACTER CH*(*),CA*(*),CFMT*(*)
|
|
40
|
-
*/
|
|
41
|
-
SUBROUTINE CHNGR(
|
|
42
|
-
CHARACTER*(*) io CH
|
|
43
|
-
CHARACTER*(*) CA
|
|
44
|
-
REAL RR
|
|
45
|
-
CHARACTER*(*) CFMT
|
|
46
|
-
)
|
|
47
|
-
|
|
@@ -1,352 +0,0 @@
|
|
|
1
|
-
/*
|
|
2
|
-
* misc1_datelib.fp
|
|
3
|
-
*
|
|
4
|
-
* $Id: misc1_datelib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
|
|
5
|
-
*/
|
|
6
|
-
|
|
7
|
-
/*****************************************************
|
|
8
|
-
* misc1/datelib/date12.f
|
|
9
|
-
****************************************************/
|
|
10
|
-
/*
|
|
11
|
-
* SUBROUTINE DATE12(IDATE,IY,ITD)
|
|
12
|
-
*/
|
|
13
|
-
SUBROUTINE DATE12(
|
|
14
|
-
INTEGER IDATE
|
|
15
|
-
INTEGER o IY
|
|
16
|
-
INTEGER o ITD
|
|
17
|
-
)
|
|
18
|
-
|
|
19
|
-
/*****************************************************
|
|
20
|
-
* misc1/datelib/date13.f
|
|
21
|
-
****************************************************/
|
|
22
|
-
/*
|
|
23
|
-
* SUBROUTINE DATE13(IDATE,IY,IM,ID)
|
|
24
|
-
*/
|
|
25
|
-
SUBROUTINE DATE13(
|
|
26
|
-
INTEGER IDATE
|
|
27
|
-
INTEGER o IY
|
|
28
|
-
INTEGER o IM
|
|
29
|
-
INTEGER o ID
|
|
30
|
-
)
|
|
31
|
-
|
|
32
|
-
/*****************************************************
|
|
33
|
-
* misc1/datelib/date21.f
|
|
34
|
-
****************************************************/
|
|
35
|
-
/*
|
|
36
|
-
* SUBROUTINE DATE21(IDATE,IY,ITD)
|
|
37
|
-
*/
|
|
38
|
-
SUBROUTINE DATE21(
|
|
39
|
-
INTEGER o IDATE
|
|
40
|
-
INTEGER IY
|
|
41
|
-
INTEGER ITD
|
|
42
|
-
)
|
|
43
|
-
|
|
44
|
-
/*****************************************************
|
|
45
|
-
* misc1/datelib/date23.f
|
|
46
|
-
****************************************************/
|
|
47
|
-
/*
|
|
48
|
-
* SUBROUTINE DATE23(IY,IM,ID,ITD)
|
|
49
|
-
*/
|
|
50
|
-
SUBROUTINE DATE23(
|
|
51
|
-
INTEGER io IY
|
|
52
|
-
INTEGER o IM
|
|
53
|
-
INTEGER o ID
|
|
54
|
-
INTEGER ITD
|
|
55
|
-
)
|
|
56
|
-
|
|
57
|
-
/*****************************************************
|
|
58
|
-
* misc1/datelib/date31.f
|
|
59
|
-
****************************************************/
|
|
60
|
-
/*
|
|
61
|
-
* SUBROUTINE DATE31(IDATE,IY,IM,ID)
|
|
62
|
-
*/
|
|
63
|
-
SUBROUTINE DATE31(
|
|
64
|
-
INTEGER o IDATE
|
|
65
|
-
INTEGER IY
|
|
66
|
-
INTEGER IM
|
|
67
|
-
INTEGER ID
|
|
68
|
-
)
|
|
69
|
-
|
|
70
|
-
/*****************************************************
|
|
71
|
-
* misc1/datelib/date32.f
|
|
72
|
-
****************************************************/
|
|
73
|
-
/*
|
|
74
|
-
* SUBROUTINE DATE32(IY,IM,ID,ITD)
|
|
75
|
-
*/
|
|
76
|
-
SUBROUTINE DATE32(
|
|
77
|
-
INTEGER io IY
|
|
78
|
-
INTEGER IM
|
|
79
|
-
INTEGER ID
|
|
80
|
-
INTEGER o ITD
|
|
81
|
-
)
|
|
82
|
-
|
|
83
|
-
/*****************************************************
|
|
84
|
-
* misc1/datelib/datef1.f
|
|
85
|
-
****************************************************/
|
|
86
|
-
/*
|
|
87
|
-
* SUBROUTINE DATEF1(N,IDATE,NDATE)
|
|
88
|
-
*/
|
|
89
|
-
SUBROUTINE DATEF1(
|
|
90
|
-
INTEGER N
|
|
91
|
-
INTEGER IDATE
|
|
92
|
-
INTEGER o NDATE
|
|
93
|
-
)
|
|
94
|
-
|
|
95
|
-
/*****************************************************
|
|
96
|
-
* misc1/datelib/datef2.f
|
|
97
|
-
****************************************************/
|
|
98
|
-
/*
|
|
99
|
-
* SUBROUTINE DATEF2(N,IY,ITD,NY,NTD)
|
|
100
|
-
*/
|
|
101
|
-
SUBROUTINE DATEF2(
|
|
102
|
-
INTEGER N
|
|
103
|
-
INTEGER IY
|
|
104
|
-
INTEGER ITD
|
|
105
|
-
INTEGER o NY
|
|
106
|
-
INTEGER o NTD
|
|
107
|
-
)
|
|
108
|
-
|
|
109
|
-
/*****************************************************
|
|
110
|
-
* misc1/datelib/datef3.f
|
|
111
|
-
****************************************************/
|
|
112
|
-
/*
|
|
113
|
-
* SUBROUTINE DATEF3(N,IY,IM,ID,NY,NM,ND)
|
|
114
|
-
*/
|
|
115
|
-
SUBROUTINE DATEF3(
|
|
116
|
-
INTEGER N
|
|
117
|
-
INTEGER IY
|
|
118
|
-
INTEGER IM
|
|
119
|
-
INTEGER ID
|
|
120
|
-
INTEGER o NY
|
|
121
|
-
INTEGER o NM
|
|
122
|
-
INTEGER o ND
|
|
123
|
-
)
|
|
124
|
-
|
|
125
|
-
/*****************************************************
|
|
126
|
-
* misc1/datelib/dateg1.f
|
|
127
|
-
****************************************************/
|
|
128
|
-
/*
|
|
129
|
-
* SUBROUTINE DATEG1(N,IDATE,NDATE)
|
|
130
|
-
*/
|
|
131
|
-
SUBROUTINE DATEG1(
|
|
132
|
-
INTEGER o N
|
|
133
|
-
INTEGER IDATE
|
|
134
|
-
INTEGER NDATE
|
|
135
|
-
)
|
|
136
|
-
|
|
137
|
-
/*****************************************************
|
|
138
|
-
* misc1/datelib/dateg2.f
|
|
139
|
-
****************************************************/
|
|
140
|
-
/*
|
|
141
|
-
* SUBROUTINE DATEG2(N,IY,ITD,NY,NTD)
|
|
142
|
-
*/
|
|
143
|
-
SUBROUTINE DATEG2(
|
|
144
|
-
INTEGER o N
|
|
145
|
-
INTEGER IY
|
|
146
|
-
INTEGER ITD
|
|
147
|
-
INTEGER NY
|
|
148
|
-
INTEGER NTD
|
|
149
|
-
)
|
|
150
|
-
|
|
151
|
-
/*****************************************************
|
|
152
|
-
* misc1/datelib/dateg3.f
|
|
153
|
-
****************************************************/
|
|
154
|
-
/*
|
|
155
|
-
* SUBROUTINE DATEG3(N,IY,IM,ID,NY,NM,ND)
|
|
156
|
-
*/
|
|
157
|
-
SUBROUTINE DATEG3(
|
|
158
|
-
INTEGER o N
|
|
159
|
-
INTEGER IY
|
|
160
|
-
INTEGER IM
|
|
161
|
-
INTEGER ID
|
|
162
|
-
INTEGER NY
|
|
163
|
-
INTEGER NM
|
|
164
|
-
INTEGER ND
|
|
165
|
-
)
|
|
166
|
-
|
|
167
|
-
/*****************************************************
|
|
168
|
-
* misc1/datelib/ndate1.f
|
|
169
|
-
****************************************************/
|
|
170
|
-
/*
|
|
171
|
-
* INTEGER FUNCTION NDATE1(IDATE,NDATE)
|
|
172
|
-
*/
|
|
173
|
-
INTEGER FUNCTION NDATE1(
|
|
174
|
-
INTEGER IDATE
|
|
175
|
-
INTEGER NDATE
|
|
176
|
-
)
|
|
177
|
-
|
|
178
|
-
/*****************************************************
|
|
179
|
-
* misc1/datelib/ndate2.f
|
|
180
|
-
****************************************************/
|
|
181
|
-
/*
|
|
182
|
-
* INTEGER FUNCTION NDATE2(IY,ITD,NY,NTD)
|
|
183
|
-
*/
|
|
184
|
-
INTEGER FUNCTION NDATE2(
|
|
185
|
-
INTEGER IY
|
|
186
|
-
INTEGER ITD
|
|
187
|
-
INTEGER NY
|
|
188
|
-
INTEGER NTD
|
|
189
|
-
)
|
|
190
|
-
|
|
191
|
-
/*****************************************************
|
|
192
|
-
* misc1/datelib/ndate3.f
|
|
193
|
-
****************************************************/
|
|
194
|
-
/*
|
|
195
|
-
* INTEGER FUNCTION NDATE3(IY,IM,ID,NY,NM,ND)
|
|
196
|
-
*/
|
|
197
|
-
INTEGER FUNCTION NDATE3(
|
|
198
|
-
INTEGER IY
|
|
199
|
-
INTEGER IM
|
|
200
|
-
INTEGER ID
|
|
201
|
-
INTEGER NY
|
|
202
|
-
INTEGER NM
|
|
203
|
-
INTEGER ND
|
|
204
|
-
)
|
|
205
|
-
|
|
206
|
-
/*****************************************************
|
|
207
|
-
* misc1/datelib/datec1.f
|
|
208
|
-
****************************************************/
|
|
209
|
-
/*
|
|
210
|
-
* SUBROUTINE DATEC1(CFORM,IDATE)
|
|
211
|
-
* CHARACTER CFORM*(*)
|
|
212
|
-
*/
|
|
213
|
-
SUBROUTINE DATEC1(
|
|
214
|
-
CHARACTER*(*) io CFORM
|
|
215
|
-
INTEGER IDATE
|
|
216
|
-
)
|
|
217
|
-
|
|
218
|
-
/*****************************************************
|
|
219
|
-
* misc1/datelib/datec2.f
|
|
220
|
-
****************************************************/
|
|
221
|
-
/*
|
|
222
|
-
* SUBROUTINE DATEC2(CFORM,IY,ITD)
|
|
223
|
-
* CHARACTER CFORM*(*)
|
|
224
|
-
*/
|
|
225
|
-
SUBROUTINE DATEC2(
|
|
226
|
-
CHARACTER*(*) io CFORM
|
|
227
|
-
INTEGER IY
|
|
228
|
-
INTEGER ITD
|
|
229
|
-
)
|
|
230
|
-
|
|
231
|
-
/*****************************************************
|
|
232
|
-
* misc1/datelib/datec3.f
|
|
233
|
-
****************************************************/
|
|
234
|
-
/*
|
|
235
|
-
* SUBROUTINE DATEC3(CFORM,IY,IM,ID)
|
|
236
|
-
* CHARACTER CFORM*(*)
|
|
237
|
-
*/
|
|
238
|
-
SUBROUTINE DATEC3(
|
|
239
|
-
CHARACTER*(*) io CFORM
|
|
240
|
-
INTEGER IY
|
|
241
|
-
INTEGER IM
|
|
242
|
-
INTEGER ID
|
|
243
|
-
)
|
|
244
|
-
|
|
245
|
-
/*****************************************************
|
|
246
|
-
* misc1/datelib/dateq1.f
|
|
247
|
-
****************************************************/
|
|
248
|
-
/*
|
|
249
|
-
* SUBROUTINE DATEQ1(IDATE)
|
|
250
|
-
*/
|
|
251
|
-
SUBROUTINE DATEQ1(
|
|
252
|
-
INTEGER o IDATE
|
|
253
|
-
)
|
|
254
|
-
|
|
255
|
-
/*****************************************************
|
|
256
|
-
* misc1/datelib/ndmon.f
|
|
257
|
-
****************************************************/
|
|
258
|
-
/*
|
|
259
|
-
* INTEGER FUNCTION NDMON(IY,IM)
|
|
260
|
-
*/
|
|
261
|
-
INTEGER FUNCTION NDMON(
|
|
262
|
-
INTEGER IY
|
|
263
|
-
INTEGER IM
|
|
264
|
-
)
|
|
265
|
-
|
|
266
|
-
/*****************************************************
|
|
267
|
-
* misc1/datelib/dateq2.f
|
|
268
|
-
****************************************************/
|
|
269
|
-
/*
|
|
270
|
-
* SUBROUTINE DATEQ2(IY, ITD)
|
|
271
|
-
*/
|
|
272
|
-
SUBROUTINE DATEQ2(
|
|
273
|
-
INTEGER o IY
|
|
274
|
-
INTEGER o ITD
|
|
275
|
-
)
|
|
276
|
-
|
|
277
|
-
/*****************************************************
|
|
278
|
-
* misc1/datelib/cmon.f
|
|
279
|
-
****************************************************/
|
|
280
|
-
/*
|
|
281
|
-
* CHARACTER*(*) FUNCTION CMON(IM)
|
|
282
|
-
*/
|
|
283
|
-
CHARACTER*(*) FUNCTION CMON(
|
|
284
|
-
INTEGER IM
|
|
285
|
-
)
|
|
286
|
-
|
|
287
|
-
/*****************************************************
|
|
288
|
-
* misc1/datelib/cweek.f
|
|
289
|
-
****************************************************/
|
|
290
|
-
/*
|
|
291
|
-
* CHARACTER*(*) FUNCTION CWEEK(IW)
|
|
292
|
-
*/
|
|
293
|
-
CHARACTER*(*) FUNCTION CWEEK(
|
|
294
|
-
INTEGER IW
|
|
295
|
-
)
|
|
296
|
-
|
|
297
|
-
/*****************************************************
|
|
298
|
-
* misc1/datelib/iweek1.f
|
|
299
|
-
****************************************************/
|
|
300
|
-
/*
|
|
301
|
-
* INTEGER FUNCTION IWEEK1(IDATE)
|
|
302
|
-
*/
|
|
303
|
-
INTEGER FUNCTION IWEEK1(
|
|
304
|
-
INTEGER IDATE
|
|
305
|
-
)
|
|
306
|
-
|
|
307
|
-
/*****************************************************
|
|
308
|
-
* misc1/datelib/iweek2.f
|
|
309
|
-
****************************************************/
|
|
310
|
-
/*
|
|
311
|
-
* INTEGER FUNCTION IWEEK2(IY,ITD)
|
|
312
|
-
*/
|
|
313
|
-
INTEGER FUNCTION IWEEK2(
|
|
314
|
-
INTEGER IY
|
|
315
|
-
INTEGER ITD
|
|
316
|
-
)
|
|
317
|
-
|
|
318
|
-
/*****************************************************
|
|
319
|
-
* misc1/datelib/iweek3.f
|
|
320
|
-
****************************************************/
|
|
321
|
-
/*
|
|
322
|
-
* INTEGER FUNCTION IWEEK3(IY,IM,ID)
|
|
323
|
-
*/
|
|
324
|
-
INTEGER FUNCTION IWEEK3(
|
|
325
|
-
INTEGER IY
|
|
326
|
-
INTEGER IM
|
|
327
|
-
INTEGER ID
|
|
328
|
-
)
|
|
329
|
-
|
|
330
|
-
/*****************************************************
|
|
331
|
-
* misc1/datelib/ndyear.f
|
|
332
|
-
****************************************************/
|
|
333
|
-
/*
|
|
334
|
-
* INTEGER FUNCTION NDYEAR(IY)
|
|
335
|
-
*/
|
|
336
|
-
INTEGER FUNCTION NDYEAR(
|
|
337
|
-
INTEGER IY
|
|
338
|
-
)
|
|
339
|
-
|
|
340
|
-
/*****************************************************
|
|
341
|
-
* misc1/datelib/dateq3.c
|
|
342
|
-
****************************************************/
|
|
343
|
-
/*
|
|
344
|
-
* void dateq3_(iy, im, id)
|
|
345
|
-
*/
|
|
346
|
-
/*
|
|
347
|
-
SUBROUTINE DATEQ3(
|
|
348
|
-
INTEGER o IY
|
|
349
|
-
INTEGER o IM
|
|
350
|
-
INTEGER o ID
|
|
351
|
-
)
|
|
352
|
-
*/
|