Beispiel #1
0
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;
    }
}
Beispiel #2
0
void FORTRANIFY (shmem_info_get_name) (char *name)
{
    shmem_info_get_name (name);
}