Lines Matching refs:jbas

2705             do jbas=1,nbasis
2706                 if (jbas==ibas) cycle
2707                 compos=compos+CObasa(ibas,imo)*CObasa(jbas,imo)*Sbas(ibas,jbas)
2720                 do jbas=1,nbasis
2721                     if (jbas==ibas) cycle
2722                     compos=compos+CObasb(ibas,imo-nbasis)*CObasb(jbas,imo-nbasis)*Sbas(ibas,jbas)
2929             do jbas=1,nbasis
2930                 compdonor=compdonor+CObasa(ibas,imo)*CObasa(jbas,imo)*Sbas(ibas,jbas)
2938             do jbas=1,nbasis
2939                 compbridge=compbridge+CObasa(ibas,imo)*CObasa(jbas,imo)*Sbas(ibas,jbas)
2947             do jbas=1,nbasis
2948                 compacceptor=compacceptor+CObasa(ibas,imo)*CObasa(jbas,imo)*Sbas(ibas,jbas)
3015                     do jbas=1,nbasis
3016 …q12_1=q12_1+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Sbas(ibas,jbas)
3025                     do jbas=1,nbasis
3026 …q12_2=q12_2+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Sbas(ibas,jbas)
3042                 do jbas=1,nbasis
3043                     miu1(:)=miu1(:)+CObasa(ibas,imo)*CObasa(jbas,imo)*Dbas(:,ibas,jbas)
3044                     miu2(:)=miu2(:)+CObasa(ibas,jmo)*CObasa(jbas,jmo)*Dbas(:,ibas,jbas)
3045 …miu12(:)=miu12(:)+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Dbas(:,i…
3096                         do jbas=1,nbasis
3097 …q12_1=q12_1+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Sbas(ibas,jbas)
3106                         do jbas=1,nbasis
3107 …q12_2=q12_2+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Sbas(ibas,jbas)
3123                     do jbas=1,nbasis
3124                         miu1(:)=miu1(:)+CObasa(ibas,imo)*CObasa(jbas,imo)*Dbas(:,ibas,jbas)
3125                         miu2(:)=miu2(:)+CObasa(ibas,jmo)*CObasa(jbas,jmo)*Dbas(:,ibas,jbas)
3126 …miu12(:)=miu12(:)+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Dbas(:,i…
3176                         do jbas=1,nbasis
3177 …q12_1=q12_1+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Sbas(ibas,jbas)
3186                         do jbas=1,nbasis
3187 …q12_2=q12_2+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Sbas(ibas,jbas)
3203                     do jbas=1,nbasis
3204                         miu1(:)=miu1(:)+CObasa(ibas,imo)*CObasa(jbas,imo)*Dbas(:,ibas,jbas)
3205                         miu2(:)=miu2(:)+CObasa(ibas,jmo)*CObasa(jbas,jmo)*Dbas(:,ibas,jbas)
3206 …miu12(:)=miu12(:)+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Dbas(:,i…