DELTA 59 0 1107
SVN  ‘6Ž…M †3 €‚ ‰9€J ‹Q€‚f	call DclSetWindow(UX(1),UX(NX),UY(1),UY(NY))
	call DclGrid2DSetCoordinateTransform(UX,UY,CX,CY)
	call DclSetTransNumber(51)

!!!!! 
!     CALL SGSCWD(CXMIN,CXMAX,CYMIN,CYMAX)
	call DclSetGT2DViewPort(CXMIN,CXMAX,CYMIN,CYMAX)
	call DclSetTransFunction
	call DclSetParm('ENABLE_CLIPPINGENABLE_AUTO_SHADE_LEVEL',.TRUE.)
	call DclSetXGrid(UX)
	call DclSetYGrid(U	end do

      DO I=1,NX
        DO J=1,NY
          UXW(J) = UX(I)
		end do

	call DclDrawLine(UXW,UY)
	end do

!*     / AXES (Switch to ITR==1) /

	call DclSetWindow(CXMIN,CXMAX,CYMIN,CYMAX)
	call DclSetTransNumber(1)
	call DclSetTransFunction
	call DclDrawScaledAxis
	call DclDrawTitle('T','BOTH X & Y TRANSFORMED',0.0)

	call DclCloseGraphics

      END
ENDREP
DELTA 59 1120 1042
SVN  ŽVŽ/Ž/€Ž/!-----------------------------------------------------------------------
!     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
!-----------------------------------------------------------------------
      PROGRAM G2PK02

	use dcl

	integer,parameter :: nx=15,ny=15

	real,dimension(nx) :: ux,uyw
	real,dimension(ny) :: uy,uxw
	real,dimension(nx,ny) :: cx,cy,z
	real,dimension(nx) :: terrain


!     / SET PARAMETERS /

      CALL GLRGET('RUNDEF',RUNDEF)

      DO  I=1,NX
        UX(I)=(I-1.0)/(NX-1.0) - 0.5
        TERRAIN(I) = 0.1 * EXP(-24*UX(I)**2)
	end do
      DO J=1,NY
        UY(J)=(J-1.0)/(NY-1.0)
	end do

      CX(1,1) = RUNDEF
      DO J=1,NY
        DO I=1,NX
          CY(I,J) = UY(J)*(1.0-TERRAIN(I)) + TERRAIN(I)
		end do
	end do

!     / GRAPHIC /
	call DclOpenGraphics
	call DclNewFrame
	call DclSetViewPort(0.15,0.85,0.15,0.85)
	call DclSetWindow(UX(1),UX(NX),UY(1),UY(NY))
	call DclSetTransNumber(51)
	call DclGrid2DSetCoordinateTransform(UX,UY,CX,CY)

	call DclSetTransFunction

!     / TONE /

      DO J=1,NY
        DO I=1,NX
          Z(I,J) = UX(I) * (1-UY(J))
		end do
	end do

	call DclSetParm('ENABLE_AUTO_SHADE_LEVEL',.TRUE.)
	call DclSetXGrid(ux)
	call DclSetYGrid(uy)
	call DclShadeContour(z)

!     / GRID LINES /

      DO J=1,NY
        DO I=1,NX
          UYW(I) = UY(J)
		end do
 !       CALL SGPLU(NX,UX,UYW)
	call DclDrawLine(UX,UYW)
	end do

      DO I=1,NX
        DO J=1,NY
          UXW(J) = UX(I)
		end do
!        CALL SGPLU(NY,UXW,UY)
	call DclDrawLine(UXW,UY)
	end do

!     / AXES  (Switch to ITR==1) /
	call DclGrid2DGetCoordinateTransform(CXMIN, CXMAX, CYMIN, CYMAX)
 	call DclSetWindow(CXMIN,CXMAX,CYMIN,CYMAX)
	call DclSetTransNumber(1)
	call DclSetTransFunction
	call DclDrawScaledAxis
	call DclDrawTitle('T','TERRAIN FOLLOWING',0.0)

	call DclCloseGraphics

      END
ENDREP
DELTA
SVN   †	‚!E €\Z;…H[K:ŒJ;ˆM;‘HFNa‘FoNaŽN:E‚ŠF ˆDHH‚4‡D‚@…L‚JK‚WJ‚J„T‚@„K‚U‡OƒJ‚mJ;‰E‚SFƒE‚jDƒ>D‚B“Lƒ“WƒuJ‚J†G‚5G„MNƒK†DZDL‚LWJ„k`„v`„vM„vJ;…IJ„S PROGRAM uipk01

	use dcl

	real,dimension(2) :: a,b


	call DclSetParm('WINDOW_HEIGHT', 300)WIDTHOpenGraphicsNewFrameWindow(0., 256., ViewPort(.1, .9, TransNumber(1)Function

DO I = 15   A(1). * I2DO J   B(J - 1)JDrawLine(,,,,1, ISGRGB(I,J,0))
!CALL SGPLXU(2, A, BEND DOAxis('164BLRClose
ENDREP
DELTA
SVN   …‚E €RD2‚F ŒG]FaGhJpžDD I%Jp†G]GK§Z_…HJ_ŒJ_„D+M_D‚kG‚jN‚‘FƒN‚L‚+Hƒ*ˆK‚,‹L‚+ŠD~EƒK‚Jƒx^„^„K„J_…I‚;JQ PROGRAM uipk02

	use dcl

	integer,parameter :: nx=50,ny=50
	real,dimension(nx,ny)z
DO I = 1, NXJY   Z(I,J) = - (I - NX / 2.)**2JYEND DO
	call DclSetParm('WINDOW_HEIGHT', 300)WIDTHOpenGraphicsNewFWindow( -1., ViewPort(.1, .9, TransNumber(1FunctionPaintData(zDrawAxis('5BLRClose
ENDREP
DELTA 42 1026 2579
SVN  ËvÐD‚e ËO €‚E ‚©y 
!Added gt2dlib
        subroutine sgscwd(vxmin,vxmax,vymin,vymax) 
            real,      intent(in) :: vxmin      !¥Ó¥å¡¼¥Ý¡¼¥È
            real,      intent(in) :: vxmax      
            real,      intent(in) :: vymin      
            real,      intent(in) :: vymax      
        end subroutine
        subroutine sgqcwdend interface
      end module

ENDREP
id: 2nm.3.r65/3971
type: file
pred: 2nm.0.r42/12883
count: 5
text: 65 3560 385 26692 2538f19cf2766cee89b839e0cc73b444
props: 2 3407830 81 0 685faf6a4230ea531a31a12e4b3cb565
cpath: /branches/develop/src/f77/sg_interface.f90
copyroot: 46 /branches/develop

PLAIN
K 8
Makefile
V 19
file 2mt.3.r59/3182
K 12
Makefile.win
V 19
file 2pl.3.r59/3426
K 17
bit_interface.f90
V 20
file 2lj.0.r39/45912
K 17
blk_interface.f90
V 20
file 2nk.0.r39/40905
K 7
bug.txt
V 20
file 3q.0.r2/3404303
K 17
chg_interface.f90
V 20
file 2lz.0.r39/53667
K 17
chk_interface.f90
V 20
file 2nr.0.r39/40222
K 17
chn_interface.f90
V 20
file 2n7.0.r39/48417
K 17
chr_interface.f90
V 20
file 2nd.0.r39/49102
K 17
clc_interface.f90
V 20
file 2me.0.r39/53439
K 17
ctr_interface.f90
V 20
file 2lf.0.r39/50469
K 17
dat_interface.f90
V 20
file 2mr.0.r39/45455
K 11
dcl_f77.f90
V 21
file 11h.0.r2/3403096
K 17
fft_interface.f90
V 20
file 2m5.0.r39/42953
K 17
fio_interface.f90
V 20
file 2nx.0.r39/52524
K 17
fmt_interface.f90
V 20
file 2m0.0.r39/46824
K 17
fnc_interface.f90
V 20
file 2nj.0.r39/47735
K 17
gnm_interface.f90
V 20
file 2lh.0.r39/49785
K 16
gr_interface.f90
V 20
file 2ni.0.r39/41133
K 21
gt2dlib_interface.f90
V 19
file 2ps.3.r60/3988
K 17
hex_interface.f90
V 20
file 2mj.0.r39/46596
K 17
ifa_interface.f90
V 20
file 2n5.0.r39/47281
K 17
ind_interface.f90
V 20
file 2mg.0.r39/41815
K 17
int_interface.f90
V 20
file 2n0.0.r39/44545
K 18
intr_interface.f90
V 20
file 2mq.0.r39/52296
K 13
lower_routine
V 21
file 1x1.0.r2/3399472
K 17
lrl_interface.f90
V 20
file 2lm.0.r39/44317
K 17
map_interface.f90
V 20
file 2mn.0.r39/45683
K 17
mis_interface.f90
V 20
file 2ms.0.r39/52982
K 17
ode_interface.f90
V 20
file 2mp.0.r42/11294
K 16
os_interface.f90
V 20
file 2mz.0.r39/50013
K 17
ran_interface.f90
V 20
file 2my.0.r39/46368
K 17
rea_interface.f90
V 20
file 2ml.0.r39/52069
K 17
rfa_interface.f90
V 20
file 2lo.0.r39/48190
K 17
rfb_interface.f90
V 20
file 2na.0.r39/41587
K 17
rnm_interface.f90
V 20
file 2nh.0.r39/51383
K 16
sc_interface.f90
V 20
file 2mm.0.r39/47506
K 16
sg_interface.f90
V 19
file 2nm.3.r65/3971
K 17
sht_interface.f90
V 20
file 2nb.0.r39/51839
K 16
sl_interface.f90
V 20
file 2nw.0.r39/42726
K 16
st_interface.f90
V 20
file 2lx.0.r39/43408
K 17
sub_interface.f90
V 20
file 2ng.0.r39/47052
K 16
sw_interface.f90
V 20
file 2mo.0.r42/13339
K 17
sys_interface.f90
V 19
file 2mi.3.r48/1448
K 16
sz_interface.f90
V 20
file 2ma.0.r39/45000
K 17
tim_interface.f90
V 20
file 2le.0.r39/53210
K 16
uc_interface.f90
V 20
file 2m1.0.r39/40450
K 16
ud_interface.f90
V 20
file 2mb.0.r42/12659
K 16
ue_interface.f90
V 20
file 2m2.0.r42/11522
K 16
ug_interface.f90
V 20
file 2ln.0.r42/11749
K 16
uh_interface.f90
V 20
file 2m4.0.r39/48874
K 16
ul_interface.f90
V 20
file 2lv.0.r42/13112
K 16
um_interface.f90
V 20
file 2lr.0.r42/12204
K 16
us_interface.f90
V 20
file 2m7.0.r42/12431
K 16
uu_interface.f90
V 20
file 2lk.0.r39/44090
K 16
uv_interface.f90
V 20
file 2m3.0.r39/50927
K 16
uw_interface.f90
V 20
file 2lq.0.r39/44773
K 16
ux_interface.f90
V 20
file 2ls.0.r39/51155
K 16
uy_interface.f90
V 20
file 2lt.0.r39/45228
K 16
uz_interface.f90
V 20
file 2ll.0.r42/13568
K 17
via_interface.f90
V 20
file 2lg.0.r39/52753
K 17
vib_interface.f90
V 20
file 2np.0.r39/46140
K 17
vra_interface.f90
V 20
file 2li.0.r39/50241
K 17
vrb_interface.f90
V 20
file 2nq.0.r39/43862
K 17
vst_interface.f90
V 20
file 2ld.0.r39/42270
K 17
xfc_interface.f90
V 20
file 2mu.0.r39/49558
END
ENDREP
id: 3p.3.r65/7421
type: dir
pred: 3p.3.r60/7440
count: 14
text: 65 4226 3182 3182 a11c7ff8dd119ce80a7a0041586aa66e
cpath: /branches/develop/src/f77
copyroot: 46 /branches/develop

PLAIN
K 12
Makefile.win
V 19
file 2pk.3.r47/6974
K 3
f77
V 17
dir 3p.3.r65/7421
K 3
f90
V 16
dir d.3.r64/3848
END
ENDREP
id: c.3.r65/7722
type: dir
pred: c.3.r64/4147
count: 24
text: 65 7601 108 108 b207f01b31906e3d810008296864f0bb
cpath: /branches/develop/src
copyroot: 46 /branches/develop

id: 2pq.3.r65/7894
type: file
pred: 2pq.3.r60/10124
count: 2
text: 65 0 751 1813 cd1c96ae55feaa8dbc12d477c9dcecd9
props: 59 10013 34 0 25e6c2f7558b7484000d4d090dea5b92
cpath: /branches/develop/doc/g2pk01.f90
copyroot: 46 /branches/develop

id: 2pr.3.r65/8134
type: file
pred: 2pr.3.r59/10327
count: 1
text: 65 774 1854 1839 d6009128b8d88a6390547f0f16bdbb91
props: 59 10280 34 0 25e6c2f7558b7484000d4d090dea5b92
cpath: /branches/develop/doc/g2pk02.f90
copyroot: 46 /branches/develop

PLAIN
K 13
svn:eol-style
V 6
native
END
ENDREP
id: 2pv.3.r65/8424
type: file
count: 0
text: 65 2654 458 777 ac5d94b1811fb8b541bdbdaeaf1792ba
props: 65 8377 34 0 25e6c2f7558b7484000d4d090dea5b92
cpath: /branches/develop/doc/uipk01.f90
copyroot: 46 /branches/develop

PLAIN
K 13
svn:eol-style
V 6
native
END
ENDREP
id: 2pw.3.r65/8690
type: file
count: 0
text: 65 3125 422 654 00ca01a21d86027e54fb12bfc0f6fa9d
props: 65 8643 34 0 25e6c2f7558b7484000d4d090dea5b92
cpath: /branches/develop/doc/uipk02.f90
copyroot: 46 /branches/develop

PLAIN
K 7
HISTORY
V 18
file 2pu.3.r61/560
K 2
en
V 14
dir 1q.9.r53/0
K 10
g2pk01.f90
V 19
file 2pq.3.r65/7894
K 10
g2pk02.f90
V 19
file 2pr.3.r65/8134
K 2
jp
V 16
dir 10.a.r53/185
K 8
tutorial
V 17
dir 4.6.r54/20765
K 10
uipk01.f90
V 19
file 2pv.3.r65/8424
K 10
uipk02.f90
V 19
file 2pw.3.r65/8690
END
ENDREP
id: 2pn.3.r65/9218
type: dir
pred: 2pn.3.r61/1024
count: 7
text: 65 8909 296 296 df9423b96f36ac5409d4576df156b011
cpath: /branches/develop/doc
copyroot: 46 /branches/develop

PLAIN
K 7
INSTALL
V 19
file 2n6.0.r30/6740
K 12
INSTALL.auto
V 19
file 2p3.0.r28/1758
K 8
Makefile
V 18
file 2mx.0.r19/436
K 12
Makefile.win
V 18
file 2pi.3.r55/512
K 13
MkInclude.win
V 18
file 2pj.3.r49/337
K 12
Mkinclude.in
V 20
file 2o2.0.r42/11084
K 4
NOTE
V 18
file 2mw.0.r43/928
K 10
aclocal.m4
V 18
file 2o3.0.r7/8783
K 3
bin
V 19
dir 2o7.0.r42/20012
K 11
charconv.mk
V 18
file 2oz.0.r19/230
K 10
chkfort.sh
V 18
file 2p2.0.r25/898
K 9
configure
V 19
file 2o4.0.r26/3541
K 12
configure.in
V 19
file 2o1.0.r26/3751
K 3
doc
V 18
dir 2pn.3.r65/9218
K 10
index.html
V 19
file 2n2.0.r13/1425
K 9
packaging
V 17
dir 2po.3.r52/461
K 3
src
V 16
dir c.3.r65/7722
K 3
sys
V 18
dir 2oo.0.r29/1248
END
ENDREP
id: 1.3.r65/10097
type: dir
pred: 1.3.r64/5023
count: 60
text: 65 9393 691 691 6892d1876fd769d9126a42fd013ae7a7
cpath: /branches/develop
copyroot: 46 /branches/develop

PLAIN
K 7
develop
V 17
dir 1.3.r65/10097
END
ENDREP
id: 2ph.0.r65/10318
type: dir
pred: 2ph.0.r64/5242
count: 19
text: 65 10266 39 39 9839f7c29391644cb836165d04820011
cpath: /branches
copyroot: 0 /

PLAIN
K 8
branches
V 19
dir 2ph.0.r65/10318
K 4
tags
V 14
dir 3.0.r5/248
K 5
trunk
V 16
dir 1.0.r44/6055
END
ENDREP
id: 0.0.r65/10581
type: dir
pred: 0.0.r64/5502
count: 65
text: 65 10465 103 103 bc04a0053d72386f9a0b790cd154e4d1
cpath: /
copyroot: 0 /

2nm.3.t64-1 modify true false /branches/develop/src/f77/sg_interface.f90

2pq.3.t64-1 modify true false /branches/develop/doc/g2pk01.f90

2pr.3.t64-1 modify true false /branches/develop/doc/g2pk02.f90

_0.3.t64-1 add true true /branches/develop/doc/uipk01.f90

_1.3.t64-1 add true true /branches/develop/doc/uipk02.f90


10581 10718