From 9bee7bdb2bc2b99c1089797a857b7c54f5124561 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Tue, 5 Jun 2001 16:24:50 -0500 Subject: [svn-r3961] Purpose: HPUX 11.00 port Description: Redundant "USE" statements triggered F90 compiler bug on HPUX 11.00 systems. Solution: Removed redundant "USE" statement as was recommended by HP people. This fix is different from the fix I applied to 1.5 branch. The branch does not have Windows port yet (I am waiting for DEC response on DLL bug). So I decided to make a minimum change to the source code at this point. Fix applied to 1.5 branch is more consistent but several other files have to be modified. When I finish Windows port all F90 files in this branch will be replaced anyway. Platforms tested: HPUX 11.00 (kelgia) --- fortran/src/H5Dff.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90 index 4fd234e..a733bc8 100644 --- a/fortran/src/H5Dff.f90 +++ b/fortran/src/H5Dff.f90 @@ -2,7 +2,7 @@ ! This file contains Fortran90 interfaces for H5D functions. ! MODULE H5D - USE H5GLOBAL +! USE H5GLOBAL USE H5R INTERFACE h5dwrite_f -- cgit v0.12