diff options
Diffstat (limited to 'fortran/src/H5f90kit.c')
| -rw-r--r-- | fortran/src/H5f90kit.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/fortran/src/H5f90kit.c b/fortran/src/H5f90kit.c index dc2fa19..5129bda 100644 --- a/fortran/src/H5f90kit.c +++ b/fortran/src/H5f90kit.c @@ -50,15 +50,15 @@ HD5f2cstring(_fcd fdesc, size_t len) /* Search for the end of the string */ str = _fcdtocp(fdesc); - for (i = (int)len - 1; i >= 0 && HDisspace((int)str[i]) && str[i] == ' '; i--) + for (i = (int)len - 1; i >= 0 && isspace((int)str[i]) && str[i] == ' '; i--) /*EMPTY*/; /* Allocate C string */ - if (NULL == (cstr = (char *)HDmalloc((size_t)(i + 2)))) + if (NULL == (cstr = (char *)malloc((size_t)(i + 2)))) return NULL; /* Copy text from FORTRAN to C string */ - HDmemcpy(cstr, str, (size_t)(i + 1)); + memcpy(cstr, str, (size_t)(i + 1)); /* Terminate C string */ cstr[i + 1] = '\0'; @@ -90,14 +90,14 @@ void HD5packFstring(char *src, char *dest, size_t dst_len) /******/ { - size_t src_len = HDstrlen(src); + size_t src_len = strlen(src); /* Copy over the string information, up to the length of the src */ /* (Don't copy the NUL terminator from the C string to the FORTRAN string */ - HDmemcpy(dest, src, MIN(src_len, dst_len)); + memcpy(dest, src, MIN(src_len, dst_len)); /* Pad out any remaining space in the FORTRAN string with ' 's */ if (src_len < dst_len) - HDmemset(&dest[src_len], ' ', dst_len - src_len); + memset(&dest[src_len], ' ', dst_len - src_len); } /* HD5packFstring */ |