Commit 63d12423 authored by Marie bernadette Lepetit's avatar Marie bernadette Lepetit
Browse files

erreur ecriture op. Fock corrigee : ordre c-> fortran

parent a9d8948e
Pipeline #13546 passed with stage
in 23 minutes and 8 seconds
......@@ -142,8 +142,8 @@ contains
call intblock_free(ax)
if ((prog_info%id_cpu .eq. 0) .and. (prog_info%iprint .gt. 1)) then
do i=ng+1,ng+no+na+nv
do j=i,ng+no+na+nv
do j=i,ng+no+na+nv
do i=ng+1,ng+no+na+nv
write(f_fock,*) i,j,fock(i,j)
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