PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-07-11 22:03:55 +02:00
Code Releases Activity

Fix reversed print of minimum PT2 in extrapolations

Browse Source
This commit is contained in:
Anthony Scemama 2023-05-10 12:22:56 +02:00
parent f314c5abc2
commit 20bed4f44a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/iterations/print_extrapolation.irp.f
View File

@ -25,7 +25,7 @@ subroutine print_extrapolated_energy
write(*,*) 'minimum PT2 ', 'Extrapolated energy' write(*,*) 'minimum PT2 ', 'Extrapolated energy'
write(*,*) '=========== ', '===================' write(*,*) '=========== ', '==================='
do k=2,N_iter_p do k=2,N_iter_p
write(*,'(F11.4,2X,F18.8)') pt2_iterations(1,k), extrapolated_energy(k,1) write(*,'(F11.4,2X,F18.8)') pt2_iterations(1,N_iter_p+1-k), extrapolated_energy(k,1)
enddo enddo
write(*,*) '=========== ', '===================' write(*,*) '=========== ', '==================='