[Pw_forum] GIPAW: error in output
Carlo Nervi
carlo.nervi at unito.it
Tue Oct 25 19:05:45 CEST 2011
Okay,
thanks again.
addr2line -e /home/nervi/src/QE432/espresso-4.3.2/GIPAW/src/gipaw.x 0x44e576
/home/nervi/src/QE432/espresso-4.3.2/qe-gipaw-4.3.2/src/cgsolve_all.f90:225
It should be the line with dclamda (see below) - no idea how to furter
help the developers ;-)
Carlo
#ifdef __PARA
call mp_sum( a(1:lbnd), intra_pool_comm )
call mp_sum( c(1:lbnd), intra_pool_comm )
#endif
lbnd=0
do ibnd = 1, nbnd
if (conv (ibnd) .eq.0) then
lbnd=lbnd+1
dclambda = CMPLX( - a(lbnd) / c(lbnd), 0.d0,kind=DP)
!
! move to new position
!
call zaxpy (ndmx*npol, dclambda, h(1,ibnd), 1, dpsi(1,ibnd), 1)
!
! update to get the gradient
!
!g=g+lam
call zaxpy (ndmx*npol, dclambda, t(1,lbnd), 1, g(1,ibnd), 1)
!
! save current (now old) h and rho for later use
!
call zcopy (ndmx*npol, h(1,ibnd), 1, hold(1,ibnd), 1)
rhoold (ibnd) = rho (ibnd)
endif
enddo
--
------------------------------------------------------
Carlo Nervi carlo.nervi at unito.it Tel:+39 011 6707507/8
Fax: +39 011 6707855 - Dipartimento di Chimica IFM
via P. Giuria 7, 10125 Torino, Italy
http://lem.ch.unito.it/
More information about the users
mailing list