DELTA SVNLL€Lifort %* %FFLAGS% C:\dcl-fortran\lib\dcl.lib c:\dcl-fortran\lib\dcl-f90.lib ENDREP DELTA SVN„V„V€„V# # Makefile for bin # # Copyright (C) 2000 GFD Dennou Club. All rights reserved. # SUBDIRS = !include ../MkInclude.win build: @$(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_PRETARGET=build-exec build-exec: @echo Entering bin install: @$(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_POSTTARGET=install-exec install-exec-unique: $(CP) setenv.vbs $(PREFIX)"\bin" clean: $(MAKE) /$(MAKEFLAGS) /NOLOGO /S /f makefile.win subdirs \ SUBDIRS_PRETARGET=clean-exec clean-exec-unique: ENDREP DELTA 16 933 559 SVN††P}O€>/‚Ž‚ƒI±8…d${FC:?}" fflags="-I${MODINSTDIR:?} -J${MODINSTDIR:?} ${SYSFFLAGS}" libs="-L${LIBINSTDIR:?} -l${LIBNAME:?}" ldflags=${SYSLDFLAGS} ldlibs=${SYSLDLIBS:?} out=${1:-dclf90} if [ ${F90MODTYPE:?}{F90MODTYPE:?}cho \$fc \$fflags "\$@" \$libs \$ldflags \$ldlibsENDREP DELTA 2 3056636 923 SVNž/ž/ž/ENDREP DELTA 2 3129098 502 SVNdddENDREP DELTA 2 3071477 244 SVN„ „ „ ENDREP DELTA 2 3137905 658 SVN•m•m•mENDREP DELTA 2 3119296 479 SVN‹D‹D‹DENDREP DELTA 2 3124226 439 SVNaaaENDREP DELTA 2 3090376 290 SVN………ENDREP DELTA 2 3053852 755 SVN   ENDREP DELTA 2 3105034 1344 SVNÉGÉGÉGENDREP DELTA 2 3075804 943 SVN´=´=´=ENDREP DELTA 2 3145226 790 SVN˜5˜5˜5ENDREP DELTA 2 3071734 325 SVN„&„&„&ENDREP DELTA 2 3128482 603 SVNGGGENDREP DELTA 2 3055234 756 SVN...ENDREP DELTA 2 3127733 736 SVN‘‘‘ENDREP DELTA 2 3094166 356 SVN†††ENDREP DELTA 2 3118084 356 SVNŠDŠDŠDENDREP DELTA 2 3091196 853 SVNº8º8º8ENDREP DELTA 2 3110771 324 SVN‰*‰*‰*ENDREP DELTA 2 3104681 340 SVN†[†[†[ENDREP DELTA 2 3059209 601 SVN¡p¡p¡pENDREP DELTA 2 3100259 983 SVNÏÏÏENDREP DELTA 2 3106391 476 SVN†v†v†vENDREP DELTA 42 9478 788 SVNÈLÈL<ÁEl€N‘~€„o[—;€„hNœ~€Ž V—;€‹Z[—;€…YU¾:€ UÀ/€†IȃAƒ‹ƒSƒŠƒYƒ€ƒ‹[ƒ`ƒ“ subroutine odrkg(n,fcn,t,dt,x,dx,xout,work) !ƒ‹ƒ“ƒQ-ƒNƒbƒ^-ƒMƒ‹ integer, intent(in) :: n !”íÏ•ª•Ï”i•û’öŽ®j‚Ì” external fcn !dx‚ðŒvŽZ‚·‚éƒTƒuƒ‹[ƒ`ƒ“–¼ real, intent(in) :: t !“Æ—§•Ï”t‚Ì’l real, intent(in) :: dt !Ï•ªƒXƒeƒbƒv•. real, intent(in), dimension(n) :: x !”íÏ•ª•Ï”‚Ìt=t ‚É‚¨‚¯‚é’l real, intent(inout), dimension(n) :: dx !”íÏ•ª•Ï”‚Ìt=t ‚É‚¨‚¯‚é”÷•ª’l real, intent(inout), dimension(n) :: xout !”íÏ•ª•Ï”‚Ìt=t+dt‚É‚¨‚¯‚é’l real, intent(out), dimension(n) :: work !ì‹Æ•Ï” end subroutine subroutine odrk4(n,fcn,t,dt,x,dx,xout,work) !4ŽŸ¸“x‚̃‹ƒ“ƒQ-ƒNƒbƒ^ integer, intent(in) :: n !”íÏ•ª•Ï”i•û’öŽ®j‚Ì” external fcn !dx‚ðŒvŽZ‚·‚éƒTƒuƒ‹[ƒ`ƒ“–¼ real, intent(in) :: t !“Æ—§•Ï”t‚Ì’l real, intent(in) :: dt !Ï•ªƒXƒeƒbƒv• real, intent(in), dimension(n) :: x !”íÏ•ª•Ï”‚Ìt=t ‚É‚¨‚¯‚é’l real, intent(inout), dimension(n) :: dx !”íÏ•ª•Ï”‚Ìt=t ‚É‚¨‚¯‚é”÷•ª’l real, intent(inout), dimension(n) :: xout !”íÏ•ª•Ï”‚Ìt=t+dt‚É‚¨‚¯‚é’l real, intent(out), dimension(n,3) :: work !ì‹Æ•Ï” end subroutine subroutine odrk2(n,fcn,t,dt,x,dx,xout,work) !2ŽŸ¸“x‚̃‹ƒ“ƒQ-ƒNƒbƒ^ integer, intent(in) :: n !”íÏ•ª•Ï”i•û’öŽ®j‚Ì” external fcn !dx‚ðŒvŽZ‚·‚éƒTƒuƒ‹[ƒ`ƒ“–¼ real, intent(in) :: t !“Æ—§•Ï”t‚Ì’l real, intent(in) :: dt !Ï•ªƒXƒeƒbƒv• real, intent(in), dimension(n) :: x !”íÏ•ª•Ï”‚Ìt=t ‚É‚¨‚¯‚é’l real, intent(inout), dimension(n) :: dx !”íÏ•ª•Ï”‚Ìt=t ‚É‚¨‚¯‚é”÷•ª’l real, intent(inout), dimension(n) :: xout !”íÏ•ª•Ï”‚Ìt=t+dt‚É‚¨‚¯‚é’l real, intent(out), dimension(n) :: work !ì‹Æ•Ï”‚ª1ŽŸ¸“x‚̃‹ƒ“ƒQ-ƒNƒbƒ^‚Å‚ ‚éD integer, intent(in) :: n !”íÏ•ª•Ï”i•û’öŽ®j‚Ì” external fcn !dx‚ðŒvŽZ‚·‚éƒTƒuƒ‹[ƒ`ƒ“–¼ real, intent(in) :: t !“Æ—§•Ï”t‚Ì’l real, intent(in) :: dt !Ï•ªƒXƒeƒbƒv• real, intent(in), dimension(n) :: x !”íÏ•ª•Ï”‚Ìt=t ‚É‚¨‚¯‚é’l real, intent(inout), dimension(n) :: dx !”íÏ•ª•Ï”‚Ìt=t ‚É‚¨‚¯‚é”÷•ª’l real, intent(inout), dimension(n) :: xout !”íÏ•ª•Ï”‚Ìt=t+dt‚É‚¨‚¯‚é’l real, intent(out), dimension(n) :: work !ì‹Æ•Ï”ƒXƒeƒbƒpƒ‹[ƒ`ƒ“ subroutine odrkgr(n,fcn,t,dt,epsl,x,work) !‰Â•Ï•‚Ì‚«‚´‚Ý‚ð‹‚ß‚é integer, intent(in) :: n !”íÏ•ª•Ï”i•û’öŽ®j‚Ì” external fcn !dx‚ðŒvŽZ‚·‚éƒTƒuƒ‹[ƒ`ƒ“–¼ real, intent(in) :: t !“Æ—§•Ï”t‚Ì’l real, intent(inout) :: dt !Ï•ªƒXƒeƒbƒv• real, intent(in) :: epsl !—v‹¸“x real, intent(inout), dimension(n) :: x !”íÏ•ª•Ï”‚Ìt=t ‚É‚¨‚¯‚é’l‚ð“ü—Í‚µ,t=t+ 2 ‚É‚¨‚¯‚é’l ‚ðo—Í‚·‚éD real, intent(out), dimension(n,5) :: work !ì‹Æ•Ï”ŒÅ’è•‚Ì‚«‚´‚Ý‚ð‹‚ß‚éD integer, intent(in) :: n !”íÏ•ª•Ï”i•û’öŽ®j‚Ì” external fcn !dx‚ðŒvŽZ‚·‚éƒTƒuƒ‹[ƒ`ƒ“–¼ real, intent(in) :: t !“Æ—§•Ï”t‚Ì’l real, intent(inout) :: dt !Ï•ªƒXƒeƒbƒv• real, intent(in) :: epsl !—v‹¸“x real, intent(inout), dimension(n) :: x !”íÏ•ª•Ï”‚Ìt=t ‚É‚¨‚¯‚é’l‚ð“ü—Í‚µ,t=t+ 2 ‚É‚¨‚¯‚é’l ‚ðo—Í‚·‚é real, intent(out), dimension(n,3) :: work !ì‹Æ•Ï” end subroutine subroutine odrk4r(n,fcn,t,dt,epsl,x,work) !‰Â•Ï•‚Ì‚«‚´‚Ý‚ð‹‚ß‚éD integer, intent(in) :: n !”íÏ•ª•Ï”i•û’öŽ®j‚Ì” external fcn !dx‚ðŒvŽZ‚·‚éƒTƒuƒ‹[ƒ`ƒ“–¼ real, intent(in) :: t !“Æ—§•Ï”t‚Ì’l real, intent(inout) :: dt !Ï•ªƒXƒeƒbƒv• real, intent(in) :: epsl !—v‹¸“x real, intent(inout), dimension(n) :: x !”íÏ•ª•Ï”‚Ìt=t ‚É‚¨‚¯‚é’l‚ð“ü—Í‚µ,t=t+ 2 ‚É‚¨‚¯‚é’l ‚ðo—Í‚·‚é real, intent(out), dimension(n,7) :: work !ì‹Æ•Ï” end subroutine subroutine odrk4s(n,fcn,t,dt,epsl,x,work) !ŒÅ’è•‚Ì‚«‚´‚Ý‚ð‹‚ß‚éD integer, intent(in) :: n !”íÏ•ª•Ï”i•û’öŽ®j‚Ì” external fcn !dx‚ðŒvŽZ‚·‚éƒTƒuƒ‹[ƒ`ƒ“–¼ real, intent(in) :: t !“Æ—§•Ï”t‚Ì’l real, intent(inout) :: dt !Ï•ªƒXƒeƒbƒv• real, intent(in) :: epsl !—v‹¸“x real, intent(inout), dimension(n) :: x !”íÏ•ª•Ï”‚Ìt=t ‚É‚¨‚¯‚é’l‚ð“ü—Í‚µ,t=t+ 2 ‚É‚¨‚¯‚é’l ‚ðo—Í‚·‚é real, intent(out), dimension(n,5) :: work !ì‹Æ•Ï” !ƒhƒ‰ƒCƒoƒ‹[ƒ`ƒ“ subroutine odrkdu(n,algor,fcn,t,tend,istep,x,work) !ŒÅ’è•‚ÅÏ•ª‚ðs‚¤D integer, intent(in) :: n !”íÏ•ª•Ï”i•û’öŽ®j‚Ì” external algor !Žg—p‚·‚éƒAƒ‹ƒSƒŠƒYƒ€ƒ‹[ƒ`ƒ“–¼ external fcn !dx‚ðŒvŽZ‚·‚éƒTƒuƒ‹[ƒ`ƒ“–¼ real, intent(inout) :: t !Ï•ª‚ðŽn‚ß‚é“Æ—§•Ï”t‚Ì’lD real, intent(in) :: tend !Ï•ª‚ðI—¹‚·‚é“Æ—§•Ï”t‚Ì’l integer, intent(in) :: istep !ƒXƒeƒbƒv”D real, intent(inout), dimension(n) :: x !”íÏ•ª•Ï”‚Ìt=t‚É‚¨‚¯‚é’l‚ð“ü—Í‚µC t=tend‚É‚¨‚¯‚é’l‚ðo—Í‚·‚éD real, intent(out), dimension(n,*) :: work !ì‹Æ•Ï” end subroutine subroutine odrkdv(n,steper,fcn,t,tint,dt,x,work) !—v‹¸“x‚ð–ž‚½‚·‚悤‚ÉÏ•ª‚ðs‚¤D integer, intent(in) :: n !”íÏ•ª•Ï”i•û’öŽ®j‚Ì” external steper !Žg—p‚·‚éƒAƒ‹ƒSƒŠƒYƒ€ƒ‹[ƒ`ƒ“–¼ external fcn !dx‚ðŒvŽZ‚·‚éƒTƒuƒ‹[ƒ`ƒ“–¼ real, intent(inout) :: t !Ï•ª‚ðŽn‚ß‚é“Æ—§•Ï”t‚Ì’l real, intent(in) :: tint !Ï•ª‚ðI—¹‚·‚é“Æ—§•Ï”t‚Ì’l real, intent(inout) :: dt !ƒXƒeƒbƒv•‚̉Šú’l real, intent(inout), dimension(n) :: x !”íÏ•ª•Ï”‚Ìt=t‚É‚¨‚¯‚é’l‚ð“ü—Í‚µC t=tend‚É‚¨‚¯‚é’l‚ðo—Í‚·‚éD real, intent(out), dimension(n,*) :: work !ì‹Æ•Ï”“à•”•Ï”ŠÇ—ƒ‹[ƒ`ƒ“ subroutine odpget(cpara,ipara) !odrkdv ‚ÅŽg—p‚·‚é“à•”•Ï”‚ðŽQÆ‚·‚éD character(len=*), intent(in) :: cpara !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine odiget(cpara,ipara) !odrkdv ‚ÅŽg—p‚·‚é“à•”•Ï”‚ðŽQÆ‚·‚éD character(len=*), intent(in) :: cpara !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine odrget(cpara,ipara) !odrkdv ‚ÅŽg—p‚·‚é“à•”•Ï”‚ðŽQÆ‚·‚éD character(len=*), intent(in) :: cpara !“à•”•Ï”‚Ì–¼‘O real, intent(out) :: ipara !“à•”•Ï”‚Ì’l‚ÅŽg—p‚·‚é“à•”•Ï”‚ðŽQÆ‚·‚éD character(len=*), intent(in) :: cpara !“à•”•Ï”‚Ì–¼‘O logical, intent(out) :: ipara !“à•”•Ï”‚Ì’l‚ÅŽg—p‚·‚é“à•”•Ï”‚ðÝ’è‚·‚éD character(len=*), intent(in) :: cpara !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine odiset(cpara,ipara) !odrkdv ‚ÅŽg—p‚·‚é“à•”•Ï”‚ðÝ’è‚·‚éD character(len=*), intent(in) :: cpara !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine odrset(cpara,ipara) !odrkdv ‚ÅŽg—p‚·‚é“à•”•Ï”‚ðÝ’è‚·‚éD character(len=*), intent(in) :: cpara !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine odlset(cpara,ipara) !odrkdv ‚ÅŽg—p‚·‚é“à•”•Ï”‚ðÝ’è‚·‚éD character(len=*), intent(in) :: cpara !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’lENDREP DELTA 2 3110291 467 SVN‰‰‰ENDREP DELTA 2 3109936 342 SVNˆpˆpˆpENDREP DELTA 2 3097807 316 SVN†!†!†!ENDREP DELTA 2 3060706 733 SVN£££ENDREP DELTA 2 3121237 416 SVNŒ@Œ@Œ@ENDREP DELTA 2 3127282 438 SVNŽ=Ž=Ž=ENDREP DELTA 2 3098136 2110 SVNÜeÜeÜeENDREP DELTA 42 1026 2579 SVNËvËv„„e€p‚e€‚%n…z€Nn‡6€Nnˆr€NmŠ.€Mm‹h€Mm"€MmŽ\€Mm€…MXÇ=€N˜A€IJšX€r8€Už€&¡5ž¢l–¤ž¥Kž¦zžS¦z€H©DŒ‚ªRŠ‚ ¬q€b!¯`”H±ŒXÇ=€f“w€=yÂt€ tÄv€ˆ%qδXÇ=€K&ÑW€ƒ6nÖ3€ƒ3oÚT€…agÂt€HhÄv€ƒmçY€‚XÇ=€7fìZ€ƒbgñ"€‚$Zô-€djõk€ƒMgú"€3_ü<€‚)P‚}€„Li„`€m†]k‡Z–XÇ=€‚+‹O€7+Ž1€9$‘€>y“w€7fÂt€LgÄv€‚XÇ=€Jd~ž_Ÿ€ƒM¢y€bf¤(žb¥,€4T»s¤o¨:€VªžV¬6žf­*€`YÇ<€IT»s¢PŸ€„R¶w€fT¬6€‚pV»sžX¨:€xXª€T¬6€…Q[Ç<€ƒ"=Ë9ƒRƒ“ƒgƒ[ƒ‹ subroutine sgopn(iws) !o—Í‘•’u‚̃I[ƒvƒ“ integer, intent(in) :: iws !ƒ[ƒNƒXƒe[ƒVƒ‡ƒ“”Ô†ƒtƒŒ[ƒ€‚ÌÝ’èD end subroutine subroutine sgcls() !o—Í‘•’u‚̃Nƒ[ƒY end subroutine subroutine sgpget(cp,ipara) !“à•”•Ï”‚ÌŽQÆD character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O real, intent(out) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O logical, intent(out) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine sgistx(cp,ipara) character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine sgrstx(cp,ipara) character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine sglstx(cp,ipara) character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine sgpwsn() !ƒ[ƒNƒXƒe[ƒVƒ‡ƒ“–¼‚̃ŠƒXƒg--------- !³‹K‰»•ÏŠ· subroutine sgsvpt(vxmin,vxmax,vymin,vymax) !ƒrƒ…[ƒ|[ƒg‚ÌÝ’èD real, intent(in) :: vxmin !ƒrƒ…[ƒ|[ƒgƒEƒCƒ“ƒhƒE‚ÌÝ’èD real, intent(in) :: uxmin !ƒEƒCƒ“ƒhƒE‘ŠŽ—•ÏŠ·‚ÌÝ’èD real, intent(in) :: simfac !ƒXƒP[ƒŠƒ“ƒOƒtƒ@ƒNƒ^[ real, intent(in) :: vxoff !Œ´“_‚̃IƒtƒZƒbƒg’n}“Š‰e‚Ì‹É‚ÌÝ’èD real, intent(in) :: plx !’n}“Š‰e‚Ìۂ̉ñ“]Šp•ÏŠ·ŠÖ”‚̔Ԇ‚É‚æ‚éÝ’èD integer, intent(in) :: itr !•ÏŠ·ŠÖ””Ô† end subroutine subroutine sgtrsl(cts,ctl) !—ªÌ‚©‚疼̂ð‹‚ß‚éD—ªÌ‚©‚ç•ÏŠ·ŠÖ””Ô†‚ð‹‚ß‚éD–¼Ì‚©‚痪̂ð‹‚ß‚éD–¼Ì‚©‚ç•ÏŠ·ŠÖ””Ô†‚ð‹‚ß‚éD•ÏŠ·ŠÖ””Ô†‚©‚痪̂ð‹‚ß‚éD•ÏŠ·ŠÖ””Ô†‚©‚疼̂ð‹‚ß‚éDl end subroutine subroutine sgstrf() !•ÏŠ·ŠÖ”‚ÌŠm’èDƒrƒ…[ƒ|[ƒgƒEƒCƒ“ƒhƒE‘ŠŽ—•ÏŠ·‚̃XƒP[ƒŠƒ“ƒOƒtƒ@ƒNƒ^[ real, intent(out) :: vxoff !Œ´“_‚̃IƒtƒZƒbƒg’n}“Š‰e‚Ìۂ̉ñ“]Šp•ÏŠ·ŠÖ””Ô†--------- !ƒ|ƒŠƒ‰ƒCƒ“ƒvƒŠƒ~ƒeƒBƒu subroutine sgplzu(n,upx,upy,itype,index) !u À•WŒn‚ÅÜ‚êü‚ð•`‚­D integer, intent(in) :: n !”z—ñUPX, UPY‚È‚Ç‚Ì’·‚³ real, intent(in), dimension(*) :: upx !UÀ•W‚Ì’l‚ð—^‚¦‚é real, intent(in), dimension(*) :: upy !UÀ•W‚Ì’l‚ð—^‚¦‚é integer, intent(in) :: itype !ƒ‰ƒCƒ“ƒ^ƒCƒvD integer, intent(in) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sgplzv(n,vpx,vpy,itype,index) !v À•WŒn‚ÅÜ‚êü‚ð•`‚­D integer, intent(in) :: n !”z—ñVPX, VPY‚È‚Ç‚Ì’·‚³ real, intent(in), dimension(*) :: vpx !VÀ•W‚Ì’l‚ð—^‚¦‚é real, intent(in), dimension(*) :: vpy !VÀ•W‚Ì’l‚ð—^‚¦‚é integer, intent(in) :: itype !ƒ‰ƒCƒ“ƒ^ƒCƒvD integer, intent(in) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sgplzr(n,rpx,rpy,itype,index) !r À•WŒn‚ÅÜ‚êü‚ð•`‚­D integer, intent(in) :: n !”z—ñRPX, RPY‚È‚Ç‚Ì’·‚³ real, intent(in), dimension(*) :: rpx !rÀ•W‚Ì’l‚ð—^‚¦‚é real, intent(in), dimension(*) :: rpy !rÀ•W‚Ì’l‚ð—^‚¦‚é integer, intent(in) :: itype !ƒ‰ƒCƒ“ƒ^ƒCƒv integer, intent(in) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sgplu(n,upx,upy) !u À•WŒn‚ÅÜ‚êü‚ð•`‚­D integer, intent(in) :: n !”z—ñUPX, UPY‚È‚Ç‚Ì’·‚³ real, intent(in), dimension(*) :: upx !uÀ•W‚Ì’l‚ð—^‚¦‚éplv(n,vpx,vpy) !v À•WŒn‚ÅÜ‚êü‚ð•`‚­D integer, intent(in) :: n !”z—ñVPX, VPY‚È‚Ç‚Ì’·‚³ real, intent(in), dimension(*) :: vpx !vÀ•W‚Ì’l‚ð—^‚¦‚éÀ•WŒn‚ÅÜ‚êü‚ð•`‚­D integer, intent(in) :: n real, intent(in), dimension(*) :: rpx !rÀ•W‚Ì’l‚ð—^‚¦‚郉ƒCƒ“ƒ^ƒCƒv‚ðÝ’è‚·‚éD integer, intent(in) :: itype !üŽí end subroutine subroutine sgspli(index) !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX‚ÌÝ’èD integer, intent(in) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sgsplc(charx) !ƒ‰ƒxƒ‹‚Ì•¶Žš—ñÝ’èD character(len=*), intent(in) :: charx !•`‚­•¶Žš—ñi‰Šú’l‚Í'A') end subroutine subroutine sgspls(rsize) !ƒ‰ƒxƒ‹‚Ì•¶Žš‚Ý’è real, intent(in) :: rsize !•¶Žš—ñ‚Ì‚‚³‚ðVÀ•WŒn‚Ì’PˆÊ‚ÅŽw’èi‰Šú’l‚Í0.02) end subroutine subroutine sgnplc() !ƒ‰ƒxƒ‹‚ÌÅŒã‚Ì•¶Žš”Ô†‚ð‘‚â‚·D end subroutine subroutine sgqplt(itype) integer, intent(out) :: itype !Ü‚êü‚ÌüŽí end subroutine subroutine sgqpli(index) integer, intent(out) :: index !Ü‚êü‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sgqplc(charx) character(len=*), intent(out) :: charx !•`‚­•¶Žš—ñi‰Šú’l‚Í•¶Žš—ñ‚Ì‚‚³‚ðVÀ•WŒn‚Ì’PˆÊ‚ÅŽw’è‚·‚éi‰Šú’l‚Í0.02)--------------- ! ƒ|ƒŠƒ}[ƒJ[ƒvƒŠƒ~ƒeƒBƒu subroutine sgpmzu(n,upx,upy,itype,index,rsize) !u À•WŒn‚Ń}[ƒJ[—ñ‚ð•`‚­D integer, intent(in) :: n !ƒ}[ƒJ[‚ð‘ł“_‚ÌUÀ•Wƒ}[ƒJ[ƒ^ƒCƒv integer, intent(in) :: index !ƒ}[ƒJ[‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX real, intent(in) :: rsize !ƒ}[ƒJ[‚̃TƒCƒYD end subroutine subroutine sgpmzv(n,vpx,vpy,itype,index,rsize) !v À•WŒn‚Ń}[ƒJ[—ñ‚ð•`‚­D integer, intent(in) :: n !”z—ñVPX, VPY‚Ì‚È‚Ç’·‚³ real, intent(in), dimension(*) :: vpx !ƒ}[ƒJ[‚ð‘ł“_‚ÌVÀ•Wƒ}[ƒJ[ƒ^ƒCƒv integer, intent(in) :: index !ƒ}[ƒJ[‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX real, intent(in) :: rsize !ƒ}[ƒJ[‚̃TƒCƒY end subroutine subroutine sgpmzr(n,rpx,rpy,itype,index,rsize) !r À•WŒn‚Ń}[ƒJ[—ñ‚ð•`‚­D integer, intent(in) :: n !”z—ñRPX, RPY‚Ì‚È‚Ç’·‚³ real, intent(in), dimension(*) :: rpx !ƒ}[ƒJ[‚ð‘ł“_‚ÌRÀ•Wƒ}[ƒJ[ƒ^ƒCƒv integer, intent(in) :: index !ƒ}[ƒJ[‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX real, intent(in) :: rsize !ƒ}[ƒJ[‚̃TƒCƒY end subroutine subroutine sgpmu(n,upx,upy) !u À•WŒn‚Ń}[ƒJ[—ñ‚ð•`‚­D integer, intent(in) :: n !”z—ñUPX, UPY‚Ì‚È‚Ç’·‚³ real, intent(in), dimension(*) :: upx !ƒ}[ƒJ[‚ð‘ł“_‚ÌUÀ•W real, intent(in), dimension(*) :: upy !(X, Y)À•W‚Ì’l‚ð—^‚¦‚é end subroutine subroutine sgpmv(n,vpx,vpy) !v À•WŒn‚Ń}[ƒJ[—ñ‚ð•`‚­D integer, intent(in) :: n !”z—ñVPX, VPY‚Ì‚È‚Ç’·‚³ real, intent(in), dimension(*) :: vpx !ƒ}[ƒJ[‚ð‘ł“_‚ÌVÀ•Wmr(n,rpx,rpy) !r À•WŒn‚Ń}[ƒJ[—ñ‚ð•`‚­D integer, intent(in) :: n !”z—ñRPX, RPY‚Ì‚È‚Ç’·‚³ real, intent(in), dimension(*) :: rpx !ƒ}[ƒJ[‚ð‘ł“_‚ÌRÀ•Wmt(itype) !ƒ}[ƒJ[ƒ^ƒCƒv‚ÌÝ’èD integer, intent(in) :: itype !ƒ}[ƒJ[ƒ^ƒCƒv end subroutine subroutine sgspmi(index) !ƒ}[ƒJ[‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX‚ÌÝ’è integer, intent(in) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sgspms(rsize) !ƒ}[ƒJ[‚Ì‘å‚«‚³Ý’èD real, intent(in) :: rsize !ƒ}[ƒJ[‚Ì‘å‚«‚³ƒ}[ƒJ[ƒ^ƒCƒv end subroutine subroutine sgqpmi(index) integer, intent(out) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sgqpms(rsize) real, intent(out) :: rsize !ƒ}[ƒJ[‚Ì‘å‚«‚³--- ! ƒeƒLƒXƒg subroutine sgtxzu(ux,uy,chars,rsize,irota,icent,index) !u À•WŒn‚Å•¶Žš—ñ‚ð•`‚­D real, intent(in) :: ux !UÀ•WŒn‚É‚¨‚¯‚镶Žš‚̈ʒu•`‚­•¶Žš—ñ real, intent(in) :: rsize !•¶Žš‚Ì‚‚³ integer, intent(in) :: irota !•¶Žš—ñ‚ÌŠp“x integer, intent(in) :: icent !ƒZƒ“ƒ^ƒŠƒ“ƒOƒIƒvƒVƒ‡ƒ“ integer, intent(in) :: index !•¶Žš‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sgtxzv(vx,vy,chars,rsize,irota,icent,index) !v À•WŒn‚Å•¶Žš—ñ‚ð•`‚­D real, intent(in) :: vx !VÀ•WŒn‚É‚¨‚¯‚镶Žš‚̈ʒu•`‚­•¶Žš—ñ real, intent(in) :: rsize !•¶Žš‚Ì‚‚³ integer, intent(in) :: irota !•¶Žš—ñ‚ÌŠp“x integer, intent(in) :: icent !ƒZƒ“ƒ^ƒŠƒ“ƒOƒIƒvƒVƒ‡ƒ“ integer, intent(in) :: index !•¶Žš‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒXÀ•WŒn‚Å•¶Žš—ñ‚ð•`‚­D real, intent(in) :: rx !RÀ•WŒn‚É‚¨‚¯‚镶Žš‚̈ʒu•`‚­•¶Žš—ñ real, intent(in) :: rsize !•¶Žš‚Ì‚‚³ integer, intent(in) :: irota !•¶Žš—ñ‚ÌŠp“x integer, intent(in) :: icent !ƒZƒ“ƒ^ƒŠƒ“ƒOƒIƒvƒVƒ‡ƒ“ integer, intent(in) :: index !•¶Žš‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sgtxu(ux,uy,chars) !u À•WŒn‚Å•¶Žš—ñ‚ð•`‚­D real, intent(in) :: ux !UÀ•WŒn‚É‚¨‚¯‚镶Žš‚̈ʒu•`‚­•¶Žš—ñ end subroutine subroutine sgtxv(vx,vy,chars) !v À•WŒn‚Å•¶Žš—ñ‚ð•`‚­D real, intent(in) :: vx !VÀ•WŒn‚É‚¨‚¯‚镶Žš‚̈ʒu•`‚­•¶Žš—ñ end subroutine subroutine sgtxr(rx,ry,chars) !r À•WŒn‚Å•¶Žš—ñ‚ð•`‚­D real, intent(in) :: rx !RÀ•WŒn‚É‚¨‚¯‚镶Žš‚̈ʒu real, intent(in) :: ry character(len=*), intent(in) :: chars !•`‚­•¶Žš—ñstxs(rsize) !•¶Žš‚Ì‚‚³Ý’èD real, intent(in) :: rsize !•¶Žš‚Ì‚‚³ end subroutine subroutine sgstxr(irota) !•¶Žš—ñ‚ÌŠp“x‚ÌÝ’èD integer, intent(in) :: irota !•¶Žš—ñ‚ÌŒX‚«‚ð“x‚Ì’PˆÊ‚Å—^‚¦‚é end subroutine subroutine sgstxi(index) !•¶Žš—ñ‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX‚ÌÝ’èD integer, intent(in) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sgstxc(icent) !•¶Žš—ñ‚̃Zƒ“ƒ^ƒŠƒ“ƒOƒIƒvƒVƒ‡ƒ“Ý’è integer, intent(in) :: icent !ƒZƒ“ƒ^ƒŠƒ“ƒOƒIƒvƒVƒ‡ƒ“•¶Žš‚Ì‚‚³ end subroutine subroutine sgqtxr(irota) integer, intent(out) :: irota !•¶Žš—ñ‚ÌŒX‚«‚ð“x‚Ì’PˆÊ‚Å—^‚¦‚郉ƒCƒ“ƒCƒ“ƒfƒNƒXƒZƒ“ƒ^ƒŠƒ“ƒOƒIƒvƒVƒ‡ƒ“------------------------------ ! ƒg[ƒ“ƒvƒŠƒ~ƒeƒBƒu subroutine sgtnzu(n,upx,upy,itpat) !u À•WŒn‚Å‘½ŠpŒ`—̈æ‚Ì“h‚è‚‚ԂµD integer, intent(in) :: n !”z—ñUPX, UPY‚Ì’·‚³ real, intent(in), dimension(*) :: upx !‘½ŠpŒ`‚ð’è‹`‚·‚é’¸“_‚ÌUÀ•WÀ•WŒn‚Å‘½ŠpŒ`—̈æ‚Ì“h‚è‚‚Ԃµ integer, intent(in) :: n !”z—ñVPX, VPY‚Ì’·‚³ real, intent(in), dimension(*) :: vpx !‘½ŠpŒ`‚ð’è‹`‚·‚é’¸“_‚ÌVÀ•WÀ•WŒn‚Å‘½ŠpŒ`—̈æ‚Ì“h‚è‚‚ԂµD integer, intent(in) :: n !”z—ñRPX, RPY‚Ì’·‚³ real, intent(in), dimension(*) :: rpx !‘½ŠpŒ`‚ð’è‹`‚·‚é’¸“_‚ÌRÀ•WÀ•WŒn‚Å‘½ŠpŒ`—̈æ‚Ì“h‚è‚‚ԂµD integer, intent(in) :: n !”z—ñUPX, UPY‚Ì’·‚³ real, intent(in), dimension(*) :: upx !‘½ŠpŒ`‚ð’è‹`‚·‚é’¸“_‚ÌUÀ•WÀ•WŒn‚Å‘½ŠpŒ`—̈æ‚Ì“h‚è‚‚Ԃµ integer, intent(in) :: n !”z—ñVPX, VPY‚Ì’·‚³ real, intent(in), dimension(*) :: vpx !‘½ŠpŒ`‚ð’è‹`‚·‚é’¸“_‚ÌVÀ•Wtnr(n,rpx,rpy) !r À•WŒn‚Å‘½ŠpŒ`—̈æ‚Ì“h‚è‚‚ԂµD integer, intent(in) :: n !”z—ñRPX, RPY‚Ì’·‚³ real, intent(in), dimension(*) :: rpx !‘½ŠpŒ`‚ð’è‹`‚·‚é’¸“_‚ÌRÀ•Wtnp(itpat) ! ƒg[ƒ“ƒpƒ^[ƒ“”Ԇݒè integer, intent(in) :: itpat !ƒg[ƒ“ƒpƒ^[ƒ“”Ô† end subroutine subroutine sgqtnp(itpat) !Œ»Ýݒ肳‚ê‚Ä‚¢‚éƒg[ƒ“ƒpƒ^[ƒ“”Ô†ŽQÆ integer, intent(out) :: itpat !Œ»Ýݒ肳‚ê‚Ä‚¢‚éƒg[ƒ“ƒpƒ^[ƒ“”Ô†----------------------- !ƒ‰ƒCƒ“ƒTƒuƒvƒŠƒ~ƒeƒBƒu subroutine sglnzu(ux1,uy1,ux2,uy2,index) !uÀ•WŒn‚Åü•ª‚ð•`‚­D real, intent(in) :: ux1 !UÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌŽn“_‚ÌÀ•WÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌI“_‚ÌÀ•WŽQÆ end subroutine subroutine sglnzv(vx1,vy1,vx2,vy2,index) !vÀ•WŒn‚Åü•ª‚ð•`‚­D real, intent(in) :: vx1 !VÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌŽn“_‚ÌÀ•W real, intent(in) :: vy1 real, intent(in) :: vx2 !VÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌI“_‚ÌÀ•W real, intent(in) :: vy2 integer, intent(in) :: index !SGSLNIŽQÆÀ•WŒn‚Åü•ª‚ð•`‚­ real, intent(in) :: rx1 !RÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌŽn“_‚ÌÀ•WÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌI“_‚ÌÀ•WŽQÆ end subroutine subroutine sglnu(ux1,uy1,ux2,uy2) ! uÀ•WŒn‚Åü•ª‚ð•`‚­D real, intent(in) :: ux1 !UÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌŽn“_‚ÌÀ•W !UÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌI“_‚ÌÀ•WÀ•WŒn‚Åü•ª‚ð•`‚­D real, intent(in) :: vx1 !VÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌŽn“_‚ÌÀ•W real, intent(in) :: vy1 real, intent(in) :: vx2 !VÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌI“_‚ÌÀ•WÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌŽn“_‚ÌÀ•WÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌI“_‚ÌÀ•Wƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX‚ðÝ’è‚·‚éD integer, intent(in) :: index !ü•ª‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX---------- ! ƒAƒ[ƒTƒuƒvƒŠƒ~ƒeƒBƒu subroutine sglazu(ux1,uy1,ux2,uy2,itype,index) !uÀ•WŒn‚Å–îˆó•t‚«ü•ª‚ð•`‚­ real, intent(in) :: ux1 !UÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌŽn“_‚ÌÀ•W !uÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌI“_‚ÌÀ•Wtype !ƒ‰ƒCƒ“ƒ^ƒCƒv integer, intent(in) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sglazv(vx1,vy1,vx2,vy2,itype,index) !vÀ•WŒn‚Å–îˆó•t‚«ü•ª‚ð•`‚­ real, intent(in) :: vx1 !UÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌŽn“_‚ÌÀ•W real, intent(in) :: vy1 real, intent(in) :: vx2 !RÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌI“_‚ÌÀ•W real, intent(in) :: vy2 integer, intent(in) :: itype !ƒ‰ƒCƒ“ƒ^ƒCƒv integer, intent(in) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒXÀ•WŒn‚Å–îˆó•t‚«ü•ª‚ð•`‚­ real, intent(in) :: rx1 !rÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌŽn“_‚ÌÀ•W !rÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌI“_‚ÌÀ•W real, intent(in) :: ry2 integer, intent(in) :: itype !ƒ‰ƒCƒ“ƒ^ƒCƒv integer, intent(in) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sglau(ux1,uy1,ux2,uy2) !uÀ•WŒn‚Ŗ‚è•t‚«ü•ª‚ð•`‚­D real, intent(in) :: ux1 !uUÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌŽn“_‚ÌÀ•WÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌI“_‚ÌÀ•Wav(vx1,vy1,vx2,vy2) !vÀ•WŒn‚Ŗ‚è•t‚«ü•ª‚ð•`‚­D real, intent(in) :: vx1 !vÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌŽn“_‚ÌÀ•W real, intent(in) :: vy1 real, intent(in) :: vx2 !vÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌI“_‚ÌÀ•War(rx1,ry1,rx2,ry2) !rÀ•WŒn‚Ŗ‚è•t‚«ü•ª‚ð•`‚­D real, intent(in) :: rx1 !rÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌŽn“_‚ÌÀ•W !rÀ•WŒn‚É‚¨‚¯‚éü•ª‚ÌI“_‚ÌÀ•W real, intent(in) :: ry2 end subroutine subroutine sgslat(itype) !•`‚­ü•ª‚̃‰ƒCƒ“ƒ^ƒCƒv‚ðÝ’è‚·‚éD integer, intent(in) :: itype !ü•ª‚̃‰ƒCƒ“ƒ^ƒCƒv end subroutine subroutine sgslai(index) !•`‚­ü•ª‚Ì ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX‚ðÝ’è‚·‚é integer, intent(in) :: index !ü•ª‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX end subroutine subroutine sgqlat(itype) !Œ»Ýݒ肳‚ê‚Ä‚¢‚郉ƒCƒ“ƒ^ƒCƒv integer, intent(out) :: itype !ü•ª‚̃‰ƒCƒ“ƒ^ƒCƒv end subroutine subroutine sgqlai(index) !Œ»Ýݒ肳‚ê‚Ä‚¢‚郉ƒCƒ“ƒCƒ“ƒfƒNƒX integer, intent(out) :: index !ü•ª‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX•¶ŽšŠÖ” function csgi(ic) !•¶Žš”Ô†‚ɑΉž‚·‚镶Žš‚ð•Ô‚·D integer, intent(in) :: ic !DCL•¶Žš”Ô† character(len=1) :: csgi !DCL•¶Žš”Ô†‚ɑΉž‚·‚镶Žš end function function isgc(ch) !•¶Žš‚ɑΉž‚·‚镶Žš”Ô†‚ð•Ô‚·D character(len=1),intent(in) :: ch !—^‚¦‚é‚Ì•¶Žši•¶Žš’·‚Í1) integer :: isgc !•¶Žš‚ɑΉž‚·‚éDCL•¶Žš”Ô†ENDREP DELTA 2 3121666 1779 SVNúúúENDREP DELTA 2 3144129 1084 SVNš]š]š]ENDREP DELTA 2 3067664 1758 SVN½e½e½eENDREP DELTA 2 3126707 562 SVNŽŽŽENDREP DELTA 42 3633 1251 SVNÖfÖfL²$j€UUƒ?€fLÉ}€‚Rr‰€hrŠr€‚BZŽ&€*r*€‚@r“\€gLƒ@€;s—<€gs™€gsšp€‚gLÉ}€ƒ‹`¢.€ Kƒ@€hKƒ@MÉ|€L]µ$€y µ$€„y»*€ys¾*€ƒ"_Â?Œ Ã*€m]Â?—Æ€ _È=€YiÉu€‚TÈ=€ƒ*MÉ}€ƒ MÍ€dcÖƒRƒ“ƒgƒ[ƒ‹ƒ‹[ƒ`ƒ“ subroutine swdopn() !ƒfƒoƒCƒX‚̃I[ƒvƒ“ end subroutine subroutine swdcls() !ƒfƒoƒCƒX‚̃Nƒ[ƒY end subroutine subroutine swpopn() !ƒy[ƒW‚̃I[ƒvƒ“ƒy[ƒW‚̃Nƒ[ƒY end subroutine subroutine swoopn(cobj,comm) !ƒIƒuƒWƒFƒNƒg‚̃I[ƒvƒ“ character(len=*), intent(in) :: cobj !ƒIƒuƒWƒFƒNƒg–¼ character(len=*), intent(in) :: comm !ƒRƒƒ“ƒgocls(cobj) !ƒIƒuƒWƒFƒNƒg‚̃Nƒ[ƒY character(len=*), intent(in) :: cobj !ƒIƒuƒWƒFƒNƒg–¼ end subroutine subroutine swpget(cp,ipara) ! “à•”•Ï”ŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !(®”EŽÀ”E˜_—Œ^‚Ìj“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !(®”EŽÀ”E˜_—Œ^‚Ìj“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O real, intent(out) :: ipara !(®”EŽÀ”E˜_—Œ^‚Ìj“à•”•Ï”‚Ì’l end subroutine subroutine swlget(cp,ipara) character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(out) :: ipara !(®”EŽÀ”E˜_—Œ^‚Ìj“à•”•Ï”‚Ì’l“à•”•Ï”Ý’è character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !(®”EŽÀ”E˜_—Œ^‚Ìj“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !(®”EŽÀ”E˜_—Œ^‚Ìj“à•”•Ï”‚Ì’l end subroutine subroutine swrset(cp,ipara) character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !(®”EŽÀ”E˜_—Œ^‚Ìj“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !(®”EŽÀ”E˜_—Œ^‚Ìj“à•”•Ï”‚Ì’lstx(cp,ipara) !“à•”•Ï”‚ÌÝ’è character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !(®”EŽÀ”E˜_—Œ^‚Ìj“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !(®”EŽÀ”E˜_—Œ^‚Ìj“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !(®”EŽÀ”E˜_—Œ^‚Ìj“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !(®”EŽÀ”E˜_—Œ^‚Ìj“à•”•Ï”‚Ì’l end subroutine subroutine swcget(cp,cpara) !•¶ŽšŒ^“à•”•Ï”ŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O character(len=*), intent(out) :: cpara !(•¶ŽšŒ^‚Ìj“à•”•Ï”‚Ì’lcset(cp,cpara)!•¶ŽšŒ^“à•”•Ï”Ý’è character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O character(len=*), intent(in) :: cpara !(•¶ŽšŒ^‚Ìj“à•”•Ï”‚Ì’l end subroutine subroutine swcstx(cp,cpara)!•¶ŽšŒ^“à•”•Ï”‚ÌÝ’è character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O character(len=*), intent(in) :: cpara !(•¶ŽšŒ^‚Ìj“à•”•Ï”‚Ì’l•`‰æƒ‹[ƒ`ƒ“ subroutine swswdi(iwdidx) !ü•Žw’è integer, intent(in) :: iwdidx !ü•ª‚Ì‘¾‚³‚ÉŠÖ‚·‚éƒCƒ“ƒfƒNƒXscli(iclidx) !üFŽw’è integer, intent(in) :: iclidx !ü•ª‚ÌF‚ÉŠÖ‚·‚éƒCƒ“ƒfƒNƒXgopn()!ƒvƒŠƒ~ƒeƒBƒu‚̃I[ƒvƒ“gcls()!ƒvƒŠƒ~ƒeƒBƒu‚̃Nƒ[ƒY end subroutine subroutine swgmov(wx,wy) ! ƒyƒ“ƒAƒbƒv real, intent(in) :: wx !ƒ[ƒNƒXƒe[ƒVƒ‡ƒ“À•W subroutine swgplt(wx,wy) !ƒyƒ“ƒ_ƒEƒ“ real, intent(in) :: wx !ƒ[ƒNƒXƒe[ƒVƒ‡ƒ“À•Wƒn[ƒhƒtƒBƒ‹ integer, intent(in) :: np !”z—ñWPX,WPY‚Ì‘å‚«‚³ real, intent(in), dimension(*) :: wpx !“h‚è‚‚Ԃ·—̈æ‚Ì‹«ŠE‚ÌXÀ•W real, intent(in), dimension(*) :: wpy !“h‚è‚‚Ԃ·—̈æ‚Ì‹«ŠE‚ÌYÀ•W integer, intent(in) :: itpat !“h‚è‚‚Ԃµƒpƒ^[ƒ“”Ô† end subroutine subroutine swiopn(iwx,iwy,imw,imh) !ƒCƒ[ƒWƒI[ƒvƒ“ integer, intent(in) :: iwx !ƒCƒ[ƒW‚̶ã‚ÌÀ•W integer, intent(in) :: iwy integer, intent(in) :: imw !ƒCƒ[ƒW‚Ì‘å‚«‚³ƒCƒ[ƒWƒf[ƒ^ integer, intent(in) :: image !ƒCƒ[ƒWƒf[ƒ^ integer, intent(in) :: nlen !ƒCƒ[ƒWƒf[ƒ^‚Ì’·‚³ end subroutine subroutine swicls() !ƒCƒ[ƒWƒNƒ[ƒYƒ}ƒEƒX subroutine swqpnt(wx,wy,mb) !ƒ}ƒEƒXƒ|ƒCƒ“ƒgŽæ“¾ real, intent(out) :: wx !ƒ}ƒEƒXƒ|ƒCƒ“ƒg‚̈ʒu real, intent(out) :: wy integer, intent(out) :: mb !ƒ{ƒ^ƒ“‚ÌŽí—Þ end subroutine subroutine swfint(wx,wy,iwx,iwy) !ƒ[ƒNƒXƒe[ƒVƒ‡ƒ“À•W‚©‚çƒCƒ[ƒWÀ•W‚Ö‚Ì•ÏŠ· real, intent(inout) :: wx !ƒ[ƒNƒXƒe[ƒVƒ‡ƒ“À•WƒCƒ[ƒWÀ•WƒCƒ[ƒWÀ•W‚©‚çƒ[ƒNƒXƒe[ƒVƒ‡ƒ“À•W‚Ö‚Ì•ÏŠ· real, intent(inout) :: wx !ƒCƒ[ƒWÀ•W!ƒ[ƒNƒXƒe[ƒVƒ‡ƒ“À•W–â‚¢‡‚킹‚È‚Ç subroutine swqwdc(lwd) !ü•‰Â•Ï”\—͂̎擾 logical, intent(out) :: lwd !ü•‚ð•Ï‚¦‚é”\—Í‚ª‚ ‚鎞üF‰Â•Ï”\—͂̎擾 logical, intent(out) :: lcl !üF‚ð•Ï‚¦‚é”\—Í‚ª‚ ‚鎞”\—͂̎擾 logical, intent(out) :: ltn !ƒn[ƒhƒtƒBƒ‹‚ðs‚¤”\—Í‚ª‚ ‚鎞 .TRUE. end subroutine subroutine swqimc(lim) !ƒCƒ[ƒW•`‰æ”\—͂̎擾 logical, intent(out) :: lim !ƒCƒ[ƒW•`‰æ‚ðs‚¤”\—Í‚ª‚ ‚鎞ptc(lpt) !ƒ|ƒCƒ“ƒeƒBƒ“ƒO”\—͂̎擾 logical, intent(out) :: lpt !ƒ}ƒEƒXƒ|ƒCƒ“ƒg‚̈ʒu‚𒲂ׂé”\—Í‚ª‚ ‚鎞 .TRUE. end subroutine subroutine swqfnm(cpara,cfname) !ŠeŽíƒf[ƒ^ƒx[ƒXƒtƒ@ƒCƒ‹–¼‚̎擾 character(len=*), intent(in) :: cpara !ƒf[ƒ^ƒx[ƒX–¼‚ðŽ¦‚·“à•”•Ï”–¼ character(len=*), intent(out) :: cfname !ƒf[ƒ^ƒx[ƒXƒtƒ@ƒCƒ‹–¼rct(xmin,xmax,ymin,ymax,fact) !Å‘åì‰æ—̈æŽæ“¾ real, intent(out) :: xmin !ì‰æ—̈æ‚̶‰º‚ÌXÀ•WD real, intent(out) :: xmax !ì‰æ—̈æ‚̉Eã‚ÌXÀ•WD real, intent(out) :: ymin !ì‰æ—̈æ‚̶‰º‚ÌYÀ•WD real, intent(out) :: ymax !ì‰æ—̈æ‚̉Eã‚ÌYÀ•WD real, intent(out) :: fact !À•WŒn‚Ì1’PˆÊ‚Ì’·‚³(cm)srot(iwtrot) !‰æ–ʂ̉ñ“]Žw’è integer, intent(in) :: iwtrot !1 :³—§; 2 :90“x‰ñ“]ENDREP DELTA 42 6726 995 SVNÊ;Ê. ±‚€„^N†r€‚vNŠ6€‚vNz€‚vN‘>€„Xcž3€by¦;€Ky§€Iœ/¢Mk€‡¦;¦§¤M§€vC§ˆež/€‚.až3€†1Wµ¢6µ€E5µ¾jµs¼P¢jµs¾O¤jµ€„?Vž3€„ GÉt“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine gliget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine glrget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(out) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine glpset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine glrset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine glpstx(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine glrstx(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine gllstx(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’lpqnp(ncp) !“à•”•Ï”‚Ì‘”‚ð‹‚ß‚éD integer, intent(out) :: ncp !“à•”•Ï”‚Ì’l end subroutine subroutine glpqid(cp,idx) !“à•”•Ï”cp‚̈ʒu‚ð‹‚ß‚éDpqcp(idx,cp) !idx‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì–¼‘O‚ðŽQÆ‚·‚éDpqvl(idx,ipara) !idx‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ðŽQÆ‚·‚éD‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ð•ÏX‚·‚镶ŽšŒ^‚Ì“à•”•Ï”‚ðŽQÆ/•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O character(len=*), intent(out) :: cpara !“à•”•Ï”‚Ì’l end subroutine subroutine glcset(cp,cpara) !•¶ŽšŒ^‚Ì“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O character(len=*), intent(in) :: cpara !“à•”•Ï”‚Ì’l end subroutine subroutine glcstx(cp,cpara) !•¶ŽšŒ^‚Ì“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O character(len=*), intent(in) :: cpara !“à•”•Ï”‚Ì’l end subroutine subroutine glcqnp(ncp) !“à•”•Ï”‚Ì‘”‚ð‹‚ß‚éD integer, intent(out) :: ncp !“à•”•Ï”‚Ì’l end subroutine subroutine glcqid(cp,idx) !“à•”•Ï”cp‚̈ʒu‚ð‹‚ß‚éD‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì–¼‘O‚ðŽQÆ‚·‚éD‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ðŽQÆ‚·‚éDara end subroutine subroutine glcsvl(idx,cpara) !idx‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ð•ÏX‚·‚éin) :: cmsgdmp(clev,csub,cmsg) !ƒƒbƒZ[ƒW‚ðo—Í‚·‚éD character(len=1), intent(in) :: clev !ƒƒbƒZ[ƒW‚̃Œƒxƒ‹‚ðŽw’è‚·‚é character(len=6), intent(in) :: csub !msgdmp‚ðŒÄ‚ñ‚Å‚¢‚éƒTƒuƒ‹[ƒ`ƒ“–¼‚ðŽw’è‚·‚é character(len=*), intent(in) :: cmsg !o—Í‚·‚郃bƒZ[ƒWrtpget(cpfix,cp,ipara,n) !ŽÀsŽžƒIƒvƒVƒ‡ƒ“‚©‚ç“à•”•Ï”‚ðŽæ“¾‚·‚éD character(len=*), intent(in) :: cpfix !•Ï”–¼‚Ì‘O‚ɂ‚¯‚éÚ“ªŽ« character(len=*), intent(in), dimension(*) :: cp !•Ï”–¼ integer, intent(out), dimension(*) :: ipara !•Ï”‚Ì’l integer, intent(in) :: n !“à•”•Ï”‚Ì” end subroutine subroutine rtcget(cpfix,cp,cpara,n) !ŽÀsŽžƒIƒvƒVƒ‡ƒ“‚©‚ç“à•”•Ï”‚ðŽæ“¾‚·‚éD character(len=*), intent(in) :: cpfix !•Ï”–¼‚Ì‘O‚ɂ‚¯‚éÚ“ªŽ« character(len=*), intent(in), dimension(*) :: cp !•Ï”–¼ character(len=*), intent(out), dimension(*) :: cpara integer, intent(in) :: n !“à•”•Ï”‚Ì” end subroutine subroutine rtpenv(cpfix,cp,ipara) !ŠÂ‹«•Ï”‚Ì’l‚𓾂éƒRƒ}ƒ“ƒhƒ‰ƒCƒ“ƒIƒvƒVƒ‡ƒ“‚Ì’l‚𓾂éxfl(cpfix,cp,ipara) !ŠO•”ƒtƒ@ƒCƒ‹‚©‚çƒIƒvƒVƒ‡ƒ“‚Ì’l‚𓾂écenv(cpfix,cp,cval) !ŠÂ‹«•Ï”‚Ì’li•¶ŽšŒ^j‚𓾂éƒRƒ}ƒ“ƒhƒ‰ƒCƒ“ƒIƒvƒVƒ‡ƒ“‚Ì’l‚𓾂éŠO•”ƒtƒ@ƒCƒ‹‚©‚çƒIƒvƒVƒ‡ƒ“‚Ì’l‚𓾂écharacter(len=*), intent(out) :: cval end subroutine subroutine cfsrch(cpl,np,cfl,nf,cfn) !ƒpƒX–¼‚Ì擪•”•ª‚Æ––”ö•”•ª‚̃ŠƒXƒg‚Ì‘g‡‚¹‚©‚çC‘¶Ý‚·‚éƒtƒ@ƒCƒ‹–¼‚ð’T‚·D character(len=*), intent(in), dimension(np) :: cpl !ƒpƒX–¼‚Ì擪•”•ª‚̃ŠƒXƒg integer, intent(in) :: np !”z—ñcpl‚Ì’·‚³ character(len=*), intent(in), dimension(np) :: cfl !ƒpƒX–¼‚Ì––”ö•”•ª‚̃ŠƒXƒg integer, intent(in) :: nf !”z—ñcfl‚Ì’·‚³ character(len=*), intent(out) :: cfn !ʼn‚ÉŒ©‚‚©‚Á‚½ƒtƒ@ƒCƒ‹–¼‚ð•Ô‚·•¶ŽšŒ^•Ï” function lchreq(ch1,ch2) !‘啶ŽšE¬•¶Žš‚Ì‹æ•Ê‚È‚­2‚‚̕¶Žš—ñ‚ð”äŠr‚·‚éD logical lchreq !2‚‚̕¶Žš—ñ‚ª“™‚µ‚¢‚Æ‚« .true.‚ð•Ô‚·˜_—ŠÖ”’l character(len=*), intent(in) :: ch1 !”äŠr‚·‚镶Žš—ñ character(len=*), intent(in) :: ch2 !”äŠr‚·‚镶Žš—ñ end function function iufopn() !—˜—p‰Â”\‚È‚à‚Á‚Ƃଂ³‚¢“üo—Í‘•’u”Ô†‚ð•Ô‚·D integer iufopn !‘•’u”Ô†‚ð•Ô‚·®”’lENDREP DELTA 2 3084552 1617 SVNß3ß3ß3ENDREP DELTA 2 3053194 645 SVN›››ENDREP DELTA 2 3072072 769 SVN³%³%³%ENDREP DELTA 42 0 946 SVN»;»;V­V€‚\O„2€ŽN”ž‚/”l€†[Nvžzžb€"N¬~€‚nN°:€‚nN³v–r´Zšµf¤·(¢¸h¢º$ŽŸŒ³“™‚ü}‚ð•`‚­ real, intent(in), dimension(mx,*) :: z !mx ny‚Ì2ŽŸŒ³”z—ñDì‰æ‚É‚Ínx ny‚Ì•”•ª‚ðŽg‚¤ integer, intent(in) :: mx !”z—ñz‚Ì‘æ1ŽŸŒ³®‡¡–@ integer, intent(in) :: nx !ì‰æ‚ÉŽg‚¤”z—ñz‚Ì‘æ1ŽŸŒ³¡–@ integer, intent(in) :: ny !ì‰æ‚ÉŽg‚¤”z—ñz‚Ì‘æ2ŽŸŒ³¡–@ŽŸŒ³“™‚ü}‚ð•`‚­. real, intent(in), dimension(mx,*) :: z !mx ny‚Ì2ŽŸŒ³”z—ñD ì‰æ‚É‚Ínx ny‚Ì•”•ª‚ðŽg‚¤ integer, intent(in) :: mx !”z—ñz‚Ì‘æ1ŽŸŒ³®‡¡–@ integer, intent(in) :: nx !ì‰æ‚ÉŽg‚¤”z—ñz‚Ì‘æ1ŽŸŒ³¡–@ integer, intent(in) :: ny !ì‰æ‚ÉŽg‚¤”z—ñz‚Ì‘æ2ŽŸŒ³¡–@ integer, intent(out), dimension(*) :: ibr !ì‹Æ—̈æ‚Æ‚µ‚Ä—p‚¢‚ç‚ê‚é”z—ñ integer, intent(in) :: nbr3 !”z—ñibr‚Ì’·‚³ end subroutine subroutine udgcla(xmin,xmax,dx) !ƒRƒ“ƒ^[ƒŒƒxƒ‹’l‚ðŬ’lEÅ‘å’l,‚«‚´‚Ý’l,ƒŒƒxƒ‹”‚ÅÝ’è‚·‚éD real, intent(in) :: xmin !ƒRƒ“ƒ^[ƒŒƒxƒ‹‚ÌŬ’l real, intent(in) :: xmax !ƒRƒ“ƒ^[ƒŒƒxƒ‹‚ÌÅ‘å’l. real, intent(in) :: dx !‚«‚´‚Ý• end subroutine subroutine udgclb(z,mx,nx,ny,dx) !ƒRƒ“ƒ^[ƒŒƒxƒ‹’l‚ðŠiŽq“_’l‚ð—^‚¦‚é”z—ñ,‚«‚´‚Ý’l,ƒŒƒxƒ‹”‚ÅÝ’è‚·‚éD real, intent(in), dimension(mx,*) :: z !mx ny‚Ì2ŽŸŒ³”z—ñDì‰æ‚É‚Ínx ny‚Ì•”•ª‚ðŽg‚¤ integer, intent(in) :: mx !”z—ñz‚Ì‘æ1ŽŸŒ³®‡¡–@ integer, intent(in) :: nx !ì‰æ‚ÉŽg‚¤”z—ñz‚Ì‘æ1ŽŸŒ³¡–@ integer, intent(in) :: ny !ì‰æ‚ÉŽg‚¤”z—ñz‚Ì‘æ2ŽŸŒ³¡–@ real, intent(in) :: dx !‚«‚´‚Ý• end subroutine subroutine udsclv(zlev,indx,ityp,clv,hl) !ƒRƒ“ƒ^[ƒ‰ƒCƒ“‚Ì‘®«‚ð‚·‚×‚ÄŽw’肵‚Ä1–{‚̃Rƒ“ƒ^[ƒŒƒxƒ‹‚ðÝ’è‚·‚éD real, intent(in) :: zlev !ƒRƒ“ƒ^[ƒŒƒxƒ‹‚Ì’l integer, intent(in) :: indx !ƒRƒ“ƒ^[ƒ‰ƒCƒ“‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX integer, intent(in) :: ityp !ƒRƒ“ƒ^[ƒ‰ƒCƒ“‚̃‰ƒCƒ“ƒ^ƒCƒv character(len=*), intent(in) :: clv !ƒRƒ“ƒ^[ƒ‰ƒCƒ“‚ɂ‚¯‚郉ƒxƒ‹ real, intent(in) :: hl !ƒ‰ƒxƒ‹‚Ì‚‚³(’PˆÊ‚ÍvÀ•WŒnj‘ænl”Ԗڂ̃Rƒ“ƒ^[ƒŒƒxƒ‹‚Ì‘®«Œ»Ýݒ肳‚ê‚Ä‚¢‚éƒRƒ“ƒ^[ƒŒƒxƒ‹‚Ì‘–{” integer, intent(out) :: nlev end subroutine subroutine uddclv(zlev) !‚ ‚éƒRƒ“ƒ^[ƒŒƒxƒ‹‚ð휂·‚éD real, intent(in) :: zlev !휂·‚éƒRƒ“ƒ^[ƒŒƒxƒ‹‚Ì’l end subroutine subroutine udiclv() !ƒRƒ“ƒ^[ƒŒƒxƒ‹‚𖳌ø‚É‚·‚éD end subroutine function rudlev(nlev) !ƒRƒ“ƒ^[ƒŒƒxƒ‹‚ÌŠÔŠu‚ð‹‚ß‚éD integer, intent(in) :: nlev !‰½”Ԗڂ̃Rƒ“ƒ^[ŠÔŠu‚𒲂ׂ邩Žw’è‚·‚é real rudlev !ƒRƒ“ƒ^[ŠÔŠu‚ð—^‚¦‚éŽÀ”Œ^ŠÖ”’l end function subroutine udsfmt(cfmt) !ƒRƒ“ƒ^[ƒ‰ƒxƒ‹‚̃tƒH[ƒ}ƒbƒg‚ðŽw’è‚·‚éD character(len=*), intent(in) :: cfmt !Žw’è‚·‚éƒtƒH[ƒ}ƒbƒgi’·‚³‚Í16•¶ŽšˆÈ‰ºjŒ»Ýݒ肳‚ê‚Ä‚¢‚éƒtƒH[ƒ}ƒbƒg“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine udiget(cp,ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine udrget(cp,ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine udlget(cp,ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine udpset(cp,ipara) !“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine udiset(cp,ipara) !“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine udrset(cp,ipara) !“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine udlset(cp,ipara) !“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine udistx(cp,ipara) !“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine udlstx(cp,ipara) !“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì‘”‚ð‹‚ß‚é“à•”•Ï”cp‚̈ʒu‚ð‹‚ß‚éD‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì–¼‘O‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ð•ÏX‚·‚éENDREP DELTA 42 4912 786 SVN´}´}J¨"V€Šf‹[€…Lc’ ¢s”€‚3N—8€‘nN©t€‚vN­8–r®š¯(¤°j¢²*¢³fŽŸŒ³“™’lü}‚Ì‚Ê‚è‚킯‚ð‚¨‚±‚È‚¤D real, intent(in), dimension(mx,*) :: z !mx, ny‚Ì2ŽŸŒ³”z—ñ integer, intent(in) :: mx !”z—ñz‚Ì‘æ1ŽŸŒ³®‡¡–@ integer, intent(in) :: nx !ì‰æ‚ÉŽg‚¤”z—ñz‚Ì‘æ1ŽŸŒ³¡–@ integer, intent(in) :: ny !ì‰æ‚ÉŽg‚¤”z—ñz‚Ì‘æ2ŽŸŒ³¡–@ end subroutine subroutine uetonf(z,mx,nx,ny) !2ŽŸŒ³“™’lü}‚Ì‚Ê‚è‚킯‚ð‚¨‚±‚È‚¤D real, intent(in), dimension(mx,*) :: z !mx, ny‚Ì2ŽŸŒ³”z—ñDì‰æ‚É‚Ínx ny‚Ì•”•ª‚ðŽg‚¤ integer, intent(in) :: mx !”z—ñz‚Ì‘æ1ŽŸŒ³®‡¡–@ integer, intent(in) :: nx !ì‰æ‚ÉŽg‚¤”z—ñz‚Ì‘æ1ŽŸŒ³¡–@ integer, intent(in) :: ny !ì‰æ‚ÉŽg‚¤”z—ñz‚Ì‘æ2ŽŸŒ³¡–@ end subroutine subroutine uegtla(xmin,xmax,dx) !ƒg[ƒ“ƒŒƒxƒ‹’l‚ðŬ’lEÅ‘å’l,‚«‚´‚Ý’l,ƒŒƒxƒ‹”‚ÅÝ’è‚·‚éD real, intent(in) :: xmin !ƒg[ƒ“ƒŒƒxƒ‹‚ÌŬ’l real, intent(in) :: xmax !ƒg[ƒ“ƒŒƒxƒ‹‚ÌÅ‘å’l real, intent(in) :: dx !dx > 0 ‚Ì‚Æ‚«dx‚ð‚«‚´‚Ý• end subroutine subroutine uegtlb(z,mx,nx,ny,dx) !ƒRƒ“ƒ^[ƒŒƒxƒ‹’l‚ðŠiŽq“_’l‚ð—^‚¦‚é”z—ñ,‚«‚´‚Ý’l,ƒŒƒxƒ‹”‚ÅÝ’è‚·‚éD”z—ñz‚Ì‘æ1ŽŸŒ³®‡¡–@ integer, intent(in) :: nx !ì‰æ‚ÉŽg‚¤”z—ñz‚Ì‘æ1ŽŸŒ³¡–@ integer, intent(in) :: ny !ì‰æ‚ÉŽg‚¤”z—ñz‚Ì‘æ2ŽŸŒ³¡–@ real, intent(in) :: dx !dx > 0 ‚Ì‚Æ‚«dx‚ð‚«‚´‚Ý• end subroutine subroutine uestlv(tlev1,tlev2,ipat) !‚Ê‚è‚킯‚郌ƒxƒ‹‚ƃpƒ^[ƒ“‚ð1ƒŒƒxƒ‹‚²‚ÆŽw’è‚·‚éD real, intent(in) :: tlev1 !‚Ê‚è‚킯‚郌ƒxƒ‹‚̉ºŒÀ’l real, intent(in) :: tlev2 !‚Ê‚è‚킯‚郌ƒxƒ‹‚ÌãŒÀ’l integer, intent(in) :: ipat !ƒg[ƒ“ƒpƒ^[ƒ“”Ô† end subroutine subroutine ueqtlv(tlev1,tlev2,ipat,iton) !‘æiton”Ԗڂ̃g[ƒ“ƒŒƒxƒ‹‚Ì‘®«Œ»Ýݒ肳‚ê‚Ä‚¢‚éƒg[ƒ“ƒŒƒxƒ‹‚Ì”‚Ê‚è‚킯‚郌ƒxƒ‹‚ƃpƒ^[ƒ“‚ð”z—ñ‚Å•¡”ƒŒƒxƒ‹Žw’è‚·‚éD real, intent(in), dimension(nton+1) :: tlevn !‚Ê‚è‚킯‚郌ƒxƒ‹‚Ì’l‚ðŠi”[‚·‚é”z—ñD integer, intent(in), dimension(nton) :: ipatn !ƒg[ƒ“ƒpƒ^[ƒ“”Ô†‚ðŠi”[‚·‚é”z—ñD integer, intent(in) :: nton !”z—ñipatn‚Ì‘å‚«‚³ƒg[ƒ“ƒŒƒxƒ‹‚𖳌ø‚É‚·‚éD end subroutine subroutine uepget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ueiget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uerget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uelget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uepset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ueiset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uerset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uelset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uepstx(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ueistx(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uelstx(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì‘”‚ð‹‚ß‚é“à•”•Ï”cp‚̈ʒu‚ð‹‚ß‚éD‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì–¼‘O‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ð•ÏX‚·‚éENDREP DELTA 42 5806 480 SVN¤>¤>/›lW€—^N™5€‚vNœy–r]šži¤ +¢¡k¢£'ŽŸŒ³ƒxƒNƒgƒ‹ê‚ð•`‚­D real, intent(in), dimension(mu,*) :: u !ƒxƒNƒgƒ‹‚Ìx¬•ª‚ð—^‚¦‚ému,ny‚Ì2ŽŸŒ³”z—ñD integer, intent(in) :: mu !”z—ñu‚Ì‘æ1ŽŸŒ³®‡¡–@ real, intent(in), dimension(mv,*) :: v !ƒxƒNƒgƒ‹‚Ìy¬•ª‚ð—^‚¦‚ému,ny‚Ì2ŽŸŒ³”z—ñD integer, intent(in) :: mv !”z—ñv‚Ì‘æ1ŽŸŒ³®‡¡–@ integer, intent(in) :: nx !ì‰æ‚ÉŽg‚¤”z—ñu, v‚Ì‘æ1ŽŸŒ³¡–@ integer, intent(in) :: ny !ì‰æ‚ÉŽg‚¤”z—ñu, v‚Ì‘æ2ŽŸŒ³¡–@ end subroutine subroutine ugsut(cside,cttl) !ƒ†ƒjƒbƒgƒxƒNƒgƒ‹‚ɂ‚¯‚éƒ^ƒCƒgƒ‹‚ðÝ’è‚·‚éD character(len=1), intent(in) :: cside !ƒ^ƒCƒgƒ‹ˆÊ’u‚ðŽw’è‚·‚é character(len=*), intent(in) :: cttl !ƒ^ƒCƒgƒ‹ end subroutine subroutine ugpget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ugiget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ugrget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uglget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ugpset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ugiset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ugrset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uglset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ugpstx(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ugistx(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uglstx(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì‘”‚ð‹‚ß‚é“à•”•Ï”cp‚̈ʒu‚ð‹‚ß‚éD‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì–¼‘O‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ð•ÏX‚·‚éENDREP DELTA 2 3074986 805 SVNµ.µ.µ.ENDREP DELTA 42 8235 549 SVN®w®wV uV€‡`N‰6”zŠ”{‹&€„‘z€A$‘z€"N @€‚nN£|€‚nN§8–r¨š©(¤ªj¢¬*¢­f‘ΔÀ•WŽ²‚ð•`‚­D character(len=1), intent(in) :: cside !À•WŽ²‚ð•`‚­êŠ‚ðŽw’è‚·‚é integer, intent(in) :: nlbl !1Œ…‚͈̔͂ɕ`‚­ƒ‰ƒxƒ‹‚Ì” integer, intent(in) :: nticks !1Œ…‚͈̔͂ɕ`‚­–Ú·‚Ì” end subroutine subroutine ulylog(cside,nlbl,nticks) !‘ΔÀ•WŽ²‚ð•`‚­D character(len=1), intent(in) :: cside !À•WŽ²‚ð•`‚­êŠ‚ðŽw’è‚·‚é integer, intent(in) :: nlbl !1Œ…‚͈̔͂ɕ`‚­ƒ‰ƒxƒ‹‚Ì” integer, intent(in) :: nticks !1Œ…‚͈̔͂ɕ`‚­–Ú·‚Ì” end subroutine subroutine ulxsfm(cfmt) !ƒtƒH[ƒ}ƒbƒg‚ðÝ’è‚·‚é character(len=*), intent(in) :: cfmt !•¶Žš‘Ž®Žd—l‚ ‚é‚¢‚̓Tƒuƒ‹[ƒ`ƒ“chval‚ª‰ðŽß‚·‚éƒIƒvƒVƒ‡ƒ“ end subroutine subroutine ulysfm(cfmt) !ƒtƒH[ƒ}ƒbƒg‚ðÝ’è‚·‚é character(len=*), intent(in) :: cfmt !•¶Žš‘Ž®Žd—l‚ ‚é‚¢‚̓Tƒuƒ‹[ƒ`ƒ“chval‚ª‰ðŽß‚·‚éƒIƒvƒVƒ‡ƒ“ƒtƒH[ƒ}ƒbƒgŽQÆ‚·‚éƒtƒH[ƒ}ƒbƒgŽQÆ‚·‚鎲ƒ‰ƒxƒ‹‚ð•`‚­ˆÊ’u‚ðŽw’è‚·‚éD real, intent(in), dimension(nbl) :: bl !1Œ…‚͈̔͂ɕ`‚­ƒ‰ƒxƒ‹‚̈ʒu integer, intent(in) :: nbl !”z—ñbl‚Ì’·‚³ end subroutine subroutine ulsybl(bl,nbl) !yŽ²ƒ‰ƒxƒ‹‚ð•`‚­ˆÊ’u‚ðŽw’è‚·‚éD real, intent(in), dimension(nbl) :: bl !1Œ…‚͈̔͂ɕ`‚­ƒ‰ƒxƒ‹‚̈ʒu integer, intent(in) :: nbl !”z—ñbl‚Ì’·‚³ end subroutine subroutine ulqxbl(bl,nbl) !xŽ²ƒ‰ƒxƒ‹‚ð•`‚­ˆÊ’u‚ðŽQÆ‚·‚éDqybl(bl,nbl) !yŽ²ƒ‰ƒxƒ‹‚ð•`‚­ˆÊ’u‚ðŽQÆ‚·‚éD“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uliget(cp,ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ulrget(cp,ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ullget(cp,ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ulpset(cp,ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uliset(cp,ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ulrset(cp,ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ullset(cp,ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ulistx(cp,ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine ullstx(cp,ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚Ì‘”‚ð‹‚ß‚é“à•”•Ï”cp‚̈ʒu‚ð‹‚ß‚éD‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì–¼‘O‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ð•ÏX‚·‚éENDREP DELTA 42 8811 598 SVNªªOžV€`W‚6€„‡¬Nˆ?©N‰6€nN™r€‚vN6€‚vN z€xr£@š¤L¤¦¢§N¢© “Š‰e–Ê‚ÌuÚ“_v‚ðŽw’è‚·‚éD real, intent(in) :: uxc !Ú“_‚ÌŒo“xCˆÜ“x’†‰›‚ÌŒoü‚ÌŒX‚« end subroutine subroutine umscwd(uxc, uyc, r) !‰~Œ`‚̃EƒBƒ“ƒhƒE‚ðÝ’è‚·‚éD real, intent(in) :: uxc !’†S‚ÌŒo“xCˆÜ“x real, intent(in) :: uyc real, intent(in) :: r !ƒEƒBƒ“ƒhƒE”¼Œa end subroutine subroutine umspnt(n, uxp, uyp) !’n}‚ÉŠÜ‚ß‚é“_‚ðŽw’è‚·‚éD integer, intent(in) :: n !“_‚Ì” real, intent(in), dimension(n) :: uxp !“_‚ÌŒo“xCˆÜ“x’n}“Š‰e‚Ì•ÏŠ·ŠÖ”‚̃pƒ‰ƒƒ^‚ð“KØ‚ÉŒˆ‚ß‚éD’n}‚Ì‹«ŠEüi‰j‚ƈܓxü,Œo“xü‚ð•`‚­DˆÜ“xüEŒo“xü‚ð•`‚­D end subroutine subroutine umplim() !’n}‚Ì‹«ŠEüi‰j‚ð•`‚­D end subroutine subroutine umpmap(cdsn) !ŠeŽí’n}î•ñ‚ð•`‚­D character(len=*), intent(in) :: cdsn !’n}î•ñƒtƒ@ƒCƒ‹–¼ end subroutine subroutine umfmap(cdsn) !—¤’n“h‚è’ׂµ character(len=*), intent(in) :: cdsn !’n}î•ñƒtƒ@ƒCƒ‹–¼ end subroutine subroutine umpget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine umiget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine umrget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine umlget(cp,ipara) !“à•”•Ï”‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine umpset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine umiset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine umrset(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine umpstx(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine umrstx(cp,ipara) !“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX‚·‚é character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine umpqnp(ncp) !“à•”•Ï”‚Ì‘”‚ð‹‚ß‚é“à•”•Ï”cp‚̈ʒu‚ð‹‚ß‚éD‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì–¼‘O‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ð•ÏX‚·‚éENDREP DELTA 42 10294 762 SVN¹¹n¨‚€hƒ~€‚l_ƒ~€‚,OŠv€vQŒ;€‚9_ƒ~€‹RN›v€‡sN¤7€†T«Y¤­¢®[¢°€"y«Y€Iy­€G!µQ¢·ŽI¸?À•WŽ²‚ƃOƒ‰ƒt‚ð•`‚­D integer, intent(in) :: n !x,y ‚̃f[ƒ^”D real, intent(in), dimension(*) :: x !Ü‚êüƒOƒ‰ƒt‚ÌxÀ•W real, intent(in), dimension(*) :: y !Ü‚êüƒOƒ‰ƒt‚ÌyÀ•WƒEƒCƒ“ƒhƒE”͈͂Ɋ܂߂½‚¢ƒf[ƒ^‚ÌŽw’èD integer, intent(in) :: n !x,y ‚̃f[ƒ^” real, intent(in), dimension(*) :: x !xÀ•W real, intent(in), dimension(*) :: y !yÀ•W end subroutine subroutine uspfit() !usspnt‚Åݒ肳‚ꂽƒf[ƒ^‚ÌÅ‘åŬ’lC³‹K‰»•ÏŠ·‚̃pƒ‰ƒƒ^‚ðŒˆ‚ß‚éDdaxs() !ƒfƒtƒHƒ‹ƒg‚ÌÀ•WŽ²‚ð•`‚­D ƒ^ƒCƒgƒ‹‚ªŽw’肳‚ê‚Ä‚¢‚ê‚΃^ƒCƒgƒ‹‚à‘‚­D end subroutine subroutine usxaxs(cxside) !Œ»Ýݒ肳‚ê‚Ä‚¢‚鳋K‰»•ÏŠ·‚ɑ΂µ‚Ä,À•WŽ²‚ðˆê–{•`‚­D character(len=1), intent(in) :: cxside !À•WŽ²‚̈ʒuŒ»Ýݒ肳‚ê‚Ä‚¢‚鳋K‰»•ÏŠ·‚ɑ΂µ‚ÄÀ•WŽ²‚ðˆê–{•`‚­D character(len=1), intent(in) :: cyside !À•WŽ²‚̈ʒuÀ•WŽ²‚̃^ƒCƒgƒ‹,ƒTƒuƒ‰ƒxƒ‹‚Ì’†‚Ì’PˆÊ‚ðŽw’èD character(len=*), intent(in) :: cxttl !xÀ•WŽ²‚̃^ƒCƒgƒ‹ character(len=*), intent(in) :: cxunit !xÀ•WŽ²‚Ì’PˆÊ character(len=*), intent(in) :: cyttl !yÀ•WŽ²‚̃^ƒCƒgƒ‹ character(len=*), intent(in) :: cyunit !yÀ•WŽ²‚Ì’PˆÊpget(cp, ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !ƒpƒ‰ƒ[ƒ^–¼ integer, intent(out) :: ipara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine usiget(cp, ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !ƒpƒ‰ƒ[ƒ^–¼ integer, intent(out) :: ipara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine usrget(cp, ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !ƒpƒ‰ƒ[ƒ^–¼ real, intent(out) :: ipara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine uslget(cp, ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !ƒpƒ‰ƒ[ƒ^–¼ logical, intent(out) :: ipara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine uspset(cp, ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !ƒpƒ‰ƒ[ƒ^–¼ integer, intent(in) :: ipara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine usiset(cp, ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !ƒpƒ‰ƒ[ƒ^–¼ integer, intent(in) :: ipara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine usrset(cp, ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !ƒpƒ‰ƒ[ƒ^–¼ real, intent(in) :: ipara !ƒpƒ‰ƒ[ƒ^’l“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !ƒpƒ‰ƒ[ƒ^–¼ logical, intent(in) :: ipara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine uspstx(cp, ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !ƒ‰ƒ[ƒ^–¼ integer, intent(in) :: ipara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine usistx(cp, ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !ƒ‰ƒ[ƒ^–¼ integer, intent(in) :: ipara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine usrstx(cp, ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !ƒ‰ƒ[ƒ^–¼ real, intent(in) :: ipara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine uslstx(cp, ipara) !“à•”•Ï”‚ðÝ’è character(len=*), intent(in) :: cp !ƒ‰ƒ[ƒ^–¼ logical, intent(in) :: ipara !ƒpƒ‰ƒ[ƒ^’l•¶Žšƒpƒ‰ƒ[ƒ^‚ðŽQÆ‚·‚é character(len=*), intent(in) :: cp !ƒpƒ‰ƒ[ƒ^–¼ character(len=*), intent(out) :: cpara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine uscset(cp, cpara) !•¶Žšƒpƒ‰ƒ[ƒ^‚ðÝ’è‚·‚é character(len=*), intent(in) :: cp !ƒpƒ‰ƒ[ƒ^–¼ character(len=*), intent(in) :: cpara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine uscstx(cp, cpara) !•¶Žšƒpƒ‰ƒ[ƒ^‚ðÝ’è‚·‚é character(len=*), intent(in) :: cp !ƒpƒ‰ƒ[ƒ^–¼ character(len=*), intent(in) :: cpara !ƒpƒ‰ƒ[ƒ^’l end subroutine subroutine uspqnp(ncp) !“à•”•Ï”‚Ì‘”‚ð‹‚ß‚é integer, intent(out) :: ncp end subroutine subroutine uspqid(cp,idx) !“à•”•Ï”cp‚̈ʒu‚ð‹‚ß‚éD‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì–¼‘O‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ð•ÏX‚·‚é“à•”•Ï”‚Ì‘”‚ð‹‚ß‚é integer, intent(out) :: ncp end subroutine subroutine uscqid(cp,idx) !“à•”•Ï”cp‚̈ʒu‚ð‹‚ß‚éDcqcp(idx,cp) !idx‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì–¼‘O‚ðŽQÆ‚·‚écqvl(idx,cpara) !idx‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ðŽQÆ‚·‚é‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ð•ÏX‚·‚鉊ú’l‚É–ß‚·DENDREP DELTA 2 3057572 812 SVN s s sENDREP DELTA 2 3074161 812 SVNµ^µ^µ^ENDREP DELTA 2 3061726 1154 SVN§C§C§CENDREP DELTA 2 3063904 1000 SVN¦[¦[¦[ENDREP DELTA 2 3064917 1001 SVN¦a¦a¦aENDREP DELTA 42 7749 459 SVN¢P¢PG˜@U€†*N‡€‚nN‹;€‚nNŽw€‚nN’3€„|—}¦™A¤›¢œ?€ƒ$N y€@I¢“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uziget(cp,ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uzrget(cp,ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(out) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uzlget(cp,ipara) !“à•”•Ï”‚ðŽQÆ character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(out) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uziset(cp,ipara) !“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uzlset(cp,ipara) !“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uzistx(cp,ipara) !“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O integer, intent(in) :: ipara !“à•”•Ï”‚Ì’l“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O real, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uzlstx(cp,ipara) !“à•”•Ï”‚ð•ÏX character(len=*), intent(in) :: cp !“à•”•Ï”‚Ì–¼‘O logical, intent(in) :: ipara !“à•”•Ï”‚Ì’l end subroutine subroutine uzpqnp(ncp) !“à•”•Ï”‚Ì‘”‚ð‹‚ß‚éD integer, intent(out) :: ncp !“à•”•Ï”‚Ì’l end subroutine subroutine uzpqid(cp,idx) !“à•”•Ï”cp‚̈ʒu‚ð‹‚ß‚éD‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì–¼‘O‚ðŽQÆ‚·‚éD‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ðŽQÆ‚·‚éD‚̈ʒu‚É‚ ‚é“à•”•Ï”‚Ì’l‚ð•ÏX‚·‚é“à•”•Ï” 'roffzs', 'rofgzs'‚ð‚·‚×‚Ä0‚ɃZƒbƒg‚·‚éD end subroutine subroutine uzfact(rfact) !“à•”•Ï” 'rsizeti' 'rsizeli' 'rsizeci'@(i=1,2) ‚ð‚·‚×‚Ä‰½”{‚©‚·‚éD real, intent(in) :: rfact !‰½”{‚·‚é‚©‚ðŽw’è‚·‚éŽÀ”’l end subroutine subroutine uzpsav() !Œ»Ýݒ肳‚ê‚Ä‚¢‚é“à•”•Ï”‚Ì’l‚·‚ׂĂðƒXƒNƒ‰ƒbƒ`ƒtƒ@ƒCƒ‹‚É‘‚«o‚·DƒXƒNƒ‰ƒbƒ`ƒtƒ@ƒCƒ‹‚É‘‚«o‚µ‚½’l‚Å‚·‚×‚Ä‚Ì“à•”•Ï”‚ðÄÝ’è‚·‚éDENDREP DELTA 2 3054620 601 SVNPPPENDREP DELTA 2 3136840 512 SVN–.–.–.ENDREP DELTA 2 3056003 620 SVNžžžENDREP DELTA 2 3137365 527 SVN–.–.–.ENDREP DELTA 2 3052437 744 SVNšEšEšEENDREP DELTA 2 3107521 366 SVN‡8‡8‡8ENDREP DELTA 2 3080693 301 SVN…-…-…-ENDREP DELTA 2 3123458 755 SVN“b“b“bENDREP DELTA 2 3135606 1221 SVN£ £ £ ENDREP DELTA 2 3119788 903 SVN–b–b–bENDREP DELTA 2 3088255 2108 SVN€D€D€DENDREP DELTA 2 3134810 783 SVNGGGENDREP DELTA 2 3111108 436 SVN‹ ‹ ‹ ENDREP DELTA 2 3092062 457 SVNˆ=ˆ=ˆ=ENDREP DELTA 2 3069435 2029 SVNÚÚÚENDREP DELTA 2 3112705 632 SVNŒ4Œ4Œ4ENDREP DELTA 2 3107900 495 SVNŒ8Œ8Œ8ENDREP DELTA 39 32035 115 SVN‰+‰‰€‰!------------------------------------------------- ! RFAlib Module !------------------------------------------------- module rfblib use dcl_common contains function DclGetPRD(x,y) !“àÏ‚ð‹‚ß‚é real, intent(in), dimension(:) :: x real, intent(in), dimension(:) :: y real :: DclGetPRD call prcopn('DclGetPRD') DclGetPRD = rprd(x,y,size(x),1,1) call prccls('DclGetPRD') end function function DclGetCOV(x,y) !‹¤•ªŽU‚ð‹‚ß‚é real, intent(in), dimension(:) :: x real, intent(in), dimension(:) :: y real :: DclGetCOV call prcopn('DclGetCOV') DclGetCOV = rcov(x,y,size(x),1,1) call prccls('DclGetCOV') end function function DclGetCOR(x,y) !‘ŠŠÖŒW”‚ð‹‚ß‚é real, intent(in), dimension(:) :: x real, intent(in), dimension(:) :: y real :: DclGetCOR call prcopn('DclGetCOR') DclGetCOR = rcor(x,y,size(x),1,1) call prccls('DclGetCOR') end function end module ENDREP DELTA 2 3067304 347 SVN„K„K„KENDREP DELTA 44 0 472 SVN„L„L ƒXf€ƒX„>ƒŠƒTƒWƒ…[‚Ì} ---- t = (/( n,n=0,nmax )/) / real(nmax) ! ”}‰î•Ï”(0…t…1) x = 1.e2 * sin( 2.*DCL_PI * 4.*t ) ! x = Asin(2ƒÎƒÖ t) y = 1.e-3 * cos( 2.*DCL_PI * 5.*t ) + 6.! y = Bcos(2ƒÎƒÖ't)+C !-- ƒOƒ‰ƒt ---- call DclOpenGraphics() ! o—Í‘•’u‚̃I[ƒvƒ“ call DclNewFrame ! V‚µ‚¢•`‰æ—̈æ‚ð쬂·‚é call DclDrawScaledGraph( x, y ) ! ‚¨‚Ü‚©‚¹‚ŃOƒ‰ƒt‚ð•`‚­ call DclCloseGraphics ! o—Í‘•’u‚̃Nƒ[ƒYENDREP DELTA 2 3076760 2661 SVNáááENDREP DELTA 39 26265 1090 SVNãXãX‚c•=…vœC†€t‚1ˆIž‚.‹–‚.\ž‚'(ž‚)’mž‚l•4Œƒ5˜,ŠŠ-›kŒR¦$€w†%¨mŽŸ6¯ €F@Ï€UBÑ1€XHÓK€DEÕW ….×<”ƒ@Ü~˜šTàV€OFûy€]Kþ€Th€;Žp‚1n„1M†/ˆ"ˆ€K“0†3‹w€ˆ“0€“0†1I€AF¤;€YJ¦Z€lL©€eg«AŠj­2ž|¯:o±F–L³K€À;‡U¸w‹oÂ<‹Q¹|€RGÆ€vZÈ\–bÊL€\OÛ €cJÝ<€YTß_€e@âƒ[ƒNƒXƒe[ƒVƒ‡ƒ“–¼‚̃ŠƒXƒg³‹K‰»•ÏŠ· !--------------------------------- subroutine DclTransShortToLong(short,long) !—ªÌ‚©‚疼̂ð‹‚ß‚éD—ªÌ‚©‚ç•ÏŠ·ŠÖ””Ô†‚ð‹‚ß‚éD–¼Ì‚©‚痪̂ð‹‚ß‚éD–¼Ì‚©‚ç•ÏŠ·ŠÖ””Ô†‚ð‹‚ß‚éD•ÏŠ·ŠÖ””Ô†‚©‚痪̂ð‹‚ß‚éD•ÏŠ·ŠÖ””Ô†‚©‚疼̂ð‹‚ß‚éDƒrƒ…[ƒ|[ƒgƒEƒCƒ“ƒhƒE•ÏŠ·ŠÖ””Ô†ƒ|ƒŠƒ‰ƒCƒ“ƒvƒŠƒ~ƒeƒBƒu !--------------------------------- subroutine DclDrawLine1 (x,y,type,index) !Ü‚êü‚ð•`‚­DÜ‚êü‚ð•`‚­Dƒ‰ƒCƒ“ƒ^ƒCƒv‚ðÝ’è‚·‚éD integer, intent(in) :: type !üŽíƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX‚ÌÝ’èD integer, intent(in) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒXƒ‰ƒxƒ‹‚Ì•¶Žš—ñÝ’èD character(len=*), intent(in) :: text !•`‚­•¶Žš—ñi‰Šú’l‚̓‰ƒxƒ‹‚Ì•¶Žš‚Ý’è real, intent(in) :: height !•¶Žš—ñ‚Ì‚‚³ƒ‰ƒxƒ‹‚ÌÅŒã‚Ì•¶Žš”Ô†‚ð‘‚â‚·D•`‚­•¶Žš—ñi‰Šú’l‚̓|ƒŠƒ}[ƒJ[ƒvƒŠƒ~ƒeƒBƒuƒ}[ƒJ[ƒ^ƒCƒv‚ÌÝ’èD integer, intent(in) :: type !ƒ}[ƒJ[ƒ^ƒCƒvƒ}[ƒJ[‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX‚ÌÝ’è integer, intent(in) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒXƒ}[ƒJ[‚Ì‘å‚«‚³Ý’èD real, intent(in) :: height !ƒ}[ƒJ[‚Ì‘å‚«‚³ƒ}[ƒJ[ƒ^ƒCƒvƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒXƒ}[ƒJ[‚Ì‘å‚«‚³ƒeƒLƒXƒg•¶Žš‚̈ʒu character(len=*), intent(in) :: text !•¶Žš—ñ real, intent(in) :: height, angle !•¶Žš‚Ì‚‚³•¶Žš‚̈ʒu character(len=*), intent(in) :: text !•¶Žš—ñ real, intent(in) :: height, angle !•¶Žš‚Ì‚‚³•¶Žš‚̈ʒu character(len=*), intent(in) :: text !•¶Žš—ñ real, intent(in) :: height, angle !•¶Žš‚Ì‚‚³•¶Žš‚Ì‚‚³Ý’èD real, intent(in) :: height !•¶Žš‚Ì‚‚³•¶Žš—ñ‚ÌŠp“x‚ÌÝ’èD real, intent(in) :: angle !•¶Žš—ñ‚ÌŒX‚«‚ð“x‚Ì’PˆÊ‚Å—^‚¦‚镶Žš—ñ‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒX‚ÌÝ’èD integer, intent(in) :: index !ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX•¶Žš—ñ‚̃Zƒ“ƒ^ƒŠƒ“ƒOƒIƒvƒVƒ‡ƒ“Ý’è integer, intent(in) :: centering !ƒZƒ“ƒ^ƒŠƒ“ƒOƒIƒvƒVƒ‡ƒ“•¶Žš‚Ì‚‚³•¶Žš—ñ‚ÌŒX‚«‚ð“x‚Ì’PˆÊ‚Å—^‚¦‚郉ƒCƒ“ƒCƒ“ƒfƒNƒXƒZƒ“ƒ^ƒŠƒ“ƒOƒIƒvƒVƒ‡ƒ“ƒg[ƒ“ƒvƒŠƒ~ƒeƒBƒu !--------------------------------- subroutine DclShadeRegion(x, y, pattern) !u À•WŒn‚Å‘½ŠpŒ`—̈æ‚Ì“h‚è‚‚ԂµD', ' ')ShadeRegionƒg[ƒ“ƒpƒ^[ƒ“”Ԇݒè integer, intent(in) :: pattern !ƒg[ƒ“ƒpƒ^[ƒ“”Ô†Œ»Ýݒ肳‚ê‚Ä‚¢‚éƒg[ƒ“ƒpƒ^[ƒ“”Ô†ŽQÆ integer :: DclGetShadePattern !Œ»Ýݒ肳‚ê‚Ä‚¢‚éƒg[ƒ“ƒpƒ^[ƒ“”Ô†ƒAƒ[ƒTƒuƒvƒŠƒ~ƒeƒBƒu•`‚­ü•ª‚̃‰ƒCƒ“ƒ^ƒCƒv‚ðÝ’è‚·‚éD integer, intent(in) :: type !ü•ª‚̃‰ƒCƒ“ƒ^ƒCƒv•`‚­ü•ª‚Ì ƒ‰ƒCƒ“ƒCƒ“ƒfƒNƒX‚ðÝ’è‚·‚é integer, intent(in) :: index !ü•ª‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒXŒ»Ýݒ肳‚ê‚Ä‚¢‚郉ƒCƒ“ƒ^ƒCƒv integer :: DclGetArrowLineType !ü•ª‚̃‰ƒCƒ“ƒ^ƒCƒvŒ»Ýݒ肳‚ê‚Ä‚¢‚郉ƒCƒ“ƒCƒ“ƒfƒNƒX integer :: DclGetArrowLineIndex !ü•ª‚̃‰ƒCƒ“ƒCƒ“ƒfƒNƒXENDREP DELTA 39 16244 1058 SVNézéz}¡{;€|'ƒ7€]ƒ†;€s…‹@º„;‘¤N•v€n‚i—2€Y(št€‚ƒgž0€ƒ>‡O¥U€‚u†i°€„‡$»€‚t‡Å€„‡{Ð,€RƒGÙy€‚7ƒ|ßw€‚6ƒQæ)ì‹Æ—̈æ‚È‚Ç‚ðŠi”[‚·‚邽‚߂̘AŒ‹ƒŠƒXƒg integer :: idx ! ˆÊ’u‚̃Cƒ“ƒfƒbƒNƒX type(list),pointer :: next ! ŽŸ‚̃ŠƒXƒg‚ւ̃|ƒCƒ“ƒ^ integer :: mm,jm,im ! Ši”[‚·‚é’è” real, dimension(:), pointer :: array ! Ši”[‚·‚éì‹Æ—̈æ˜AŒ‹ƒŠƒXƒgŒŸõ‚ÌŠÖ” ! idx ‚ɑΉž‚·‚éˆÊ’u‚ª‚ ‚ê‚Î, ^‚Æ‚È‚è, now ‚ª‚»‚̈ʒu‚ւ̃|ƒCƒ“ƒ^‚Æ‚È‚é. ! ‚Ü‚½, ‚»‚̈ʒu‚ªæ“ª‚Å‚È‚¯‚ê‚Î, pre ‚ª‘O‚̈ʒu‚ւ̃|ƒCƒ“ƒ^‚Æ‚È‚Á‚Ä‚¢‚é. ! idx ‚ɑΉž‚·‚éˆÊ’u‚ª‚È‚¯‚ê‚Î, ‹U‚ƂȂ鉊ú‰»ƒ‹[ƒ`ƒ“D integer,intent(in) :: mm ! Ø’f”g” integer,intent(in) :: jm ! “ì–k•ªŠ„”‚Ì1/2 integer,intent(in) :: im ! “Œ¼•ªŠ„”‚Ì1/2 integer,intent(in),optional :: idx ! ì‹Æ—̈æ”Ô†ì‹Æ—̈æ‰ð•ú integer,optional :: idx ! ì‹Æ—̈æ”Ô†ƒXƒyƒNƒgƒ‹ƒf[ƒ^‚ÌŠi”[ˆÊ’u‚ð‹‚ß‚éD‘S”g” integer,intent(in) :: m ! ‘Ñó”g” integer,intent(in),optional :: idx ! ì‹Æ—̈æ”Ô†‚Ì‚Æ‚«‚ÍŽÀ•”‚̈ʒu else DclGetSpectrumNumber = li ! m < 0 ‚Ì‚Æ‚«‚Í‹••”‚̈ʒuƒXƒyƒNƒgƒ‹ƒf[ƒ^‚ɑ΂µ‚ă‰ƒvƒ‰ƒVƒAƒ“‚ð‰‰ŽZ‚·‚éD real,intent(in),dimension(*) :: a ! “ü—Í”z—ñ real,intent(out),dimension(*) :: b ! o—Í”z—ñ integer,intent(in),optional :: ind ! ƒ‰ƒvƒ‰ƒVƒAƒ“‚̉‰ŽZŒ`Ž®‚ðŽw’è integer,intent(in),optional :: idx ! ì‹Æ—̈æ”Ô†ƒXƒyƒNƒgƒ‹ƒf[ƒ^‚©‚çƒOƒŠƒbƒhƒf[ƒ^‚Ö‚Ì•ÏŠ· real,intent(in),dimension(*),optional :: s ! ƒXƒyƒNƒgƒ‹ƒf[ƒ^ real,dimension(*) :: w ! ƒEƒG[ƒuƒf[ƒ^ real,intent(out),dimension(*),optional :: g ! ƒOƒŠƒbƒhƒf[ƒ^ integer,intent(in),optional :: isw ! •ÏŠ·‚ÌŽí—Þ‚ÌŽw’è integer,intent(in),optional :: idx ! ì‹Æ—̈æ”Ô† integer,intent(in),optional :: m1, m2 ! ”g”‹æŠÔ‚ÌŬőå’lƒOƒŠƒbƒhƒf[ƒ^‚©‚çƒXƒyƒNƒgƒ‹ƒf[ƒ^‚Ö‚Ì•ÏŠ· real,intent(in),dimension(*),optional :: g ! ƒOƒŠƒbƒhƒf[ƒ^ real,intent(out),dimension(*) :: w ! ƒEƒG[ƒuƒf[ƒ^ real,intent(out),dimension(*),optional :: s ! ƒXƒyƒNƒgƒ‹ƒf[ƒ^ integer,intent(in),optional :: isw ! •ÏŠ·‚ÌŽí—Þ‚ÌŽw’è integer,intent(in),optional :: idx ! ì‹Æ—̈æ”Ô†ƒXƒyƒNƒgƒ‹ƒf[ƒ^‚©‚çƒOƒŠƒbƒhƒf[ƒ^‚Ö‚Ì•ÏŠ·(”g”Žw’è) integer,intent(in) :: m ! •ÏŠ·‚·‚é”g” real,intent(in),dimension(*),optional :: s ! ƒXƒyƒNƒgƒ‹ƒf[ƒ^ real,dimension(*) :: wr ! w^m(ƒÓ)‚ÌŽÀ”•”•ª real,dimension(*) :: wi ! w^m(ƒÓ)‚Ì‹•”•”•ª real,intent(out),dimension(*),optional :: g ! ƒOƒŠƒbƒhƒf[ƒ^ integer,intent(in),optional :: isw ! •ÏŠ·‚ÌŽí—Þ‚ÌŽw’è integer,intent(in),optional :: idx ! ì‹Æ—̈æ”Ô†ƒXƒyƒNƒgƒ‹ƒf[ƒ^‚©‚çƒOƒŠƒbƒhƒf[ƒ^‚Ö‚Ì•ÏŠ·(‘Ñ󬕪) real,intent(in),dimension(*),optional :: s ! ƒXƒyƒNƒgƒ‹ƒf[ƒ^ real,dimension(*) :: wz ! w^0(ƒÓ) real,intent(out),dimension(*),optional :: g ! ƒOƒŠƒbƒhƒf[ƒ^ integer,intent(in),optional :: isw ! •ÏŠ·‚ÌŽí—Þ‚ÌŽw’è integer,intent(in),optional :: idx ! ì‹Æ—̈æ”Ô†ƒXƒyƒNƒgƒ‹ƒf[ƒ^‚©‚çƒOƒŠƒbƒhƒf[ƒ^‚Ö‚Ì•ÏŠ·(ˆÜ“x‰~Žw’è) integer,intent(in) :: j ! •ÏŠ·‚ðs‚¤ˆÜ“x‰~‚ÌŽw’è real,intent(in), dimension(*),optional :: s ! ƒXƒyƒNƒgƒ‹ƒf[ƒ^ real,dimension(*) :: wj ! w^m(ƒÓ_j) real,intent(out),dimension(*),optional :: gj ! ƒOƒŠƒbƒhƒf[ƒ^ integer,intent(in),optional :: isw ! •ÏŠ·‚ÌŽí—Þ‚ÌŽw’è integer,intent(in),optional :: idx ! ì‹Æ—̈æ”Ô† integer,intent(in),optional :: m1, m2 ! ”g”‹æŠÔ‚ÌŬőå’lƒ‹ƒWƒƒƒ“ƒhƒ‹”†ŠÖ”‚ÌŒvŽZ integer,intent(in) :: m ! ‘Ñó”g” real,intent(out),dimension(*) :: fun ! ƒ‹ƒWƒƒƒ“ƒhƒ‹”†ŠÖ”‚ªŠi”[‚³‚ê‚é”z—ñ integer,intent(in),optional :: idx ! ì‹Æ—̈æ”Ô†ƒ‹ƒWƒƒƒ“ƒhƒ‹³•ÏŠ· integer,intent(in) :: m ! •ÏŠ·‚ðs‚¤‘Ñó”g”). real,intent(in),dimension(*) :: wm ! ƒEƒG[ƒuƒf[ƒ^ real,intent(out),dimension(*) :: sm ! ƒXƒyƒNƒgƒ‹ƒf[ƒ^ integer,intent(in),optional :: isw ! •ÏŠ·‚ÌŽí—Þ‚ÌŽw’è integer,intent(in),optional :: idx ! ì‹Æ—̈æ”Ô†ƒ‹ƒWƒƒƒ“ƒhƒ‹‹t•ÏŠ· integer,intent(in) :: m ! •ÏŠ·‚ðs‚¤‘Ñó”g”. real,intent(in),dimension(*) :: sm ! ƒXƒyƒNƒgƒ‹ƒf[ƒ^ real,intent(out),dimension(*) :: wm ! ƒEƒG[ƒuƒf[ƒ^ integer,intent(in),optional :: isw ! •ÏŠ·‚ÌŽí—Þ‚ÌŽw’è integer,intent(in),optional :: idx ! ì‹Æ—̈æ”Ô†ENDREP DELTA 2 3138576 1316 SVN¡#¡#¡#ENDREP DELTA 2 3087745 497 SVNˆWˆWˆWENDREP DELTA 2 3065931 383 SVN…<…<…<ENDREP DELTA 2 3139905 1833 SVN©B©B©BENDREP DELTA 2 3129613 1097 SVN›K›K›KENDREP DELTA 2 3090679 504 SVN‡@‡@‡@ENDREP DELTA 2 3146029 1334 SVN¼s¼s¼sENDREP DELTA 44 1076 1530 SVN´)²P²P€²P!---------------------------------------------- ! UIpack Module !---------------------------------------------- module uipack ! use dcl_common contains !------------------------------------------------------------- subroutine DclPaintData(z) real, intent(in), dimension(:,:) :: z integer, allocatable, dimension(:) :: image call prcopn('DclPaintGrid') nx = size(z,1) ny = size(z,2) call sgqvpt(vxmin, vxmax, vymin, vymax) call stfpr2(vxmin, vymin, rx, ry) call stfwtr(rx, ry, wx, wy) call swfint(wx, wy, ix1, iy1) call stfpr2(vxmax, vymax, rx, ry) call stfwtr(rx, ry, wx, wy) call swfint(wx, wy, ix2, iy2) iwidth = abs(ix1-ix2)+1 allocate(image(iwidth)) call uipdaz(z, nx, nx, ny,image,iwidth) deallocate(image) call prccls('DclPaintGrid') end subroutine !------------------------------------------------------------- subroutine DclSetColorRange(zmin, zmax) real, intent(in) :: zmin, zmax call prcopn('DclSetColorRange') call uiscrg(zmin, zmax) call prccls('DclSetColorRange') end subroutine !------------------------------------------------------------- subroutine DclSetColorSequence(color_level, irgb) real, intent(in), dimension(:) :: color_level integer, intent(in), dimension(:) :: irgb n = size(color_level,1) call prcopn('DclSetColorSequence') call uiscsq(color_level, irgb, n) call prccls('DclSetColorSequence') end subroutine !------------------------------------------------------------- subroutine DclSetColorFile(file_name) character (len=*), intent(in) :: file_name call prcopn('DclSetColorFile') call uiscfl(file_name) call prccls('DclSetColorFile') end subroutine !------------------------------------------------------------- subroutine DclSetMaskRange(zmin, zmax) real, intent(in) :: zmin, zmax call prcopn('DclSetMaskRange') call uismrg(zmin, zmax) call prccls('DclSetMaskRange') end subroutine !------------------------------------------------------------- subroutine DclSetMaskSequence(mask_level, mask) real, intent(in), dimension(:) :: mask_level, mask n = size(mask_level,1) call prcopn('DclSetMaskSequence') call uismsq(mask_level, mask, n) call prccls('DclSetMaskSequence') end subroutine !------------------------------------------------------------- subroutine DclSetMaskFile(file_name) character (len=*), intent(in) :: file_name call prcopn('DclSetMaskFile') call uismfl(file_name) call prccls('DclSetMaskFile') end subroutine !------------------------------------------------------------- subroutine DclPaintColorBarX(xmin,xmax,ymin,ymax,zmin,zmax,cpos) real, intent(in) :: xmin, xmax, ymin, ymax, zmin, zmax character(len=*), intent(in), optional :: cpos character(len=2) :: cpos0 if(present(cpos)) then cpos0 = cpos else cpos0 = 'TB' end if call prcopn('DclPaintColorBarX') call uixbar(xmin,xmax,ymin,ymax,zmin,zmax,cpos0) call prccls('DclPaintColorBarX') end subroutine !------------------------------------------------------------- subroutine DclPaintColorBarY(xmin,xmax,ymin,ymax,zmin,zmax,cpos) real, intent(in) :: xmin, xmax, ymin, ymax, zmin, zmax character(len=*), intent(in), optional :: cpos character(len=2) :: cpos0 if(present(cpos)) then cpos0 = cpos else cpos0 = 'LR' end if call prcopn('DclPaintColorBarY') call uiybar(xmin,xmax,ymin,ymax,zmin,zmax,cpos0) call prccls('DclPaintColorBarY') end subroutine !============================================================= subroutine DclPaintData2(u, v) real, intent(in), dimension(:, :) :: u, v integer, allocatable, dimension(:) :: image call prcopn('DclPaintGrid2') nu1 = size(u,1) nu2 = size(u,2) nv1 = size(v,1) nv2 = size(v,2) if(nu1 /= nv1 .or. nu2 /= nv2) then call msgdmp('E', 'DclPaintGrid2', 'Size of arrays are not consistent.') end if call sgqvpt(vxmin, vxmax, vymin, vymax) call stfpr2(vxmin, vymin, rx, ry) call stfwtr(rx, ry, wx, wy) call swfint(wx, wy, ix1, iy1) call stfpr2(vxmax, vymax, rx, ry) call stfwtr(rx, ry, wx, wy) call swfint(wx, wy, ix2, iy2) iwidth = abs(ix1-ix2)+1 allocate(image(iwidth)) call uipd2z(u, v, nu1, nu1, nu2, image, iwidth) deallocate(image) call prccls('DclPaintGrid2') end subroutine !------------------------------------------------------------- subroutine DclSetColorRange2(umin, umax, vmin, vmax) real, intent(in) :: umin, umax, vmin, vmax call prcopn('DclSetColorRange2') call uiscr2(umin, umax, vmin, vmax) call prccls('DclSetColorRange2') end subroutine !------------------------------------------------------------- subroutine DclSetColorMap(irgb1, irgb2, irgb3, irgb4) integer, intent(in) :: irgb1, irgb2, irgb3, irgb4 call prcopn('DclSetColorMap') call uiscmp(irgb1, irgb2, irgb3, irgb4) call prccls('DclSetColorMap') end subroutine !------------------------------------------------------------- subroutine DclPaintColorMap(xmin,xmax,ymin,ymax,cpos) real, intent(in) :: xmin, xmax, ymin, ymax character(len=*), intent(in), optional :: cpos character(len=4) :: cpos0 if(present(cpos)) then cpos0 = cpos else cpos0 = 'TBLR' end if call prcopn('DclPaintColorMap') call uipcmp(xmin,xmax,ymin,ymax,cpos0) call prccls('DclPaintColorMap') end subroutine !============================================================= subroutine DclPackColor(ir, ig, ib, irgb) integer, intent(in) :: ir, ig, ib integer, intent(out) :: irgb call prcopn('DclPackColor') call uifpac(ir, ig, ib, irgb) call prccls('DclPackColor') end subroutine !------------------------------------------------------------- subroutine DclUnPackColor(irgb, ir, ig, ib) integer, intent(in) :: irgb integer, intent(out) :: ir, ig, ib call prcopn('DclUnPackColor') call uiipac(irgb, ir, ig, ib) call prccls('DclUnPackColor') end subroutine end module ENDREP DELTA 42 6313 385 SVNš]šQCƒg"˜L:œƒuƒ"œƒY‡3€\‚r‹h¬J©My–L’\šO”B€_V–p€W4™)ˆÈ‰º‚Ì‚Q‚‚͌©“–‚½‚ç‚È‚¢“Š‰e–Ê‚ÌuÚ“_v‚ðŽw’è‚·‚éD‰~Œ`‚̃EƒBƒ“ƒhƒE‚ðÝ’è‚·‚éD’n}‚ÉŠÜ‚ß‚é“_‚ðŽw’è‚·‚éD real, intent(in), dimension(:) :: lon, lat !“_‚ÌŒo“xCˆÜ“x’n}“Š‰e‚Ì•ÏŠ·ŠÖ”‚̃pƒ‰ƒƒ^‚ð“KØ‚ÉŒˆ‚ß‚éD’n}‚Ì‹«ŠEüi‰j‚ƈܓxü,Œo“xü‚ð•`‚­DˆÜ“xüEŒo“xü‚ð•`‚­D’n}‚Ì‹«ŠEüi‰j‚ð•`‚­DŠeŽí’n}î•ñ‚ð•`‚­D character(len=*), intent(in) :: file_name !’n}î•ñƒtƒ@ƒCƒ‹–¼—¤’n“h‚è’ׂµ character(len=*), intent(in) :: file_name !’n}î•ñƒtƒ@ƒCƒ‹–¼ENDREP DELTA 2 3081007 3532 SVNê$ê$ê$ENDREP DELTA 2 3124678 852 SVNšnšnšnENDREP DELTA 2 3142824 1292 SVN¼W¼W¼WENDREP DELTA 2 3141751 1060 SVN¢;¢;¢;ENDREP DELTA 2 3061452 261 SVNƒAƒAƒAENDREP id: 2ru.0.r78/91441 type: file count: 0 text: 78 100 612 598 5b2a4f4118f9e74743a86b26d37d5f17 cpath: /trunk/bin/Makefile.win copyroot: 0 / id: 2p1.0.r78/91581 type: file pred: 2p1.0.r42/19428 count: 4 text: 78 725 286 848 a166ed36d90fdf7f0d3db5f3c6533f75 props: 16 14503 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/bin/dclf90gen.sh copyroot: 0 / id: 2rr.0.r78/91797 type: file count: 0 text: 78 0 87 76 87e68569832bd323587358894c9fa7dd cpath: /trunk/bin/DCLF90.BAT copyroot: 0 / PLAIN K 10 DCLF90.BAT V 20 file 2rr.0.r78/91797 K 8 Makefile V 19 file 2o8.0.r26/4391 K 12 Makefile.win V 20 file 2ru.0.r78/91441 K 18 dclf90configgen.sh V 20 file 2p0.0.r42/19642 K 12 dclf90gen.sh V 20 file 2p1.0.r78/91581 END ENDREP id: 2o7.0.r78/92166 type: dir pred: 2o7.0.r42/20012 count: 7 text: 78 91931 222 222 b20051dd1b6bf1fc56168344855f8f96 cpath: /trunk/bin copyroot: 0 / id: 2nt.0.r78/92316 type: file pred: 2nt.0.r39/58299 count: 4 text: 78 83945 15 5314 7f014365d48d3c4e55d479c6fc9316e3 props: 2 3420805 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/udpack.f90 copyroot: 0 / id: 2mk.0.r78/92537 type: file pred: 2mk.0.r39/63098 count: 5 text: 78 79307 4484 13562 0471564c69adeb243f59f5a1dd92d7af props: 2 3429380 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/shtrlib.f90 copyroot: 0 / id: 2nl.0.r78/92762 type: file pred: 2nl.0.r39/58742 count: 4 text: 78 83988 15 3531 de97019cbabc48ea3bbd1a53b46daf80 props: 2 3421400 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/uepack.f90 copyroot: 0 / id: 2n4.0.r78/92983 type: file pred: 2n4.0.r39/58520 count: 5 text: 78 76161 3119 29144 6fffc26edcde1baa4a57e32fca4a3d05 props: 2 3421102 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/sgpack.f90 copyroot: 0 / id: 2n3.0.r78/93207 type: file pred: 2n3.0.r39/63321 count: 4 text: 78 74279 15 1588 4a9705c95b83b21e912ba8f88441998a props: 2 3429679 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/oslib.f90 copyroot: 0 / id: 2mf.0.r78/93427 type: file pred: 2mf.0.r39/58963 count: 4 text: 78 84031 15 960 f61fe785f2004f4e2e764b4f39b3bc65 props: 2 3421697 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/ugpack.f90 copyroot: 0 / id: 2ny.0.r78/93647 type: file pred: 2ny.0.r39/59183 count: 4 text: 78 84073 15 7795 710e983befa01aeb9f58b17e6f68f060 props: 2 3422293 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/uhpack.f90 copyroot: 0 / id: 2pg.0.r78/93868 type: file pred: 2pg.0.r44/2760 count: 1 text: 78 84116 6495 6480 5c7eb0b76f942f6351acbf97a564860a cpath: /trunk/src/f90/uipack.f90 copyroot: 0 / id: 2ns.0.r78/94035 type: file pred: 2ns.0.r39/59404 count: 4 text: 78 83818 15 4259 255ff3d096c3c555aa21bc511b931ba4 props: 2 3422590 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/slpack.f90 copyroot: 0 / id: 2no.0.r78/94256 type: file pred: 2no.0.r39/59626 count: 4 text: 78 73979 15 4492 3d8257734498188da96bdf22f05a8708 props: 2 3422887 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/ctrlib.f90 copyroot: 0 / id: 2nf.0.r78/94477 type: file pred: 2nf.0.r42/17094 count: 5 text: 78 90637 566 3409 5233e07d11ce537398f43401a7d41b4f props: 2 3423477 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/umpack.f90 copyroot: 0 / id: 2n1.0.r78/94699 type: file pred: 2n1.0.r39/60068 count: 4 text: 78 74152 15 1419 46b14d00146d4d1b2693c3b8c7fcb63e props: 2 3423774 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/intlib.f90 copyroot: 0 / id: 2lw.0.r78/94920 type: file pred: 2lw.0.r39/60289 count: 4 text: 78 75561 15 587 b27d788424a48516ba7574eb4fd2498b props: 2 3424370 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/rnmlib.f90 copyroot: 0 / id: 2m9.0.r78/95140 type: file pred: 2m9.0.r39/60728 count: 4 text: 78 91228 15 13604 85e8fffd047d430b2a76545bc94416f9 props: 2 3424961 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/uspack.f90 copyroot: 0 / id: 2m8.0.r78/95362 type: file pred: 2m8.0.r39/60950 count: 4 text: 78 73895 15 685 361729c0f0f0fd71c939a47227609157 props: 2 3425259 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/chglib.f90 copyroot: 0 / id: 2ne.0.r78/95582 type: file pred: 2ne.0.r39/61170 count: 4 text: 78 91271 15 3438 351b1be86c44bf3c1ae86cd83c57a326 props: 2 3425554 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/uupack.f90 copyroot: 0 / id: 2nv.0.r78/95803 type: file pred: 2nv.0.r39/61391 count: 4 text: 78 91313 15 7767 1bb298dfdf527c1602b540c531733030 props: 2 3426147 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/uvpack.f90 copyroot: 0 / id: 2nu.0.r78/96024 type: file pred: 2nu.0.r39/61612 count: 4 text: 78 91356 15 4411 621b6fd72998730bdebb5765a4f3ecbe props: 2 3426444 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/uwpack.f90 copyroot: 0 / id: 2nc.0.r78/96245 type: file pred: 2nc.0.r39/61833 count: 4 text: 78 73937 15 2530 5fd47dc0f6bd52ae590e237ec7c38d5c props: 2 3426741 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/chklib.f90 copyroot: 0 / id: 2lp.0.r78/96466 type: file pred: 2lp.0.r39/62055 count: 4 text: 78 91399 15 449 813a6def7f1adedf15cda8d64d9032af props: 2 3427327 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/uzpack.f90 copyroot: 0 / id: 2pb.0.r78/96686 type: file pred: 2pb.0.r39/62275 count: 3 text: 78 74363 1172 1157 eb866aeaf1adda0b5f509effca004b68 cpath: /trunk/src/f90/rfblib.f90 copyroot: 0 / id: 2n8.0.r78/96854 type: file pred: 2n8.0.r39/57857 count: 4 text: 78 74022 15 2914 9ebd861bed19a6f5e7438913ccad4ebc props: 2 3419022 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/datelib.f90 copyroot: 0 / id: 2md.0.r78/97076 type: file pred: 2md.0.r39/62875 count: 4 text: 78 74064 18 16452 b6dffafb5fa949634f67b1825b0f68dc props: 2 3429082 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/fftlib.f90 copyroot: 0 / id: 2nn.0.r78/97298 type: file pred: 2nn.0.r39/63542 count: 4 text: 78 74110 15 3783 a9ce1826e9c03ae080aadcb55141cfef props: 2 3429974 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/gnmlib.f90 copyroot: 0 / id: 2pf.0.r78/97519 type: file pred: 2pf.0.r44/2619 count: 1 text: 78 75603 493 588 b7b7aa850fc5ba565c7a5c93169cfd3e cpath: /trunk/src/f90/sample01.f90 copyroot: 0 / id: 2lu.0.r78/97686 type: file pred: 2lu.0.r39/60508 count: 4 text: 78 83903 15 700 3b12b99548b7b001fd5f0892df01c22b props: 2 3424665 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/timelib.f90 copyroot: 0 / id: 2mv.0.r78/97907 type: file pred: 2mv.0.r39/57192 count: 4 text: 78 74321 15 1592 90f25a2ffa67d4e69cbc6d071cb83997 props: 2 3418430 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/rfalib.f90 copyroot: 0 / id: 2mh.0.r78/98128 type: file pred: 2mh.0.r39/62653 count: 4 text: 78 74194 15 1085 152a1735746a2d0d4e1117b235e12bde props: 2 3428493 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/intrlib.f90 copyroot: 0 / id: 2m6.0.r78/98350 type: file pred: 2m6.0.r39/57412 count: 4 text: 78 76118 15 12438 9ad3d0dac000c5a08831ecfdd1486684 props: 2 3419319 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/scpack.f90 copyroot: 0 / id: 2ly.0.r78/98572 type: file pred: 2ly.0.r39/57635 count: 4 text: 78 74236 15 11546 a62e6205fb2fb2fb1e69b88e89247fa0 props: 2 3419617 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/maplib.f90 copyroot: 0 / id: 2mc.0.r78/98794 type: file pred: 2mc.0.r39/58079 count: 4 text: 78 83861 15 1111 7319555f91beab31128279aa7dad267c props: 2 3419915 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f90/syslib.f90 copyroot: 0 / PLAIN K 8 Makefile V 18 file 2n9.0.r36/475 K 12 Makefile.win V 19 file 2pe.0.r44/2904 K 10 blklib.f90 V 21 file 1hk.0.r2/3418820 K 10 chglib.f90 V 20 file 2m8.0.r78/95362 K 10 chklib.f90 V 20 file 2nc.0.r78/96245 K 10 ctrlib.f90 V 20 file 2no.0.r78/94256 K 11 datelib.f90 V 20 file 2n8.0.r78/96854 K 7 dcl.f90 V 18 file z.0.r39/62439 K 14 dcl_common.f90 V 21 file 28k.0.r2/3422086 K 12 dcl_parm.f90 V 21 file 2ec.0.r2/3424164 K 9 entry.lst V 21 file 264.0.r2/3420305 K 10 fftlib.f90 V 20 file 2md.0.r78/97076 K 10 gnmlib.f90 V 20 file 2nn.0.r78/97298 K 10 grpack.f90 V 21 file 2h9.0.r2/3420602 K 11 indxlib.f90 V 21 file 2dk.0.r2/3425944 K 10 intlib.f90 V 20 file 2n1.0.r78/94699 K 11 intrlib.f90 V 20 file 2mh.0.r78/98128 K 7 log.txt V 21 file 2gj.0.r2/3428295 K 10 lrllib.f90 V 21 file 29y.0.r2/3430653 K 10 maplib.f90 V 20 file 2ly.0.r78/98572 K 10 mk_f90.bat V 19 file e.0.r2/3427131 K 7 new.bat V 21 file 2gb.0.r2/3427716 K 9 oslib.f90 V 20 file 2n3.0.r78/93207 K 10 rfalib.f90 V 20 file 2mv.0.r78/97907 K 10 rfblib.f90 V 20 file 2pb.0.r78/96686 K 10 rnmlib.f90 V 20 file 2lw.0.r78/94920 K 12 sample01.f90 V 20 file 2pf.0.r78/97519 K 10 scpack.f90 V 20 file 2m6.0.r78/98350 K 10 sgpack.f90 V 20 file 2n4.0.r78/92983 K 11 shtrlib.f90 V 20 file 2mk.0.r78/92537 K 10 slpack.f90 V 20 file 2ns.0.r78/94035 K 10 syslib.f90 V 20 file 2mc.0.r78/98794 K 11 timelib.f90 V 20 file 2lu.0.r78/97686 K 10 udpack.f90 V 20 file 2nt.0.r78/92316 K 10 uepack.f90 V 20 file 2nl.0.r78/92762 K 10 ugpack.f90 V 20 file 2mf.0.r78/93427 K 10 uhpack.f90 V 20 file 2ny.0.r78/93647 K 10 uipack.f90 V 20 file 2pg.0.r78/93868 K 10 umpack.f90 V 20 file 2nf.0.r78/94477 K 10 uspack.f90 V 20 file 2m9.0.r78/95140 K 10 uupack.f90 V 20 file 2ne.0.r78/95582 K 10 uvpack.f90 V 20 file 2nv.0.r78/95803 K 10 uwpack.f90 V 20 file 2nu.0.r78/96024 K 10 uzpack.f90 V 20 file 2lp.0.r78/96466 END ENDREP id: d.0.r78/100879 type: dir pred: d.0.r44/4910 count: 14 text: 78 99015 1851 1851 e45e49604e7f2f2ba24e8ee3447e946c cpath: /trunk/src/f90 copyroot: 0 / id: 2mi.0.r78/101032 type: file pred: 2mi.0.r42/11976 count: 5 text: 78 35135 6462 9518 30a66938254ac3e9ba1be61ea7311a55 props: 2 3398771 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/sys_interface.f90 copyroot: 0 / id: 2m5.0.r78/101263 type: file pred: 2m5.0.r39/42953 count: 4 text: 78 1414 15 6717 9b40e239c72f82327003885f4d8539d5 props: 2 3399075 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/fft_interface.f90 copyroot: 0 / id: 2lm.0.r78/101491 type: file pred: 2lm.0.r39/44317 count: 4 text: 78 1876 15 4336 3c1219fc9e2cd8251f1b2203001a58d7 props: 2 3400890 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/lrl_interface.f90 copyroot: 0 / id: 2nq.0.r78/101719 type: file pred: 2nq.0.r39/43862 count: 4 text: 78 73769 15 2862 0b06c275e1bace1aabfef64f749fe0b0 props: 2 3400587 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/vrb_interface.f90 copyroot: 0 / id: 2n0.0.r78/101948 type: file pred: 2n0.0.r39/44545 count: 4 text: 78 1792 15 1194 500bfa8ebb868358621d4be706368c67 props: 2 3401495 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/int_interface.f90 copyroot: 0 / id: 2mm.0.r78/102176 type: file pred: 2mm.0.r39/47506 count: 4 text: 78 10740 15 11877 a04272162b3fb156345b21575daffaf1 props: 2 3406314 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/sc_interface.f90 copyroot: 0 / id: 2mb.0.r78/102405 type: file pred: 2mb.0.r42/12659 count: 5 text: 78 41749 5866 7611 1855d0b6b594e24b3519f4fd1da49232 props: 2 3407527 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/ud_interface.f90 copyroot: 0 / id: 2mr.0.r78/102635 type: file pred: 2mr.0.r39/45455 count: 4 text: 78 1371 15 9415 b59ec1d6bcb07b46ecce75673c5c8913 props: 2 3403298 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/dat_interface.f90 copyroot: 0 / id: 2nm.0.r78/102863 type: file pred: 2nm.0.r42/12883 count: 5 text: 78 10783 17476 26102 7960bdafa777aacaa6f69197e0e5177b props: 2 3407830 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/sg_interface.f90 copyroot: 0 / id: 2m4.0.r78/103095 type: file pred: 2m4.0.r39/48874 count: 4 text: 78 56550 15 6830 279aeb9dc854428fd77d29caf1954b39 props: 2 3408437 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/uh_interface.f90 copyroot: 0 / id: 2mn.0.r78/103323 type: file pred: 2mn.0.r39/45683 count: 4 text: 78 1918 15 10128 f1599e76fad06e05536d3a8217512eba props: 2 3403602 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/map_interface.f90 copyroot: 0 / id: 2lj.0.r78/103552 type: file pred: 2lj.0.r39/45912 count: 4 text: 78 1035 15 3887 41ed6b03c567ad3fdf8ab76df597fc12 props: 2 3403906 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/bit_interface.f90 copyroot: 0 / id: 2lv.0.r78/103780 type: file pred: 2lv.0.r42/13112 count: 5 text: 78 56592 4311 6007 e4fa5f917d8c6812a8dd1537bc47c88e props: 2 3409041 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/ul_interface.f90 copyroot: 0 / id: 2my.0.r78/104010 type: file pred: 2my.0.r39/46368 count: 4 text: 78 10530 15 1136 e5a7b4868a99366bba74d05be87f98fd props: 2 3404801 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/ran_interface.f90 copyroot: 0 / id: 2np.0.r78/104239 type: file pred: 2np.0.r39/46140 count: 4 text: 78 73685 15 2862 eba0f9e6c58fa8ead1b89cee60658198 props: 2 3404498 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/vib_interface.f90 copyroot: 0 / id: 2mz.0.r78/104468 type: file pred: 2mz.0.r39/50013 count: 4 text: 78 10488 15 1171 eb32a5b87e7cdfbf862fb55eb63e3ea8 props: 2 3409343 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/os_interface.f90 copyroot: 0 / id: 2mj.0.r78/104696 type: file pred: 2mj.0.r39/46596 count: 4 text: 78 1666 15 790 ba160e22786ea2f2d000f689af697c0e props: 2 3405104 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/hex_interface.f90 copyroot: 0 / id: 2m0.0.r78/104923 type: file pred: 2m0.0.r39/46824 count: 4 text: 78 1498 15 550 e1da0f0bf9ce315041419bead249f318 props: 2 3405406 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/fmt_interface.f90 copyroot: 0 / id: 2mo.0.r78/105150 type: file pred: 2mo.0.r42/13339 count: 5 text: 78 28456 6653 11110 b156970140e1e362197397156ce4c52b props: 2 3410554 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/sw_interface.f90 copyroot: 0 / id: 2ng.0.r78/105381 type: file pred: 2ng.0.r39/47052 count: 4 text: 78 28414 15 1810 f14357d808c94442a59d422cf334f02b props: 2 3405708 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/sub_interface.f90 copyroot: 0 / id: 2m3.0.r78/105610 type: file pred: 2m3.0.r39/50927 count: 4 text: 78 70228 15 6878 25c3387ac3c1e2c23caaaf1997b8f940 props: 2 3410858 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/uv_interface.f90 copyroot: 0 / id: 2ls.0.r78/105838 type: file pred: 2ls.0.r39/51155 count: 4 text: 78 70313 15 4955 b758e8854d1ac41ba8e1a7406adb039f props: 2 3411463 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/ux_interface.f90 copyroot: 0 / id: 2ll.0.r78/106066 type: file pred: 2ll.0.r42/13568 count: 5 text: 78 70399 3219 4432 e24580cb19747c244304206e1972afe9 props: 2 3412071 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/uz_interface.f90 copyroot: 0 / id: 2n5.0.r78/106296 type: file pred: 2n5.0.r39/47281 count: 4 text: 78 1708 15 1348 b55f6ba9cc3ebbfd1c47e43506d2772f props: 2 3406011 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/ifa_interface.f90 copyroot: 0 / id: 2nj.0.r78/106524 type: file pred: 2nj.0.r39/47735 count: 4 text: 78 1540 15 1991 bfc7ee27a8d1d24cb139693a3b31de43 props: 2 3406618 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/fnc_interface.f90 copyroot: 0 / id: 2lo.0.r78/106752 type: file pred: 2lo.0.r39/48190 count: 4 text: 78 10614 15 4509 477b7b816e44cd78e467e1dc5b9d0a24 props: 2 3407224 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/rfa_interface.f90 copyroot: 0 / id: 2n7.0.r78/106981 type: file pred: 2n7.0.r39/48417 count: 4 text: 78 1203 15 1476 65f0e7b77e35950e5b00f10424af960b props: 2 3406921 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/chn_interface.f90 copyroot: 0 / id: 2nd.0.r78/107209 type: file pred: 2nd.0.r39/49102 count: 4 text: 78 1245 15 1761 a94c416c93a529d0a9cc4a33ee062e86 props: 2 3408134 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/chr_interface.f90 copyroot: 0 / id: 2mu.0.r78/107437 type: file pred: 2mu.0.r39/49558 count: 4 text: 78 73853 15 952 86d812fa5dbacaefd8026c914d451152 props: 2 3408739 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/xfc_interface.f90 copyroot: 0 / id: 2lh.0.r78/107665 type: file pred: 2lh.0.r39/49785 count: 4 text: 78 1582 15 3758 db0fa5f1d8d250174d7e6ad4d9f9c394 props: 2 3409645 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/gnm_interface.f90 copyroot: 0 / id: 2li.0.r78/107893 type: file pred: 2li.0.r39/50241 count: 4 text: 78 73727 15 3847 0f9aaa8b10f3b418b29a9ce872620f89 props: 2 3409948 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/vra_interface.f90 copyroot: 0 / id: 2lf.0.r78/108122 type: file pred: 2lf.0.r39/50469 count: 4 text: 78 1329 15 4120 ec07785ce3889f760f8732ccd6f179a6 props: 2 3410251 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/ctr_interface.f90 copyroot: 0 / id: 2nh.0.r78/108350 type: file pred: 2nh.0.r39/51383 count: 4 text: 78 10698 15 1853 216acbf51bb96b6183a023cbfd9609e1 props: 2 3411160 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/rnm_interface.f90 copyroot: 0 / id: 2nb.0.r78/108579 type: file pred: 2nb.0.r39/51839 count: 4 text: 78 28285 15 15634 5b338e86a897ed0bc0a8e726b5476971 props: 2 3411766 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/sht_interface.f90 copyroot: 0 / id: 2ml.0.r78/108809 type: file pred: 2ml.0.r39/52069 count: 4 text: 78 10572 15 801 3eea1250c295a6054c47019df1f49dec props: 2 3412373 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/rea_interface.f90 copyroot: 0 / id: 2m1.0.r78/109037 type: file pred: 2m1.0.r39/40450 count: 4 text: 78 41707 15 6565 6a12f2a78580c72b5227ca8613d57efd props: 2 3396047 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/uc_interface.f90 copyroot: 0 / id: 2ni.0.r78/109265 type: file pred: 2ni.0.r39/41133 count: 4 text: 78 1624 15 2193 d2594033092609191018c0d06aaabe39 props: 2 3396652 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/gr_interface.f90 copyroot: 0 / id: 2m2.0.r78/109492 type: file pred: 2m2.0.r42/11522 count: 5 text: 78 47637 5240 6781 2a34a6a216d77fdbaf98e7bdfa6f0ec2 props: 2 3397257 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/ue_interface.f90 copyroot: 0 / id: 2ln.0.r78/109722 type: file pred: 2ln.0.r42/11749 count: 5 text: 78 52902 3623 4670 6fb1ac2f28722ac8ae72a93603527324 props: 2 3397863 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/ug_interface.f90 copyroot: 0 / id: 2nx.0.r78/109952 type: file pred: 2nx.0.r39/52524 count: 4 text: 78 1456 15 3125 7245659c12d50d4bc527a449e219aa08 props: 2 3412978 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/fio_interface.f90 copyroot: 0 / id: 2nw.0.r78/110180 type: file pred: 2nw.0.r39/42726 count: 4 text: 78 28328 15 3421 6402342a5069803b0bd1d1c5ef2a9f77 props: 2 3398468 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/sl_interface.f90 copyroot: 0 / id: 2lg.0.r78/110408 type: file pred: 2lg.0.r39/52753 count: 4 text: 78 73643 15 3792 85c9902304b8a0968e046d3420e9a7ce props: 2 3413281 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/via_interface.f90 copyroot: 0 / id: 2lr.0.r78/110637 type: file pred: 2lr.0.r42/12204 count: 5 text: 78 60928 3947 5403 f5edd7eed51e0c4ec1e5532333d432a6 props: 2 3399679 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/um_interface.f90 copyroot: 0 / id: 2lx.0.r78/110867 type: file pred: 2lx.0.r39/43408 count: 4 text: 78 28371 15 7909 e8ab707edc1677951e8031a10a85eec3 props: 2 3399981 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/st_interface.f90 copyroot: 0 / id: 2m7.0.r78/111095 type: file pred: 2m7.0.r42/12431 count: 5 text: 78 64900 5260 7304 8a3435d3249787c8349fed4a1307e698 props: 2 3400284 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/us_interface.f90 copyroot: 0 / id: 2ms.0.r78/111325 type: file pred: 2ms.0.r39/52982 count: 4 text: 78 1960 15 886 c536d48423ecd05b401f26e04fd6cb86 props: 2 3413879 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/mis_interface.f90 copyroot: 0 / id: 2le.0.r78/111552 type: file pred: 2le.0.r39/53210 count: 4 text: 78 41665 15 3459 0a7fa98a6afc912431b03af3234837c2 props: 2 3414181 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/tim_interface.f90 copyroot: 0 / id: 2lk.0.r78/111781 type: file pred: 2lk.0.r39/44090 count: 4 text: 78 70186 15 4211 6015d668fd3a8a5ddf86414dfb0168c6 props: 2 3401193 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/uu_interface.f90 copyroot: 0 / id: 2lq.0.r78/112009 type: file pred: 2lq.0.r39/44773 count: 4 text: 78 70270 15 5059 55dd23500f1102dcf6db09b59985d8fe props: 2 3401798 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/uw_interface.f90 copyroot: 0 / id: 2ma.0.r78/112237 type: file pred: 2ma.0.r39/45000 count: 4 text: 78 41622 15 12211 53f24c179b1da6035bd6697540bc76bf props: 2 3402101 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/sz_interface.f90 copyroot: 0 / id: 2lt.0.r78/112466 type: file pred: 2lt.0.r39/45228 count: 4 text: 78 70356 15 4961 20804df1e5bde3736cd81fa84164dd89 props: 2 3402405 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/uy_interface.f90 copyroot: 0 / id: 2lz.0.r78/112694 type: file pred: 2lz.0.r39/53667 count: 4 text: 78 1119 15 544 735874377bb5015d5f4bcac2aec20d88 props: 2 3414786 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/chg_interface.f90 copyroot: 0 / id: 2me.0.r78/112921 type: file pred: 2me.0.r39/53439 count: 4 text: 78 1287 15 666 034f9b472de366f03d11c29d14f8ec27 props: 2 3414484 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/clc_interface.f90 copyroot: 0 / id: 2nr.0.r78/113148 type: file pred: 2nr.0.r39/40222 count: 4 text: 78 1161 15 2797 dbdd9bc77a63a1f800746e228a07d520 props: 2 3395440 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/chk_interface.f90 copyroot: 0 / id: 2mp.0.r78/113376 type: file pred: 2mp.0.r42/11294 count: 5 text: 78 2002 8461 9292 3b70e765c548ac55174851256159e4d7 props: 2 3395743 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/ode_interface.f90 copyroot: 0 / id: 2nk.0.r78/113606 type: file pred: 2nk.0.r39/40905 count: 4 text: 78 1077 15 2020 b0226bf3a72c6d3cabacda771ae4115d props: 2 3396349 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/blk_interface.f90 copyroot: 0 / id: 2na.0.r78/113834 type: file pred: 2na.0.r39/41587 count: 4 text: 78 10656 15 1600 ff995a30c27c9727a4ae77bcb2c8a459 props: 2 3396954 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/rfb_interface.f90 copyroot: 0 / id: 2mg.0.r78/114063 type: file pred: 2mg.0.r39/41815 count: 4 text: 78 1750 15 7480 35b8da320589bc9d3e230a42fd5a269b props: 2 3397560 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/ind_interface.f90 copyroot: 0 / id: 2ld.0.r78/114291 type: file pred: 2ld.0.r39/42270 count: 4 text: 78 73811 15 3397 251bd4faac16b2eea54798ea53c130e1 props: 2 3398165 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/vst_interface.f90 copyroot: 0 / id: 2mq.0.r78/114520 type: file pred: 2mq.0.r39/52296 count: 4 text: 78 1834 15 859 a1f43f76ef2c9b19408f698eb4f872ec props: 2 3412675 81 0 685faf6a4230ea531a31a12e4b3cb565 cpath: /trunk/src/f77/intr_interface.f90 copyroot: 0 / PLAIN K 8 Makefile V 19 file 2mt.0.r20/1079 K 17 bit_interface.f90 V 21 file 2lj.0.r78/103552 K 17 blk_interface.f90 V 21 file 2nk.0.r78/113606 K 7 bug.txt V 20 file 3q.0.r2/3404303 K 17 chg_interface.f90 V 21 file 2lz.0.r78/112694 K 17 chk_interface.f90 V 21 file 2nr.0.r78/113148 K 17 chn_interface.f90 V 21 file 2n7.0.r78/106981 K 17 chr_interface.f90 V 21 file 2nd.0.r78/107209 K 17 clc_interface.f90 V 21 file 2me.0.r78/112921 K 17 ctr_interface.f90 V 21 file 2lf.0.r78/108122 K 17 dat_interface.f90 V 21 file 2mr.0.r78/102635 K 11 dcl_f77.f90 V 21 file 11h.0.r2/3403096 K 17 fft_interface.f90 V 21 file 2m5.0.r78/101263 K 17 fio_interface.f90 V 21 file 2nx.0.r78/109952 K 17 fmt_interface.f90 V 21 file 2m0.0.r78/104923 K 17 fnc_interface.f90 V 21 file 2nj.0.r78/106524 K 17 gnm_interface.f90 V 21 file 2lh.0.r78/107665 K 16 gr_interface.f90 V 21 file 2ni.0.r78/109265 K 17 hex_interface.f90 V 21 file 2mj.0.r78/104696 K 17 ifa_interface.f90 V 21 file 2n5.0.r78/106296 K 17 ind_interface.f90 V 21 file 2mg.0.r78/114063 K 17 int_interface.f90 V 21 file 2n0.0.r78/101948 K 18 intr_interface.f90 V 21 file 2mq.0.r78/114520 K 13 lower_routine V 21 file 1x1.0.r2/3399472 K 17 lrl_interface.f90 V 21 file 2lm.0.r78/101491 K 17 map_interface.f90 V 21 file 2mn.0.r78/103323 K 17 mis_interface.f90 V 21 file 2ms.0.r78/111325 K 10 mk_f77.bat V 21 file 2ix.0.r2/3413678 K 17 ode_interface.f90 V 21 file 2mp.0.r78/113376 K 16 os_interface.f90 V 21 file 2mz.0.r78/104468 K 17 ran_interface.f90 V 21 file 2my.0.r78/104010 K 17 rea_interface.f90 V 21 file 2ml.0.r78/108809 K 17 rfa_interface.f90 V 21 file 2lo.0.r78/106752 K 17 rfb_interface.f90 V 21 file 2na.0.r78/113834 K 17 rnm_interface.f90 V 21 file 2nh.0.r78/108350 K 16 sc_interface.f90 V 21 file 2mm.0.r78/102176 K 16 sg_interface.f90 V 21 file 2nm.0.r78/102863 K 17 sht_interface.f90 V 21 file 2nb.0.r78/108579 K 16 sl_interface.f90 V 21 file 2nw.0.r78/110180 K 16 st_interface.f90 V 21 file 2lx.0.r78/110867 K 17 sub_interface.f90 V 21 file 2ng.0.r78/105381 K 16 sw_interface.f90 V 21 file 2mo.0.r78/105150 K 17 sys_interface.f90 V 21 file 2mi.0.r78/101032 K 16 sz_interface.f90 V 21 file 2ma.0.r78/112237 K 17 tim_interface.f90 V 21 file 2le.0.r78/111552 K 16 uc_interface.f90 V 21 file 2m1.0.r78/109037 K 16 ud_interface.f90 V 21 file 2mb.0.r78/102405 K 16 ue_interface.f90 V 21 file 2m2.0.r78/109492 K 16 ug_interface.f90 V 21 file 2ln.0.r78/109722 K 16 uh_interface.f90 V 21 file 2m4.0.r78/103095 K 16 ul_interface.f90 V 21 file 2lv.0.r78/103780 K 16 um_interface.f90 V 21 file 2lr.0.r78/110637 K 16 us_interface.f90 V 21 file 2m7.0.r78/111095 K 16 uu_interface.f90 V 21 file 2lk.0.r78/111781 K 16 uv_interface.f90 V 21 file 2m3.0.r78/105610 K 16 uw_interface.f90 V 21 file 2lq.0.r78/112009 K 16 ux_interface.f90 V 21 file 2ls.0.r78/105838 K 16 uy_interface.f90 V 21 file 2lt.0.r78/112466 K 16 uz_interface.f90 V 21 file 2ll.0.r78/106066 K 17 via_interface.f90 V 21 file 2lg.0.r78/110408 K 17 vib_interface.f90 V 21 file 2np.0.r78/104239 K 17 vra_interface.f90 V 21 file 2li.0.r78/107893 K 17 vrb_interface.f90 V 21 file 2nq.0.r78/101719 K 17 vst_interface.f90 V 21 file 2ld.0.r78/114291 K 17 xfc_interface.f90 V 21 file 2mu.0.r78/107437 END ENDREP id: 3p.0.r78/117953 type: dir pred: 3p.0.r42/16940 count: 9 text: 78 114748 3192 3192 544745cf257c19aedcfb8247018de5b7 cpath: /trunk/src/f77 copyroot: 0 / PLAIN K 3 f77 V 19 dir 3p.0.r78/117953 K 3 f90 V 18 dir d.0.r78/100879 END ENDREP id: c.0.r78/118191 type: dir pred: c.0.r44/5140 count: 15 text: 78 118109 69 69 b81e7d201f9d3572a5b4daf1c578605b cpath: /trunk/src copyroot: 0 / 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 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.r78/92166 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 6 debian V 18 dir 2o5.0.r35/3654 K 12 exclude-list V 21 file 2ep.0.r2/3148674 K 10 index.html V 19 file 2n2.0.r13/1425 K 6 rc1_en V 19 dir 1q.0.r2/3728312 K 6 rc1_jp V 19 dir 10.0.r2/4324220 K 4 spec V 18 dir 2pc.0.r41/1135 K 3 src V 18 dir c.0.r78/118191 K 3 sys V 18 dir 2oo.0.r29/1248 K 8 tutorial V 18 dir 4.0.r2/3394739 END ENDREP id: 1.0.r78/119111 type: dir pred: 1.0.r44/6055 count: 41 text: 78 118337 761 761 1edc1711c5892fb74d105ea304555a18 cpath: /trunk copyroot: 0 / PLAIN K 8 branches V 20 dir 2ph.0.r77/102334 K 4 tags V 14 dir 3.0.r5/248 K 5 trunk V 18 dir 1.0.r78/119111 END ENDREP id: 0.0.r78/119374 type: dir pred: 0.0.r77/102600 count: 78 text: 78 119255 106 106 6ac93d63079731b289cd5f74623e45bf cpath: / copyroot: 0 / 2nj.0.t77-1 modify true false /trunk/src/f77/fnc_interface.f90 2n7.0.t77-1 modify true false /trunk/src/f77/chn_interface.f90 2lo.0.t77-1 modify true false /trunk/src/f77/rfa_interface.f90 2nd.0.t77-1 modify true false /trunk/src/f77/chr_interface.f90 2n8.0.t77-1 modify true false /trunk/src/f90/datelib.f90 2m6.0.t77-1 modify true false /trunk/src/f90/scpack.f90 2mu.0.t77-1 modify true false /trunk/src/f77/xfc_interface.f90 2lh.0.t77-1 modify true false /trunk/src/f77/gnm_interface.f90 2n4.0.t77-1 modify true false /trunk/src/f90/sgpack.f90 2li.0.t77-1 modify true false /trunk/src/f77/vra_interface.f90 2lf.0.t77-1 modify true false /trunk/src/f77/ctr_interface.f90 2ns.0.t77-1 modify true false /trunk/src/f90/slpack.f90 2nh.0.t77-1 modify true false /trunk/src/f77/rnm_interface.f90 2nb.0.t77-1 modify true false /trunk/src/f77/sht_interface.f90 2lu.0.t77-1 modify true false /trunk/src/f90/timelib.f90 2m8.0.t77-1 modify true false /trunk/src/f90/chglib.f90 2m1.0.t77-1 modify true false /trunk/src/f77/uc_interface.f90 2ml.0.t77-1 modify true false /trunk/src/f77/rea_interface.f90 2nc.0.t77-1 modify true false /trunk/src/f90/chklib.f90 2ni.0.t77-1 modify true false /trunk/src/f77/gr_interface.f90 2m2.0.t77-1 modify true false /trunk/src/f77/ue_interface.f90 _5.0.t77-1 add true false /trunk/bin/Makefile.win 2ln.0.t77-1 modify true false /trunk/src/f77/ug_interface.f90 2pb.0.t77-1 modify true false /trunk/src/f90/rfblib.f90 2nx.0.t77-1 modify true false /trunk/src/f77/fio_interface.f90 2nw.0.t77-1 modify true false /trunk/src/f77/sl_interface.f90 2lg.0.t77-1 modify true false /trunk/src/f77/via_interface.f90 2lr.0.t77-1 modify true false /trunk/src/f77/um_interface.f90 2mk.0.t77-1 modify true false /trunk/src/f90/shtrlib.f90 2lx.0.t77-1 modify true false /trunk/src/f77/st_interface.f90 2m7.0.t77-1 modify true false /trunk/src/f77/us_interface.f90 _2.0.t77-1 add true false /trunk/bin/DCLF90.BAT 2ms.0.t77-1 modify true false /trunk/src/f77/mis_interface.f90 2lk.0.t77-1 modify true false /trunk/src/f77/uu_interface.f90 2le.0.t77-1 modify true false /trunk/src/f77/tim_interface.f90 2lq.0.t77-1 modify true false /trunk/src/f77/uw_interface.f90 2ma.0.t77-1 modify true false /trunk/src/f77/sz_interface.f90 2lt.0.t77-1 modify true false /trunk/src/f77/uy_interface.f90 2pf.0.t77-1 modify true false /trunk/src/f90/sample01.f90 2me.0.t77-1 modify true false /trunk/src/f77/clc_interface.f90 2lz.0.t77-1 modify true false /trunk/src/f77/chg_interface.f90 2nr.0.t77-1 modify true false /trunk/src/f77/chk_interface.f90 2mp.0.t77-1 modify true false /trunk/src/f77/ode_interface.f90 2nk.0.t77-1 modify true false /trunk/src/f77/blk_interface.f90 2na.0.t77-1 modify true false /trunk/src/f77/rfb_interface.f90 2mg.0.t77-1 modify true false /trunk/src/f77/ind_interface.f90 2mv.0.t77-1 modify true false /trunk/src/f90/rfalib.f90 2ld.0.t77-1 modify true false /trunk/src/f77/vst_interface.f90 2mq.0.t77-1 modify true false /trunk/src/f77/intr_interface.f90 2mi.0.t77-1 modify true false /trunk/src/f77/sys_interface.f90 2m5.0.t77-1 modify true false /trunk/src/f77/fft_interface.f90 2ly.0.t77-1 modify true false /trunk/src/f90/maplib.f90 2mc.0.t77-1 modify true false /trunk/src/f90/syslib.f90 2nt.0.t77-1 modify true false /trunk/src/f90/udpack.f90 2nl.0.t77-1 modify true false /trunk/src/f90/uepack.f90 2p1.0.t77-1 modify true false /trunk/bin/dclf90gen.sh 2mf.0.t77-1 modify true false /trunk/src/f90/ugpack.f90 2ny.0.t77-1 modify true false /trunk/src/f90/uhpack.f90 2pg.0.t77-1 modify true false /trunk/src/f90/uipack.f90 2nq.0.t77-1 modify true false /trunk/src/f77/vrb_interface.f90 2lm.0.t77-1 modify true false /trunk/src/f77/lrl_interface.f90 2n0.0.t77-1 modify true false /trunk/src/f77/int_interface.f90 2no.0.t77-1 modify true false /trunk/src/f90/ctrlib.f90 2nf.0.t77-1 modify true false /trunk/src/f90/umpack.f90 2n1.0.t77-1 modify true false /trunk/src/f90/intlib.f90 2lw.0.t77-1 modify true false /trunk/src/f90/rnmlib.f90 2m9.0.t77-1 modify true false /trunk/src/f90/uspack.f90 2ne.0.t77-1 modify true false /trunk/src/f90/uupack.f90 2nv.0.t77-1 modify true false /trunk/src/f90/uvpack.f90 2mm.0.t77-1 modify true false /trunk/src/f77/sc_interface.f90 2nu.0.t77-1 modify true false /trunk/src/f90/uwpack.f90 2mb.0.t77-1 modify true false /trunk/src/f77/ud_interface.f90 2mr.0.t77-1 modify true false /trunk/src/f77/dat_interface.f90 2lp.0.t77-1 modify true false /trunk/src/f90/uzpack.f90 2nm.0.t77-1 modify true false /trunk/src/f77/sg_interface.f90 2m4.0.t77-1 modify true false /trunk/src/f77/uh_interface.f90 2mn.0.t77-1 modify true false /trunk/src/f77/map_interface.f90 2lj.0.t77-1 modify true false /trunk/src/f77/bit_interface.f90 2mh.0.t77-1 modify true false /trunk/src/f90/intrlib.f90 2np.0.t77-1 modify true false /trunk/src/f77/vib_interface.f90 2lv.0.t77-1 modify true false /trunk/src/f77/ul_interface.f90 2my.0.t77-1 modify true false /trunk/src/f77/ran_interface.f90 2mz.0.t77-1 modify true false /trunk/src/f77/os_interface.f90 2md.0.t77-1 modify true false /trunk/src/f90/fftlib.f90 2nn.0.t77-1 modify true false /trunk/src/f90/gnmlib.f90 2n3.0.t77-1 modify true false /trunk/src/f90/oslib.f90 2mj.0.t77-1 modify true false /trunk/src/f77/hex_interface.f90 2m0.0.t77-1 modify true false /trunk/src/f77/fmt_interface.f90 2mo.0.t77-1 modify true false /trunk/src/f77/sw_interface.f90 2ng.0.t77-1 modify true false /trunk/src/f77/sub_interface.f90 2m3.0.t77-1 modify true false /trunk/src/f77/uv_interface.f90 2ls.0.t77-1 modify true false /trunk/src/f77/ux_interface.f90 2ll.0.t77-1 modify true false /trunk/src/f77/uz_interface.f90 2n5.0.t77-1 modify true false /trunk/src/f77/ifa_interface.f90 119374 119515