Tempc = 0.0d0
Tempk = 0.0d0
do k = FCstar+1,Nocc
do l = FCstar+1,Nocc
do a = Nocc+1,Nbas
do b = Nocc+1,Nbas
Temp = (En(k)+En(l)-En(a)-En(b))
Tempc = Tempc + g_Mo(EI(b,l),EI(a,k))*g_Mo(EI(l,b),EI(k,a))/Temp
Tempk = Tempk + g_Mo(EI(b,l),EI(a,k))*g_Mo(EI(l,a),EI(k,b))/Temp
end do
end do
end do
end do