unused variables

628503fd · Matthias Redies · ec32f16a · 628503fd
Commit 628503fd authored Jan 10, 2019 by Matthias Redies
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 2 deletions

fleur_job.F90 main/fleur_job.F90 +1 -2

No files found.
--- a/main/fleur_job.F90
+++ b/main/fleur_job.F90
@@ -130,7 +130,6 @@ CONTAINS
    SUBROUTINE fleur_job_init()
      USE m_fleur_help
      use m_judft
-        INTEGER:: i
        INTEGER:: irank=0
 #ifdef CPP_MPI
      INCLUDE 'mpif.h'
@@ -162,7 +161,7 @@ CONTAINS
        TYPE(t_job),INTENT(IN) ::jobs(:)

        INTEGER:: njob=1
-        INTEGER:: irank=0,ierr
+        INTEGER:: irank=0

 #ifdef CPP_MPI
      INCLUDE 'mpif.h'