diff options
| author | Albert Cheng <acheng@hdfgroup.org> | 2005-09-30 22:26:15 (GMT) |
|---|---|---|
| committer | Albert Cheng <acheng@hdfgroup.org> | 2005-09-30 22:26:15 (GMT) |
| commit | 56bc9fad04220cca0d5f9db0274a1e0868497a84 (patch) | |
| tree | 0d4b13bbf1b180e3da2ed9195e5e5f6f91dd9149 /fortran/examples/ph5example.f90 | |
| parent | 41c595e2693a2a434bfcaf45e8fcf76f8e0e456c (diff) | |
| download | hdf5-56bc9fad04220cca0d5f9db0274a1e0868497a84.zip hdf5-56bc9fad04220cca0d5f9db0274a1e0868497a84.tar.gz hdf5-56bc9fad04220cca0d5f9db0274a1e0868497a84.tar.bz2 | |
[svn-r11486] Purpose:
Bug fix.
Description:
mpich2 using f95 did not support function 'unlink'.
Removed the unlink call for now. Need a better solution.
Platforms tested:
heping using mpich and mpich2 versions of mpif90.
Misc. update:
Diffstat (limited to 'fortran/examples/ph5example.f90')
| -rw-r--r-- | fortran/examples/ph5example.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/examples/ph5example.f90 b/fortran/examples/ph5example.f90 index ae2906d..4f19268 100644 --- a/fortran/examples/ph5example.f90 +++ b/fortran/examples/ph5example.f90 @@ -116,7 +116,7 @@ CALL h5fclose_f(file_id, error) ! Attempt to remove the data file. Remove the line if the compiler ! does not support it. - CALL unlink(filename) + !CALL unlink(filename) ! ! Close FORTRAN interface |