Lines Matching refs:jbas
472 do jbas=1,nbasis
480 tmpval=tmpval+exccoeff(iexcitorb)*cobasa(ibas,imo)*cobasa(jbas,jmo)
482 … tmpval2=tmpval2+exccoeff(iexcitorb)*cobasb(ibas,imo-nbasis)*cobasb(jbas,jmo-nbasis)
490 … if (excdir(iexcitorb)==1) tmpval=tmpval+exccoeff(iexcitorb)*cobasa(ibas,imo)*cobasa(jbas,jmo)
491 … if (excdir(iexcitorb)==2) tmpval=tmpval-exccoeff(iexcitorb)*cobasa(ibas,imo)*cobasa(jbas,jmo)
493 …(iexcitorb)==1) tmpval2=tmpval2+exccoeff(iexcitorb)*cobasb(ibas,imo-nbasis)*cobasb(jbas,jmo-nbasis)
494 …(iexcitorb)==2) tmpval2=tmpval2-exccoeff(iexcitorb)*cobasb(ibas,imo-nbasis)*cobasb(jbas,jmo-nbasis)
498 tdmata(ibas,jbas)=tmpval
499 if (wfntype==1.or.wfntype==4) tdmatb(ibas,jbas)=tmpval2
558 do jbas=ibas,nbasis
559 tdmata(ibas,jbas)=(tdmata(ibas,jbas)+tdmata(jbas,ibas))/dsqrt(2D0)
560 tdmata(jbas,ibas)=tdmata(ibas,jbas)
562 tdmatb(ibas,jbas)=(tdmatb(ibas,jbas)+tdmatb(jbas,ibas))/dsqrt(2D0)
563 tdmatb(jbas,ibas)=tdmatb(ibas,jbas)
641 do jbas=1,nbasis
642 if (ibas==jbas) then
643 bastrdip(:,ibas)=bastrdip(:,ibas)+trdipmatbas(:,ibas,jbas)
645 … bastrdip(:,ibas)=bastrdip(:,ibas)+(trdipmatbas(:,ibas,jbas)+trdipmatbas(:,jbas,ibas))/2
696 do jbas=1,nbasis
697 if (ibas==jbas) then
698 bastrpopa(ibas)=bastrpopa(ibas)+tdmata(ibas,jbas)*Sbas(ibas,jbas)
699 … if (wfntype==1.or.wfntype==4) bastrpopb(ibas)=bastrpopb(ibas)+tdmatb(ibas,jbas)*Sbas(ibas,jbas)
701 … bastrpopa(ibas)=bastrpopa(ibas)+(tdmata(ibas,jbas)+tdmata(jbas,ibas))*Sbas(ibas,jbas)/2
702 …wfntype==4) bastrpopb(ibas)=bastrpopb(ibas)+(tdmatb(ibas,jbas)+tdmatb(jbas,ibas))*Sbas(ibas,jbas)/2
2445 do jbas=basstart(jatm),basend(jatm)
2446 tdmatatm(iatm,jatm)=tdmatatm(iatm,jatm)+tdmatbas(ibas,jbas)**2