From 54adecd2a5f6417f206ce53555e9a53443e160ac Mon Sep 17 00:00:00 2001 From: Pierre-Francois Loos Date: Fri, 28 Jul 2023 15:01:14 +0200 Subject: [PATCH] more cleanup --- src/GT/print_UG0T0.f90 | 4 +--- src/GT/print_evUGT.f90 | 4 +--- src/GT/print_qsUGT.f90 | 4 +--- 3 files changed, 3 insertions(+), 9 deletions(-) diff --git a/src/GT/print_UG0T0.f90 b/src/GT/print_UG0T0.f90 index b777d9e..19df30c 100644 --- a/src/GT/print_UG0T0.f90 +++ b/src/GT/print_UG0T0.f90 @@ -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 diff --git a/src/GT/print_evUGT.f90 b/src/GT/print_evUGT.f90 index 135566f..ba7c4c6 100644 --- a/src/GT/print_evUGT.f90 +++ b/src/GT/print_evUGT.f90 @@ -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 diff --git a/src/GT/print_qsUGT.f90 b/src/GT/print_qsUGT.f90 index 35f9423..919ecca 100644 --- a/src/GT/print_qsUGT.f90 +++ b/src/GT/print_qsUGT.f90 @@ -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