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