88 строки
2.1 KiB
C
88 строки
2.1 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University.
|
|
* All rights reserved.
|
|
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
|
|
* All rights reserved.
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
* University of Stuttgart. All rights reserved.
|
|
* Copyright (c) 2004-2005 The Regents of the University of California.
|
|
* All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "ompi_config.h"
|
|
#include <unistd.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <stdarg.h>
|
|
#include <string.h>
|
|
#include <sys/param.h>
|
|
#include <fcntl.h>
|
|
#include <sys/types.h>
|
|
#include <sys/time.h>
|
|
|
|
#include <elan/elan.h>
|
|
#include <elan/capability.h>
|
|
#include <qsnet/fence.h>
|
|
|
|
#include <elan4/library.h>
|
|
#define USE_BASEINIT 0
|
|
#define USE_ELANINIT (1-USE_BASEINIT)
|
|
|
|
ELAN_LOCATION location;
|
|
ELAN_CAPABILITY Cap;
|
|
ELAN4_CTX *ctx = NULL;
|
|
ELAN4_SDRAM *sdram = NULL;
|
|
ELAN4_ALLOC *alloc = NULL;
|
|
ELAN4_COOKIEPOOL *cpool = NULL;
|
|
ELAN_BASE *elan_base;
|
|
|
|
int i, self;
|
|
int nproc;
|
|
|
|
int
|
|
main (int argc, char *argv[])
|
|
{
|
|
#if USE_BASEINIT
|
|
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);
|
|
#elif USE_ELANINIT
|
|
elan_base = (ELAN_BASE*) malloc(sizeof(ELAN_BASE));
|
|
if (!(elan_base->state = elan_init(0))) {
|
|
perror( "elan_init() failed" );
|
|
exit(1);
|
|
}
|
|
|
|
for (i = 0; i < 1; i++) {
|
|
ELAN_STATE *elan_state;
|
|
ELAN_CAPABILITY *cap;
|
|
ELAN_LOCATION loc;
|
|
|
|
elan_state = elan_base->state;
|
|
ctx = elan_state->ctx;
|
|
cap = elan_state->cap;
|
|
|
|
if (elan4_add_p2pvp (ctx, i, cap) < 0)
|
|
fprintf(stderr, "elan_init() failed" );
|
|
elan4_block_inputter (ctx, 1);
|
|
if (elan4_attach (ctx, cap))
|
|
fprintf(stderr, "elan4_attach() failed" );
|
|
}
|
|
|
|
nproc = elan_base->state->nvp;
|
|
self = elan_base->state->vp;
|
|
#endif
|
|
return 0;
|
|
}
|
|
|