Commit e64c5a04 authored by Marie bernadette Lepetit's avatar Marie bernadette Lepetit
Browse files

correction erreur introduite dans code genere

parent 5862f8bc
Pipeline #11148 passed with stage
in 25 minutes and 30 seconds
......@@ -147,7 +147,7 @@ contains
end do
deallocate(andIJ)
deallocate(spinandIJ)
elm = sign_act * psign * (1 - 2*modulo((Nh_I**Ndiffact_I + Nh_J*Ndiffact_J),2)) * &
elm = sign_act * psign * (1 - 2*modulo((Nh_I*Ndiffact_I + Nh_J*Ndiffact_J),2)) * &
tsign * JK
do m = 1, nvec
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment