add a new init test
This commit was SVN r2516.
Этот коммит содержится в:
родитель
922be78dd5
Коммит
38095191eb
37
src/mca/ptl/elan/tests/init_elan.c
Обычный файл
37
src/mca/ptl/elan/tests/init_elan.c
Обычный файл
@ -0,0 +1,37 @@
|
||||
#include <unistd.h>
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <stdarg.h>
|
||||
#include <string.h>
|
||||
#include <sys/param.h>
|
||||
#include <sys/fcntl.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/time.h>
|
||||
#include <elan/elan.h>
|
||||
#include <elan/capability.h>
|
||||
#include <qsnet/fence.h>
|
||||
|
||||
#define USE_BASEINIT 1
|
||||
|
||||
int self;
|
||||
int nproc;
|
||||
|
||||
int
|
||||
main (int argc, char *argv[])
|
||||
{
|
||||
#if USE_BASEINIT
|
||||
ELAN_BASE *elan_base;
|
||||
if (!(elan_base = elan_baseInit(0))) {
|
||||
perror( "elan_baseInit() failed" );
|
||||
exit(1);
|
||||
}
|
||||
|
||||
nproc = elan_base->state->nvp;
|
||||
self = elan_base->state->vp;
|
||||
elan_gsync(elan_base->allGroup);
|
||||
#else
|
||||
|
||||
#endif
|
||||
return 0;
|
||||
}
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user