Lines Matching refs:jbas
357 do jbas=1,nbasis
358 if (jbas==ibas) cycle
359 crossij=tmpmat(ibas,irealmo)*tmpmat(jbas,irealmo)*Sbas(ibas,jbas)
360 if (any(frag1==jbas)) then
365 tmpdenom=tmpmat(ibas,irealmo)**2+tmpmat(jbas,irealmo)**2
370 if (allocated(frag2).and.any(frag2==jbas)) then
375 tmpdenom=tmpmat(ibas,irealmo)**2+tmpmat(jbas,irealmo)**2
451 do jbas=1,nbasis
452 if (jbas==ibas) cycle
454 … bascross(ibas)=bascross(ibas)+tmpmat(ibas,ishowmo)*tmpmat(jbas,ishowmo)*Sbas(ibas,jbas)
457 tmp=tmpmat(ibas,ishowmo)**2+tmpmat(jbas,ishowmo)**2
458 …cross(ibas)+tmpmat(ibas,ishowmo)**2/tmp*2*tmpmat(ibas,ishowmo)*tmpmat(jbas,ishowmo)*Sbas(ibas,jbas)