mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-03-31 17:10:47 +08:00
[svn-r9475] Purpose:
New feature: support fortran DLL on windows. small bug fix. Description: 1. Need to add macro for some functions in order to make fortran DLL work. 2. One routine(verify) missed the special macro DEC FORTRAN needs. Added. Solution: Platforms tested: windows XP with MC VC6.0+Dec 6.6c. Linux 2.4 and h5committest not finished yet. Misc. update:
This commit is contained in:
parent
babfbc2f9d
commit
a457cd03e7
@ -29,8 +29,8 @@ char *h5_fixname(const char *base_name, hid_t fapl, char *fullname, size_t size)
|
||||
# define nh5_cleanup_c FNAME(h5_cleanup_c)
|
||||
#endif /* DF_CAPFNAMES */
|
||||
|
||||
H5_DLL int_f nh5_fixname_c
|
||||
H5_FCTESTDLL int_f nh5_fixname_c
|
||||
(_fcd base_name, int_f *base_namelen, hid_t_f *fapl, _fcd full_name, int_f *full_namelen);
|
||||
|
||||
H5_DLL int_f nh5_cleanup_c
|
||||
H5_FCTESTDLL int_f nh5_cleanup_c
|
||||
(_fcd base_name, int_f *base_namelen, hid_t_f *fapl);
|
||||
|
@ -32,6 +32,11 @@
|
||||
RETURN
|
||||
END SUBROUTINE check
|
||||
|
||||
|
||||
!This definition is needed for Windows DLLs
|
||||
!DEC$if defined(BUILD_HDF5_DLL)
|
||||
!DEC$attributes dllexport :: verify
|
||||
!DEC$endif
|
||||
SUBROUTINE verify(string,value,correct_value,total_error)
|
||||
CHARACTER(LEN=*) :: string
|
||||
INTEGER :: value, correct_value, total_error
|
||||
|
Loading…
x
Reference in New Issue
Block a user