diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2010-01-30 04:33:04 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2010-01-30 04:33:04 (GMT) |
| commit | fa1f33701da4489a4626a057844fa799878feddf (patch) | |
| tree | bfb0efbe3f126b46fbf0bf9bd8516bf1076ab8a4 /fortran/testpar/ptest.f90 | |
| parent | e3c80277440ec153a180ef89f7867bdedb51b87a (diff) | |
| download | hdf5-fa1f33701da4489a4626a057844fa799878feddf.zip hdf5-fa1f33701da4489a4626a057844fa799878feddf.tar.gz hdf5-fa1f33701da4489a4626a057844fa799878feddf.tar.bz2 | |
[svn-r18198] Description:
Trim trailing whitespace from source code files, with following command:
find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//'
Tested on:
None - eyeballed only
Diffstat (limited to 'fortran/testpar/ptest.f90')
| -rw-r--r-- | fortran/testpar/ptest.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/fortran/testpar/ptest.f90 b/fortran/testpar/ptest.f90 index 6f6fb2e..e474668 100644 --- a/fortran/testpar/ptest.f90 +++ b/fortran/testpar/ptest.f90 @@ -1,4 +1,4 @@ -! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! Copyright by The HDF Group. * ! Copyright by the Board of Trustees of the University of Illinois. * ! All rights reserved. * @@ -11,7 +11,7 @@ ! is linked from the top-level documents page. It can also be found at * ! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have * ! access to either file, you may request a copy from help@hdfgroup.org. * -! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * !////////////////////////////////////////////////////////// ! main program for parallel HDF5 Fortran tests @@ -27,8 +27,8 @@ PROGRAM parallel_test LOGICAL :: do_collective ! use collective MPI I/O LOGICAL :: do_chunk ! use chunking INTEGER :: nerrors = 0 ! number of errors - INTEGER :: mpi_size ! number of processes in the group of communicator - INTEGER :: mpi_rank ! rank of the calling process in the communicator + INTEGER :: mpi_size ! number of processes in the group of communicator + INTEGER :: mpi_rank ! rank of the calling process in the communicator INTEGER :: length = 12000 ! length of array !////////////////////////////////////////////////////////// @@ -115,20 +115,20 @@ PROGRAM parallel_test !////////////////////////////////////////////////////////// IF (nerrors == 0) THEN - CALL mpi_finalize(mpierror) + CALL mpi_finalize(mpierror) IF (mpierror .NE. MPI_SUCCESS) THEN WRITE(*,*) "MPI_FINALIZE *FAILED* Process = ", mpi_rank ENDIF ELSE WRITE(*,*) 'Errors detected in process ', mpi_rank - CALL mpi_abort(MPI_COMM_WORLD, 1, mpierror) + CALL mpi_abort(MPI_COMM_WORLD, 1, mpierror) IF (mpierror .NE. MPI_SUCCESS) THEN WRITE(*,*) "MPI_ABORT *FAILED* Process = ", mpi_rank ENDIF ENDIF !////////////////////////////////////////////////////////// - ! end main program + ! end main program !////////////////////////////////////////////////////////// END PROGRAM parallel_test |