void FORTRANIFY (shmem_info_get_name) (char *name) { int len; const int max_f_len = _SHMEM_MAX_NAME_LEN - 1; /* get the C string */ shmem_info_get_name (name); /* pad with spaces for Fortran (TODO: memset better?) */ len = strlen (name); while (len < max_f_len) { name[len] = ' '; len += 1; } }
void FORTRANIFY (shmem_info_get_name) (char *name) { shmem_info_get_name (name); }