[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:
This commit is contained in:
Albert Cheng 2005-09-30 17:26:15 -05:00
parent 41c595e269
commit 56bc9fad04

View File

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