Lines Matching refs:jbas
696 do jbas=basstart(jatm)+1,basend(jatm)
697 if (all(jcenshname(1:numjcensh)/=NAOshtype(jbas))) then
699 jcenshname(numjcensh)=NAOshtype(jbas)
713 do jbas=basstart(jatm),basend(jatm)
715 if (NAOshtype(jbas)==jcenshname(jsh)) exit
717 contri=DMNAO(ibas,jbas)**2
722 jbas,NAOcen(jbas),NAOcenname(jbas),NAOtype(jbas),NAOshtype(jbas),NAOlang(jbas)
1117 do jbas=1,nbasis
1118 … Ptottmp(ibas,jbas)=Ptottmp(ibas,jbas)-MOocc(imo)*CObasa(ibas,imo)*CObasa(jbas,imo)
1154 do jbas=1,nbasis
1155 … Palphatmp(ibas,jbas)=Palphatmp(ibas,jbas)-MOocc(imo)*CObasa(ibas,imo)*CObasa(jbas,imo)
1160 do jbas=1,nbasis
1161 … Pbetatmp(ibas,jbas)=Pbetatmp(ibas,jbas)-MOocc(imo)*CObasb(ibas,imo-nbasis)*CObasb(jbas,imo-nbasis)
1168 do jbas=1,nbasis
1169 … Palphatmp(ibas,jbas)=Palphatmp(ibas,jbas)-1D0*CObasa(ibas,imo)*CObasa(jbas,imo)
1170 …Pbetatmp(ibas,jbas)=Pbetatmp(ibas,jbas)-1D0*CObasa(ibas,imo)*CObasa(jbas,imo) !For ROHF, Cobasb==C…
1175 do jbas=1,nbasis
1176 … Palphatmp(ibas,jbas)=Palphatmp(ibas,jbas)-1D0*CObasa(ibas,imo)*CObasa(jbas,imo)