1
1
This commit was SVN r2516.
Этот коммит содержится в:
Weikuan Yu 2004-09-05 05:18:53 +00:00
родитель 922be78dd5
Коммит 38095191eb

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;
}