Searched refs:does_it_ownc (Results 1 – 4 of 4) sorted by relevance
/dports/science/berkeleygw/BGW-2.0.0/Common/ |
H A D | peinfo.f90 | 145 logical, pointer :: does_it_ownc(:,:) !< (band,node) does a particular node own a cond. band? component
|
/dports/science/berkeleygw/BGW-2.0.0/Epsilon/ |
H A D | genwf_eps.f90 | 145 does_it_own => peinf%does_it_ownc 348 if (peinf%does_it_ownc(ib, iproc+1)) then 640 if (should_send(peinf%does_it_ownc)) & 722 if ( peinf%does_it_ownc(ib-vwfn%nband,ipe+1) ) then
|
H A D | input.f90 | 901 SAFE_ALLOCATE(peinf%does_it_ownc,(cwfn%nband-vwfn%nband,peinf%npes)) 902 peinf%does_it_ownc=.false. 964 peinf%does_it_ownc(:,peinf%inode+1) = peinf%doiownc(:) 970 call MPI_Bcast(peinf%does_it_ownc(1,ipe+1), cwfn%nband-vwfn%nband,&
|
H A D | epsilon_main.f90 | 1410 SAFE_DEALLOCATE_P(peinf%does_it_ownc)
|