Commit 73a63075 authored by Matthias Redies's avatar Matthias Redies

moved them into the ifdefs

parent 628503fd
...@@ -133,7 +133,7 @@ CONTAINS ...@@ -133,7 +133,7 @@ CONTAINS
INTEGER:: irank=0 INTEGER:: irank=0
#ifdef CPP_MPI #ifdef CPP_MPI
INCLUDE 'mpif.h' INCLUDE 'mpif.h'
INTEGER ierr(3) INTEGER ierr(3), i
CALL MPI_INIT_THREAD(MPI_THREAD_SERIALIZED,i,ierr) CALL MPI_INIT_THREAD(MPI_THREAD_SERIALIZED,i,ierr)
CALL MPI_COMM_RANK(MPI_COMM_WORLD,irank,ierr) CALL MPI_COMM_RANK(MPI_COMM_WORLD,irank,ierr)
IF(irank.EQ.0) THEN IF(irank.EQ.0) THEN
...@@ -164,6 +164,7 @@ CONTAINS ...@@ -164,6 +164,7 @@ CONTAINS
INTEGER:: irank=0 INTEGER:: irank=0
#ifdef CPP_MPI #ifdef CPP_MPI
INTEGER:: ierr
INCLUDE 'mpif.h' INCLUDE 'mpif.h'
CALL MPI_COMM_RANK(MPI_COMM_WORLD,irank,ierr) CALL MPI_COMM_RANK(MPI_COMM_WORLD,irank,ierr)
......
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