Superconducting Toolkit
Revisão | 62e31bb0bb949eaca35c57b580fbcb5a9cfc1d61 (tree) |
---|---|
Hora | 2017-09-01 00:20:44 |
Autor | giannozz <giannozz@c92e...> |
Commiter | giannozz |
less verbose printout (just 1 proc writes)
git-svn-id: svn+ssh://qeforge.qe-forge.org/svnroot/q-e/trunk/espresso@13814 c92efa57-630b-4861-b058-cf58834340f0
@@ -23,7 +23,7 @@ subroutine init_us_0 | ||
23 | 23 | USE kinds, ONLY : DP |
24 | 24 | USE gvect, ONLY : ecutrho |
25 | 25 | USE io_global, ONLY : stdout |
26 | - USE constants, ONLY : fpi, sqrt2, eps8 | |
26 | + USE constants, ONLY : fpi, sqrt2, eps8, eps6 | |
27 | 27 | USE atom, ONLY : rgrid |
28 | 28 | USE ions_base, ONLY : ntyp => nsp |
29 | 29 | USE cell_base, ONLY : omega, tpiba |
@@ -36,7 +36,9 @@ subroutine init_us_0 | ||
36 | 36 | ! |
37 | 37 | ! here a few local variables |
38 | 38 | ! |
39 | - logical, parameter :: tprint=.true. ! whether the q_l(r) and its relatives are printed or not | |
39 | +!sdg | |
40 | +! logical, parameter :: tprint=.true. ! whether the q_l(r) and its relatives are printed or not | |
41 | + logical, parameter :: tprint=.false. ! whether the q_l(r) and its relatives are printed or not | |
40 | 42 | integer, parameter :: nn=16 ! smoothing parameter, order of the polynomial inverse gaussian approximant |
41 | 43 | real(DP), parameter:: a=22.0 ! smoothing parameter, exponent of the gaussian decaying factor |
42 | 44 | ! a=0.d0 ; nn=0 would be no smoothing. |
@@ -104,14 +106,14 @@ subroutine init_us_0 | ||
104 | 106 | ! |
105 | 107 | call divide (intra_bgrp_comm, nqxq, startq, lastq) |
106 | 108 | qmax = sqrt(ecutrho) |
107 | - write (6, *) ' qmax : sqrt(ecutrho) =',sqrt(ecutrho), dq*nqxq*tpiba, tpiba | |
108 | - write (6,'(a,f6.2,a,i4,4(a,f11.8))') 'FILTER : a=',a,', nn=',nn,', filter(1.1d0)=', filter(1.1d0,a,nn), & | |
109 | + write (stdout, *) ' qmax : sqrt(ecutrho) =',sqrt(ecutrho), dq*nqxq*tpiba, tpiba | |
110 | + write (stdout,'(a,f6.2,a,i4,4(a,f11.8))') 'FILTER : a=',a,', nn=',nn,', filter(1.1d0)=', filter(1.1d0,a,nn), & | |
109 | 111 | ', filter(1.0d0)=', filter(1.0d0,a,nn), & |
110 | 112 | ', filter(0.9d0)=', filter(0.9d0,a,nn), & |
111 | 113 | ', filter(0.8d0)=', filter(0.8d0,a,nn) |
112 | 114 | ! |
113 | 115 | do nt = 1, ntyp |
114 | - write (*,*) ' NT = ', nt | |
116 | + write (stdout,*) ' NT = ', nt | |
115 | 117 | ! |
116 | 118 | if ( upf(nt)%tvanp ) then |
117 | 119 | !- |
@@ -214,15 +216,15 @@ subroutine init_us_0 | ||
214 | 216 | power_q (ijv,0) = power_q (ijv,0) + power_q (ijv,l+1) |
215 | 217 | power_r (ijv,0) = power_r (ijv,0) + power_r (ijv,l+1) |
216 | 218 | end do |
217 | - !write (*, *) ' nb :', nb,lnb,' mb :',mb,lmb,' lmax :',lnb+lmb | |
218 | - !write (*,'(a,12f16.10)') 'power_0 ',(power_0 (ijv,l+1), l=0,lnb+lmb) | |
219 | - !write (*,'(a,12f16.10)') 'power_r ',(power_r (ijv,l+1), l=0,lnb+lmb) | |
220 | - !write (*,'(a,12f16.10)') 'power_q ',(power_q (ijv,l+1), l=0,lnb+lmb) | |
221 | - !write (*,*) 'ratio ',1.d0-(power_r (ijv,0)/power_q (ijv,0)), 1.d0-(power_r (ijv,0)/power_0 (ijv,0)) | |
219 | + !write (stdout, *) ' nb :', nb,lnb,' mb :',mb,lmb,' lmax :',lnb+lmb | |
220 | + !write (stdout,'(a,12f16.10)') 'power_0 ',(power_0 (ijv,l+1), l=0,lnb+lmb) | |
221 | + !write (stdout,'(a,12f16.10)') 'power_r ',(power_r (ijv,l+1), l=0,lnb+lmb) | |
222 | + !write (stdout,'(a,12f16.10)') 'power_q ',(power_q (ijv,l+1), l=0,lnb+lmb) | |
223 | + !write (stdout,*) 'ratio ',1.d0-(power_r (ijv,0)/power_q (ijv,0)), 1.d0-(power_r (ijv,0)/power_0 (ijv,0)) | |
222 | 224 | if (power_0(ijv,0).gt.eps8) target_ratio = min(target_ratio,power_r(ijv,0)/power_0(ijv,0)) |
223 | 225 | enddo ! mb |
224 | 226 | enddo ! nb |
225 | - write (*,*) ' TARGET Qs SPILLOVER : 1.d0-target_ratio, target_ratio ',1.d0-target_ratio, target_ratio | |
227 | + write (stdout,*) ' TARGET Qs SPILLOVER : 1.d0-target_ratio, target_ratio ',1.d0-target_ratio, target_ratio | |
226 | 228 | ! |
227 | 229 | fac = 1.2d0 |
228 | 230 | 99 continue |
@@ -252,7 +254,7 @@ subroutine init_us_0 | ||
252 | 254 | if (power_q(ijv,0).gt.eps8) ratio = min (ratio, power_qs(ijv,0)/power_q(ijv,0)) |
253 | 255 | end do |
254 | 256 | end do |
255 | - !WRITE (*,*) ' filter factor and power_qs/power_q ratio:', fac, ratio | |
257 | + !WRITE (stdout,*) ' filter factor and power_qs/power_q ratio:', fac, ratio | |
256 | 258 | ! |
257 | 259 | ! with a given fac the smoothed Qs qre built |
258 | 260 | ! |
@@ -301,17 +303,19 @@ subroutine init_us_0 | ||
301 | 303 | do l=0,lnb+lmb |
302 | 304 | power_rs (ijv,0) = power_rs (ijv,0) + power_rs (ijv,l+1) |
303 | 305 | end do |
304 | - !write (*, *) ' nb :', nb,lnb,' mb :',mb,lmb,' lmax :',lnb+lmb | |
305 | - !write (*,'(a,12f16.10)') 'power_rs',(power_rs(ijv,l+1), l=0,lnb+lmb) | |
306 | - !write (*,'(a,12f16.10)') 'power_qs',(power_qs(ijv,l+1), l=0,lnb+lmb) | |
307 | - !write (*,*) 'ratio ',1.d0-(power_rs(ijv,0)/power_qs(ijv,0)), 1.d0-(power_qs(ijv,0)/power_q (ijv,0)) | |
306 | + !write (stdout, *) ' nb :', nb,lnb,' mb :',mb,lmb,' lmax :',lnb+lmb | |
307 | + !write (stdout,'(a,12f16.10)') 'power_rs',(power_rs(ijv,l+1), l=0,lnb+lmb) | |
308 | + !write (stdout,'(a,12f16.10)') 'power_qs',(power_qs(ijv,l+1), l=0,lnb+lmb) | |
309 | + !write (stdout,*) 'ratio ',1.d0-(power_rs(ijv,0)/power_qs(ijv,0)), 1.d0-(power_qs(ijv,0)/power_q (ijv,0)) | |
308 | 310 | if (power_qs(ijv,0).gt.eps8) ratio_s = min (ratio_s, power_rs(ijv,0)/power_qs(ijv,0)) |
309 | 311 | enddo ! mb |
310 | 312 | enddo ! nb |
311 | 313 | |
312 | - WRITE (*,*) ' filter factor, 1.d0-power_rs/power_qs and power_qs/power_q ratio :', fac, 1.d0-ratio_s, ratio | |
314 | + WRITE (stdout,*) ' filter factor, 1.d0-power_rs/power_qs and power_qs/power_q ratio :', fac, 1.d0-ratio_s, ratio | |
313 | 315 | fac = fac -0.05d0 |
316 | +!sdg | |
314 | 317 | if (ratio .lt. target_ratio .and. (1.d0-ratio_s).lt. eps8) go to 99 |
318 | +! if (ratio .lt. target_ratio .and. (1.d0-ratio_s).lt. eps6) go to 99 | |
315 | 319 | fac = fac + 0.05d0 ! reset the last successful value of fac |
316 | 320 | |
317 | 321 | !- save the smoothed real space qs in qfuncl |