mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-04-06 17:20:42 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r2775]

Browse Source 
Purpose:
    Bug fix.
Description:
    When the number of processors is wrong (should be a factor
    of dataset dimensions for this test) , test hangs because
    of wrong logic in the if-then-endif statement.
Solution:
    Fixed the logic.
Platforms tested:
    modi4 (O2K)
This commit is contained in:
Elena Pourmal 2000-10-31 13:04:24 -05:00
parent 0a6cfff27d
commit c5c4b42e79
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fortran/testpar/ptesthdf5_fortran.f90
View File

@ -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