diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2001-06-21 15:25:07 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2001-06-21 15:25:07 (GMT) |
| commit | 697b533b9c074febb30f3aeea66a0391e61e11a1 (patch) | |
| tree | a1b04a95f1144406c871eac446f324bcac58676b /fortran/src/H5_ff.f90 | |
| parent | 93d04204ae6f44812051930a02ced33c3661ce89 (diff) | |
| download | hdf5-697b533b9c074febb30f3aeea66a0391e61e11a1.zip hdf5-697b533b9c074febb30f3aeea66a0391e61e11a1.tar.gz hdf5-697b533b9c074febb30f3aeea66a0391e61e11a1.tar.bz2 | |
[svn-r4033]
Purpose:
DEC UNIX port
Description:
Windows port caused problems on DEC UNIX.
Names of C functions called from F90 subroutines were converted
to UPPER case while DEC UNIX expected them to be in lower case.
Solution:
Added special DEC compiler directives to avoid the conflict on two
systems
Platforms tested:
Windows98, DEC UNIX, Linux
Diffstat (limited to 'fortran/src/H5_ff.f90')
| -rw-r--r-- | fortran/src/H5_ff.f90 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/fortran/src/H5_ff.f90 b/fortran/src/H5_ff.f90 index 642bf40..dc1372f 100644 --- a/fortran/src/H5_ff.f90 +++ b/fortran/src/H5_ff.f90 @@ -42,7 +42,9 @@ ! INTERFACE INTEGER FUNCTION h5open_c() + !DEC$ IF DEFINED(HDF5F90_WINDOWS) !MS$ATTRIBUTES C,reference,alias:'_H5OPEN_C'::h5open_c + !DEC$ ENDIF END FUNCTION h5open_c END INTERFACE INTERFACE @@ -51,7 +53,9 @@ INTEGER(HID_T), DIMENSION(PREDEF_TYPES_LEN) :: p_types INTEGER(HID_T), DIMENSION(FLOATING_TYPES_LEN) :: f_types INTEGER(HID_T), DIMENSION(INTEGER_TYPES_LEN) :: i_types + !DEC$ IF DEFINED(HDF5F90_WINDOWS) !MS$ATTRIBUTES C,reference,alias:'_H5INIT_TYPES_C'::h5init_types_c + !DEC$ ENDIF END FUNCTION h5init_types_c END INTERFACE INTERFACE @@ -77,7 +81,9 @@ INTEGER i_H5S_flags(H5S_FLAGS_LEN) INTEGER i_H5T_flags(H5T_FLAGS_LEN) + !DEC$ IF DEFINED(HDF5F90_WINDOWS) !MS$ATTRIBUTES C,reference,alias:'_H5INIT_FLAGS_C'::h5init_flags_c + !DEC$ ENDIF END FUNCTION h5init_flags_c END INTERFACE error_0 = h5open_c() @@ -134,7 +140,9 @@ ! INTEGER, EXTERNAL :: h5close_types_c, h5close_c INTERFACE INTEGER FUNCTION h5close_c() + !DEC$ IF DEFINED(HDF5F90_WINDOWS) !MS$ATTRIBUTES C,reference,alias:'_H5CLOSE_C'::h5close_c + !DEC$ ENDIF END FUNCTION h5close_c END INTERFACE INTERFACE @@ -148,7 +156,9 @@ INTEGER(HID_T), DIMENSION(P_TYPES_LEN) :: p_types INTEGER(HID_T), DIMENSION(F_TYPES_LEN) :: f_types INTEGER(HID_T), DIMENSION(I_TYPES_LEN) :: i_types + !DEC$ IF DEFINED(HDF5F90_WINDOWS) !MS$ATTRIBUTES C,reference,alias:'_H5CLOSE_TYPES_C'::h5close_types_c + !DEC$ ENDIF END FUNCTION h5close_types_c END INTERFACE error_1 = h5close_types_c(predef_types, PREDEF_TYPES_LEN, & |