Searched refs:ncvs_fi (Results 1 – 2 of 2) sorted by relevance
/dports/science/berkeleygw/BGW-2.0.0/BSE/ |
H A D | diag.f90 | 63 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 D | haydock.f90 | 60 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))
|