Skip to content

fleur
fleur
Commit 628503fd authored by Matthias Redies's avatar Matthias Redies
Browse files
Options

unused variables

parent ec32f16a
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 2 deletions
main/fleur_job.F90
View file @ 628503fd
......@@ -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'
......
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