Home
last modified time | relevance | path

Searched refs:ncvs_fi (Results 1 – 2 of 2) sorted by relevance

/dports/science/berkeleygw/BGW-2.0.0/BSE/
H A Ddiag.f9063 integer :: ii,ipol,jj,ncount,nmat,ncvs_fi,pblock local
270 ncvs_fi = xct%ncb_fi*xct%nvb_fi*xct%nspin
272 peinf%block_sz = ncvs_fi
278 nmat = xct%nkpt_fi*ncvs_fi
412 SAFE_ALLOCATE(hbse_a, (xct%nkpt_fi*ncvs_fi, peinf%nblocks*peinf%block_sz))
415 SAFE_ALLOCATE(hbse_b, (xct%nkpt_fi*ncvs_fi, peinf%nblocks*peinf%block_sz))
607 write(666,'(2(i0,1x))') xct%nkpt_fi*ncvs_fi, peinf%nblocks*peinf%block_sz
608 write(667,'(2(i0,1x))') xct%nkpt_fi*ncvs_fi, peinf%nblocks*peinf%block_sz
H A Dhaydock.f9060 integer :: ii,jj,ncount,nmat,ncvs_fi local
178 ncvs_fi = xct%ncb_fi*xct%nvb_fi*xct%nspin
180 peinf%block_sz = ncvs_fi
186 nmat = xct%nkpt_fi*ncvs_fi
351 SAFE_ALLOCATE(hbse_a, (xct%nkpt_fi*ncvs_fi,peinf%nblocks*peinf%block_sz))