DELTA 586 2595 762
SVN ®&®};ƒD: ƒ_ €G gƒ]€l 2…2 ‚}†e» ‚lŠ ‚f ‚s½ ‚z’8” –•H€ r¬4ƒB      2013/09/26  º´¡¹ÌÚÍÎÊ¿ == 0.0D0 Èæ³Ó¤ò abs() < epsilon(0.0D0) ¤Ë.
!         -llapack -lblas -L/usr/lib/gcc-lib/i386-linux/2.95.4 -lg2c
!      ¤È¤¤¤Ã¤¿¥ª¥×¥·¥ç¥ó¤ò¤Ä¤±¤ë¤Ù¤·.
  !   * sort ¤Ë¤è¤Ã¤Æ½çÈÖ¤òÄê¤á¤ë¤¿¤á¤ËÍÑ¤¤¤ëÎÌ¤ò»ØÄê¤¹¤ë.
    !   * sort ¤Ë¤è¤Ã¤Æ½çÈÖ¤òÄê¤á¤ë¤¿¤á¤ËÍÑ¤¤¤ëÎÌ¤ò»ØÄê¤¹¤ë.
    !
    interfaceabs(wi(j)) <= epsilon(0.0D0) ) then
          eigvec_r(:,i) = vr(:,j)
          eigvec_i(:,i) = 0.0D0

       elseif ( wi(j) > 0.0DENDREP
DELTA 590 20424 653
SVN 2"‚! f  g K‚– ƒO€} ‡A†M Ž‚33use dc_types, only: DPDP), intent(in) :: sa(-km:km,lm)
  real(DP), intent(in) :: sb(-km:km,0:lm)
  real(DP), intent(inout) :: sc(-km:km,0:lm)
  real(DP) :: ws(-km:km,0:lm)
  real(DP) :: wg((jm+1)*im,3)
  integer :: itj(5)
  real(DP) :: tj(jm*6)
  integer :: iti(5)
  real(DP)ENDREP
DELTA 586 557 25
SVN ¸¸dƒB†\ƒ@ ‚{  E‚|¾ ˆ?„€ ƒ,B eo ,‘U€r R“u€p ‚*–:€F 0™,½ ^› ƒ,œz€N †Y v ƒ,§P– …bªy€‚f V³8‚  ´‚  µ€j f¶x€~ …/¸Y¿ „f¾E ƒ Ã,‚ VÆ-‚ Yå8‡ ‚	Çc‚ VÉm€b iÇc !Ì‚ bÍ.€ ‚)Ï(€e SÒ4€G Ï( ƒ=ÔW– nØ*‚ õ1 ƒNÚ7– pÞ‚ …"ß€ …"å8– sêp‚ qëdž ‡bìg€j „põ1‚ hú"‚  ß ƒ1ü+– qÿr‚ sõ1 „W€
 …$†u‚ xŒ‚ o€ …D‚ x”Y€n j–=€ ƒd˜9‚ M®3‚ ‚œl‚ M®3‚ ‚c :‚ M®3‚ ‚r£l€N _§*‚ H¶:‚ ‚©S‚ M®3‚ ‚¬*‚ M®3‚ ‚¯‚ M®3‚ ‚±i€N h´Q‚ H¶:‚ 	·–*x^½UßOÓP~ß_qxkg™Æ,ÁÄ°˜,%áe<-e4K·¶#kqìÏœ¾ \ˆ·1H5b¢&F_øù¾ø ñÞÛm´ë6™Ao×ÝåîœïûÎ¹çÜë 6ÌUó³¹hVÍc³2·n–pðÃríÅû·k¹VY¯ïÌán!bë>€úBùÇöO¬@t|ìîèý›£Ct´à^&kdEmxÌ‚¹g ×æžËx†r`þOO´Ç%| †! Yí`N³ÄŸÍò³4!Ìl}®XpŠl?Èª )°Ž/ñ_á	Ä˜€µÍí"J=J$!8Gpe $=j²!‹
€ÊÄòŸ`¿o|Û:Â²²€‹¦ooç–Uo?¤‰lÅ)»åÉä×Î‹h­U6÷+U—|fFYå+ÉÎeújïž¯^F- uÀ²–ÐÚÜÇgX@‹ê¡(3ºS‰¸‘Ÿ–t2š’Cd,2ÆÛ)ŸUF†AòÊH(„^cÀÅà#à²fHI)+À”¬Jš.g4î6ïu$4²‘"öYIT8Bító‚¨(™„hˆ“ŠÔr`öýàË}âË¾îÐæAó±=±“NËŽ‹ñxJ[„ìz	B¬t+_¬3®ý¸Ñ>AÏ·àË6')­¥Ý7{¤©cv·Ø¨Ý›'ð0å’äH!ä’]7¤›Â\&›HKÛs‚Ínvº_šÁÉÏR¦Êš@¾EÖÞ0ÀÖíPªõ%z–ÐáH•ã§KÑ`Z“F
†•¬;H(‹”h Ùø£Æ¹	~¥ä9k¼t.Ž`8Edu0äåÈÏº8œTn‡êì4ØFp\J½âý²Ê·‹ë¾†ìC›º+gàZ´6©ÛÁû[ï¯'Z;^=þ@œVÄ¨ö˜\/­À33ï½Ó¬ÂGóÐüDÞsÞ<ó]Mº8©sR‚
Až‡;# Më²BK$Œù>ÅFf¯ “tEõWíi‡ý'ilJËÇÍÓMÚ“&Àxô!+«@•}Õ’ÎqCþ4«&N¡S[Eõ•L]Ö¥ÿ–§‹º&ÄÝà|¸š(„[»_IôÍ¨ËVý:ê&áòi;ñØag£¸û2#\“Îû\7úoEæENDREP
id: ms-590.0.r617/2250
type: file
pred: ms-590.0.r590/20593094
count: 1
text: 617 549 325 1970 94b0daecb6bc57a07b65a3f07048e1d4 9acad2b2044b88557ccd128c95e6178a661d66c4 616-ha/_6
cpath: /trunk/libsrc/esc_module/c2ajcc.f90
copyroot: 0 /

id: 32-2.v-590.r617/2487
type: file
pred: 32-2.v-590.r615/1313
count: 18
text: 617 901 1325 23652 29f5062990412038d6108a3da142d7ad f06ce51fada8fbed68af4a56e10cf1e9c4be5a83 616-ha/_7
props: 586 60778 29 0 ff5c3c1f7bdb48ba0201950780ae7e31
cpath: /trunk/libsrc/esc_module/esc_module.f90
copyroot: 590 /trunk/libsrc/esc_module/esc_module.f90

PLAIN
K 11
Makefile.am
V 27
file mq-590.0.r590/20593309
K 10
c2ajcc.f90
V 23
file ms-590.0.r617/2250
K 14
esc_module.f90
V 25
file 32-2.v-590.r617/2487
END
ENDREP
id: 3k-590.0.r617/2989
type: dir
pred: 3k-590.0.r615/1821
count: 4
text: 617 2826 150 150 5b343f0356dfc2d459ba379d4b195a23
props: 595 35005 205 0 b5cc024b8bf7bea4fb70baafa7f0e828
cpath: /trunk/libsrc/esc_module
copyroot: 0 /

id: 2-81.p-590.r617/3215
type: file
pred: 2-81.p-590.r590/20620294
count: 6
text: 617 0 523 6013 2c73043f2c37fa22340ab26bbb4983d4 46fe3c57522e1a4111b0bcd68eaf88d69d3242fa 616-ha/_4
props: 586 64728 29 0 ff5c3c1f7bdb48ba0201950780ae7e31
cpath: /trunk/libsrc/eigmatrix/lapack_eigen.f90
copyroot: 590 /trunk/libsrc/eigmatrix/lapack_eigen.f90

PLAIN
K 11
Makefile.am
V 27
file mm-590.0.r590/20621547
K 13
eigmatrix.F90
V 29
file 5-81.m-590.r590/20620955
K 10
indexx.f90
V 29
file 2-83.n-590.r590/20622418
K 17
lapack_ceigen.f90
V 30
file 2-496.o-590.r590/20620622
K 16
lapack_eigen.f90
V 25
file 2-81.p-590.r617/3215
K 15
ssl2_ceigen.f90
V 30
file 4-496.q-590.r590/20621762
K 14
ssl2_eigen.f90
V 29
file a-81.r-590.r590/20621222
K 17
ssl2tp_ceigen.f90
V 30
file 5-496.s-590.r590/20622734
K 16
ssl2tp_eigen.f90
V 30
file 8-276.t-590.r590/20622088
END
ENDREP
id: 37-590.0.r617/4068
type: dir
pred: 37-590.0.r597/244
count: 4
text: 617 3555 500 500 00c89cffb6d3eec9b4884d205e0301cf
props: 597 0 231 0 0b65bdb71948771e421f03d1945219b1
cpath: /trunk/libsrc/eigmatrix
copyroot: 0 /

PLAIN
K 11
Makefile.am
V 27
file lu-590.0.r590/20667542
K 9
ae_module
V 23
dir 1y-590.0.r595/45687
K 14
ae_module_fftj
V 23
dir 21-590.0.r595/54741
K 9
aq_module
V 23
dir 24-590.0.r595/49767
K 18
at_galerkin_module
V 23
dir 27-590.0.r595/44322
K 9
at_module
V 26
dir 2g-590.0.r598/13752455
K 9
au_module
V 23
dir 2j-590.0.r595/50672
K 9
ee_module
V 23
dir 2m-590.0.r595/46598
K 14
ee_module_fftj
V 23
dir 2p-590.0.r595/55648
K 10
eea_module
V 23
dir 2s-590.0.r595/47047
K 15
eea_module_fftj
V 23
dir 2v-590.0.r595/62000
K 10
eee_module
V 23
dir 2y-590.0.r595/48862
K 14
eee_mpi_module
V 26
dir 31-590.0.r598/13744274
K 9
ef_module
V 23
dir 34-590.0.r595/38406
K 9
eigmatrix
V 22
dir 37-590.0.r617/4068
K 9
eq_module
V 26
dir 3h-590.0.r598/13749500
K 10
esc_module
V 22
dir 3k-590.0.r617/2989
K 18
et_galerkin_module
V 22
dir 3n-590.0.r610/4285
K 23
et_galerkin_module_fftj
V 22
dir 3q-590.0.r610/5049
K 9
et_module
V 26
dir 3t-590.0.r598/13753156
K 14
et_module_fftj
V 26
dir 3w-590.0.r598/13753887
K 8
l_module
V 23
dir 3z-590.0.r595/60189
K 15
l_module_sjpack
V 23
dir 42-590.0.r595/58840
K 9
la_module
V 23
dir 45-590.0.r595/47950
K 16
la_module_sjpack
V 23
dir 48-590.0.r595/37490
K 8
lumatrix
V 23
dir 4b-590.0.r595/61552
K 10
tee_module
V 26
dir 4k-590.0.r598/13744992
K 15
tee_module_fftj
V 26
dir 4n-590.0.r598/13750238
K 5
utils
V 23
dir 4q-590.0.r595/59744
K 8
w_module
V 23
dir 4u-590.0.r595/41168
K 15
w_module_sjpack
V 26
dir 52-590.0.r598/13747604
K 20
w_module_sjpack_cuda
V 23
dir 5a-590.0.r595/60637
K 12
w_mpi_module
V 23
dir 5i-590.0.r595/36128
K 19
w_mpi_module_sjpack
V 23
dir 5o-590.0.r595/62455
K 14
w_zonal_module
V 23
dir 5u-590.0.r595/42073
K 21
w_zonal_module_sjpack
V 23
dir 5x-590.0.r595/56551
K 9
wa_module
V 23
dir 1q-590.0.r595/51570
K 16
wa_module_sjpack
V 26
dir 1u-590.0.r598/13748787
K 21
wa_module_sjpack_cuda
V 23
dir 6c-590.0.r595/38855
K 13
wa_mpi_module
V 23
dir 6k-590.0.r595/42977
K 20
wa_mpi_module_sjpack
V 23
dir 6q-590.0.r595/63372
K 15
wa_zonal_module
V 23
dir 6w-590.0.r595/35673
K 22
wa_zonal_module_sjpack
V 23
dir 6z-590.0.r595/40706
K 9
wq_module
V 23
dir 72-590.0.r595/53391
K 16
wq_module_sjpack
V 23
dir 75-590.0.r595/52480
K 13
wq_mpi_module
V 26
dir 78-590.0.r598/13746501
K 20
wq_mpi_module_sjpack
V 26
dir 7b-590.0.r598/13743534
K 18
wt_galerkin_module
V 22
dir 7e-590.0.r609/9111
K 25
wt_galerkin_module_sjpack
V 22
dir 7h-590.0.r609/6774
K 9
wt_module
V 26
dir 7k-590.0.r598/13754596
K 16
wt_module_sjpack
V 26
dir 7n-590.0.r598/13742765
K 21
wt_module_sjpack_cuda
V 23
dir 7q-590.0.r595/52019
K 13
wt_mpi_module
V 26
dir 7t-590.0.r598/13751749
K 20
wt_mpi_module_sjpack
V 26
dir 7w-590.0.r598/13751006
K 24
wt_zonal_galerkin_module
V 22
dir 7z-590.0.r609/8367
K 31
wt_zonal_galerkin_module_sjpack
V 22
dir 82-590.0.r609/7588
K 15
wt_zonal_module
V 26
dir 85-590.0.r598/13755335
K 22
wt_zonal_module_sjpack
V 26
dir 88-590.0.r598/13745767
K 10
wtq_module
V 23
dir 8b-590.0.r595/42527
K 17
wtq_module_sjpack
V 23
dir 8e-590.0.r595/41616
K 14
wtq_mpi_module
V 23
dir 8h-590.0.r595/36580
K 21
wtq_mpi_module_sjpack
V 23
dir 8k-590.0.r595/57925
K 10
wtu_module
V 23
dir 8n-590.0.r595/43880
K 9
wu_module
V 23
dir 8q-590.0.r595/54300
END
ENDREP
id: 1p-590.0.r617/7490
type: dir
pred: 1p-590.0.r615/5249
count: 10
text: 617 4288 3189 3189 26ae02487237bcfa10b7ab352c5e1ce2
props: 595 66773 205 0 b5cc024b8bf7bea4fb70baafa7f0e828
cpath: /trunk/libsrc
copyroot: 0 /

PLAIN
K 10
.gitignore
V 21
file 1-502.0.r606/342
K 9
COPYRIGHT
V 25
file 1-43.0.r590/20592024
K 9
ChangeLog
V 23
file 1-154.0.r513/18521
K 11
Makefile.am
V 23
file lc-590.0.r612/3160
K 4
TODO
V 26
file 1-344.0.r590/20591406
K 7
VERSION
V 23
file 1-595.0.r595/31756
K 10
autogen.sh
V 27
file le-590.0.r590/20592843
K 3
bin
V 21
dir lg-590.0.r608/668
K 9
build-aux
V 20
dir lk-590.0.r608/40
K 12
configure.ac
V 21
file lo-590.0.r616/96
K 3
doc
V 19
dir 1-18.0.r613/741
K 7
include
V 23
dir lq-590.0.r607/40087
K 6
libsrc
V 22
dir 1p-590.0.r617/7490
K 2
m4
V 23
dir pc-590.0.r607/39483
K 6
spmfrt
V 21
dir 10-2.0.r607/43108
K 12
supplemental
V 22
dir 3-134.0.r607/42500
K 4
test
V 21
dir 16-2.0.r607/38880
END
ENDREP
id: 0-1.0.r617/8422
type: dir
pred: 0-1.0.r616/1022
count: 552
text: 617 7708 701 701 88517ca54fbead8f9ecb636383142361
props: 607 44045 461 0 c40c627d3f1932469d161c8fb63b61e3
cpath: /trunk
copyroot: 0 /

PLAIN
K 8
branches
V 17
dir 2-1.0.r589/71
K 4
tags
V 18
dir 3-1.0.r512/851
K 5
trunk
V 19
dir 0-1.0.r617/8422
END
ENDREP
id: 0.0.r617/8747
type: dir
pred: 0.0.r616/1346
count: 617
text: 617 8626 108 108 88ecc8e97b62de928d239866e1ce4daf
cpath: /
copyroot: 0 /

ms-590.0.t616-ha modify-file true false /trunk/libsrc/esc_module/c2ajcc.f90

2-81.p-590.t616-ha modify-file true false /trunk/libsrc/eigmatrix/lapack_eigen.f90

32-2.v-590.t616-ha modify-file true false /trunk/libsrc/esc_module/esc_module.f90


8747 8886