Commit 714f713e authored by Marie bernadette Lepetit's avatar Marie bernadette Lepetit
Browse files

derniere correction etait une erreur : remise en l'etat

parent 63d12423
Pipeline #13549 passed with stage
in 23 minutes and 9 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 j=i,ng+no+na+nv
do i=ng+1,ng+no+na+nv
do i=ng+1,ng+no+na+nv
do j=i,ng+no+na+nv
write(f_fock,*) i,j,fock(i,j)
enddo
enddo
......
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