251
251
write(*,*) 'after-creating g_rhs ...'
252
252
write(*,102)npol,nocc(1),nocc(2),
254
& nvirt(1),nvirt(2),scftyp,ndens
255
255
102 format('BEF pre-fock::npol=',i3,' nocc=(',i3,',',i3,') ',
256
256
& 'nclos=(',i3,',',i3,') ',
257
& 'nvirt=(',i3,',',i3,') scftyp=',a,')')
257
& 'nvirt=(',i3,',',i3,') scftyp=',a,',ndens=',i3,')')
259
259
call add_H10_hfine(g_rhs, ! out: ga_rhs(a,i)=ga_rhs(a,i)+H10(a,i)