Commit 628503fd authored by Matthias Redies's avatar Matthias Redies

unused variables

parent ec32f16a
...@@ -130,7 +130,6 @@ CONTAINS ...@@ -130,7 +130,6 @@ CONTAINS
SUBROUTINE fleur_job_init() SUBROUTINE fleur_job_init()
USE m_fleur_help USE m_fleur_help
use m_judft use m_judft
INTEGER:: i
INTEGER:: irank=0 INTEGER:: irank=0
#ifdef CPP_MPI #ifdef CPP_MPI
INCLUDE 'mpif.h' INCLUDE 'mpif.h'
...@@ -162,7 +161,7 @@ CONTAINS ...@@ -162,7 +161,7 @@ CONTAINS
TYPE(t_job),INTENT(IN) ::jobs(:) TYPE(t_job),INTENT(IN) ::jobs(:)
INTEGER:: njob=1 INTEGER:: njob=1
INTEGER:: irank=0,ierr INTEGER:: irank=0
#ifdef CPP_MPI #ifdef CPP_MPI
INCLUDE 'mpif.h' INCLUDE 'mpif.h'
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment