fixed bug for when petsc is not defined

2014-10-10 16:02:42 +00:00 · 2014-10-10 16:02:42 +00:00 · 76f5495038
parent eacb048c83
commit 76f5495038
1 changed files with 1 additions and 1 deletions
--- a/code/IO.f90
+++ b/code/IO.f90
@ -104,7 +104,7 @@ subroutine IO_init
 use, intrinsic :: iso_fortran_env                                                                  ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
 
 implicit none
- integer(pInt) :: worldrank
+ integer(pInt) :: worldrank == 0_pInt
 #ifdef PETSc
 #include <finclude/petscsys.h>
 PetscErrorCode :: ierr