Skip to content

GitLab

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
Show whitespace changes
Inline Side-by-side
src/fock.F90
View file @ 63d12423
......@@ -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 i=ng+1,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