diff options
| -rw-r--r-- | fortran/testpar/ptesthdf5_fortran.f90 | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fortran/testpar/ptesthdf5_fortran.f90 b/fortran/testpar/ptesthdf5_fortran.f90 index fb575ff..9c833ba 100644 --- a/fortran/testpar/ptesthdf5_fortran.f90 +++ b/fortran/testpar/ptesthdf5_fortran.f90 @@ -26,10 +26,11 @@ ! if ( (mod(DIM1, mpi_size) .ne. 0) .or. (mod(DIM2, mpi_size) .ne. 0)) then if (mpi_rank .eq. 0) then - write(*,*) "Dimensions must be mupltiples of # of processors" + write(*,*) "Number of processors is", mpi_size + write(*,*) "It must be a factor of ", DIM1, " and ", DIM2 write(*,*) "Exiting..." - goto 1000 endif + goto 1000 endif ! ! Initialize FORTRAN predefined datatypes |