mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-07 16:37:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r17087] Description:

Browse Source 
changed LEN to LEN_TRIM

tested: smirom
This commit is contained in:
Scot Breitenfeld 2009-06-18 15:08:44 -05:00
parent b417362702
commit 575467d324
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fortran/src/H5Fff.f90
View File

@ -91,7 +91,8 @@
if (present(creation_prp)) creation_prp_default = creation_prp
if (present(access_prp)) access_prp_default = access_prp
namelen = LEN(name)
namelen = LEN_TRIM(name)
hdferr = h5fcreate_c(name, namelen, access_flags, &
creation_prp_default, access_prp_default, file_id)