more cleanup

This commit is contained in:
Pierre-Francois Loos 2023-07-28 15:01:14 +02:00
parent 49fedf3307
commit 54adecd2a5
3 changed files with 3 additions and 9 deletions

View File

@ -64,6 +64,4 @@ subroutine print_UG0T0(nBas,nO,eHF,ENuc,EUHF,SigT,Z,eGT,EcGM,EcRPA)
write(*,*)'-------------------------------------------------------------------------------'
write(*,*)
end subroutine print_UG0T0
end subroutine

View File

@ -74,6 +74,4 @@ subroutine print_evUGT(nBas,nO,nSCF,Conv,eHF,ENuc,EUHF,SigT,Z,eGT,EcGM,EcRPA)
write(*,*)'-------------------------------------------------------------------------------'
write(*,*)
end subroutine print_evUGT
end subroutine

View File

@ -79,6 +79,4 @@ write(*,'(2X,A50,F15.6,A3)') 'ppRPA@qsGT correlation energy:',sum(EcRPA(:)),' au
write(*,*)'-------------------------------------------'
write(*,*)
end subroutine print_qsUGT
end subroutine