ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Update test

Просмотр исходного кода 
This commit was SVN r21987.
Этот коммит содержится в:
Ralph Castain 2009-09-22 00:55:02 +00:00
родитель 247977fe70
Коммит 82af6ee940
1 изменённых файлов: 4 добавлений и 5 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

9
orte/test/system/orte_nodename.c
Просмотреть файл

@ -19,7 +19,7 @@ int main(int argc, char* argv[])
char hostname[512]; char hostname[512];
pid_t pid; pid_t pid;
if (0 > (rc = orte_init(ORTE_NON_TOOL))) { if (0 > (rc = orte_init(ORTE_PROC_NON_MPI))) {
fprintf(stderr, "orte_nodename: couldn't init orte - error code %d\n", rc); fprintf(stderr, "orte_nodename: couldn't init orte - error code %d\n", rc);
return rc; return rc;
} }
@ -27,10 +27,9 @@ int main(int argc, char* argv[])
gethostname(hostname, 512); gethostname(hostname, 512);
pid = getpid(); pid = getpid();
printf("orte_nodename: Node %s %ld Name %s Pid %ld Local Rank: %ld Num_local_procs %ld\n", printf("orte_nodename: Node %s Name %s Pid %ld\n",
hostname, (long)orte_process_info.nodeid, ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), (long)pid, hostname, ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), (long)pid);
(long)orte_process_info.local_rank, (long)orte_process_info.num_local_procs);
orte_finalize(); orte_finalize();
return 0; return 0;
} }