Lines Matching refs:ibnd
91 integer :: iter, ibnd, ibnd_, lbnd local
152 do ibnd = 1, nbnd
153 indb(ibnd) = ibnd
162 do ibnd = n_start, n_end
163 euc(ibnd) = CMPLX(e(indb(ibnd))+DREAL(freq_c), DIMAG(freq_c), KIND=DP)
168 do ibnd = n_start, n_end ; ibnd_ = ibnd - n_start + 1
169 call zaxpy (ndim, (-1.d0,0.d0), d0psi(1,ibnd), 1, g(1,ibnd_), 1)
172 do ibnd = n_start, n_end ; ibnd_ = ibnd - n_start + 1
173 call zaxpy (ndim, (-1.d0,0.d0), d0psi(ndmx+1,ibnd), 1, g(ndmx+1,ibnd_), 1)
182 do ibnd = n_start, n_end ; ibnd_ = ibnd - n_start + 1
183 if (conv (ibnd) .eq.0) then
188 call ccg_psi(ndmx, ndim, 1, h(1,ibnd_), h_diag(1,ibnd), 1 )
189 call ccg_psi(ndmx, ndim, 1, hs(1,ibnd_), h_diag(1,ibnd), -1 )
204 do ibnd = n_end, n_start, -1 ; ibnd_ = ibnd - n_start + 1
205 if (conv(ibnd).eq.0) then
209 if (anorm.lt.ethr) conv (ibnd) = 1
214 do ibnd = n_start, n_end
215 conv_root = conv_root.and. (conv (ibnd) .eq.1)
222 do ibnd = n_start, n_end ; ibnd_ = ibnd - n_start + 1
223 if (conv (ibnd) .eq.0) then
247 indb (lbnd) = ibnd
255 DO ibnd=1,lbnd
256 euc(ibnd) = CMPLX(e(indb(ibnd))+DREAL(freq_c), DIMAG(freq_c), KIND=DP)
269 do ibnd = n_start, n_end ; ibnd_ = ibnd - n_start + 1
270 if (conv (ibnd) .eq.0) then
295 do ibnd = n_start, n_end ; ibnd_ = ibnd - n_start + 1
296 if (conv (ibnd) .eq.0) then
304 call zaxpy (ndmx*npol, dclambda, h(1,ibnd_), 1, dpsi(1,ibnd), 1)
336 do ibnd = 1, nbnd
337 conv_root = conv_root.and. (conv (ibnd) .eq.1)