Ignore that. Their version is ok. The one I have looks like it is out of date. Just tested theirs with trunk.
-Nathan On Fri, Jul 11, 2014 at 11:27:42AM -0600, Nathan Hjelm wrote: > > Hmm, looks like the varlist fixes I provided to LLNL haven't made it > into their git repo. Use the attached version with 1.8.2. > > -Nathan > > On Fri, Jul 11, 2014 at 05:04:07PM +0000, Gallardo, Esthela wrote: > > Hi Nathan, > > > > Where can I access the 1.8.2 tarball? I'm not sure if you meant to include > > it as an attachment. If so, then it did not go through. > > > > Thank you, > > > > Esthela Gallardo > > ________________________________________ > > From: users <users-boun...@open-mpi.org> on behalf of Nathan Hjelm > > <hje...@lanl.gov> > > Sent: Friday, July 11, 2014 10:50 AM > > To: Open MPI Users > > Subject: Re: [OMPI users] MPI_T Control Variables > > > > Can you try with a 1.8.2 nightly tarball or the trunk? I fixed a couple > > of bugs that varlist discovered (also found some in varlist). > > > > -Nathan Hjelm > > HPC-5, LANL > > > > On Fri, Jul 11, 2014 at 04:42:01PM +0000, Gallardo, Esthela wrote: > > > Hi, > > > > > > I am new to the MPI_T interface, and was trying to run an applications > > > developed by LLNL which queries and lists the values of the control > > > variables available. The tool can be downloaded from the following > > > site: > > > > > > https://computation-rnd.llnl.gov/mpi_t/varList.php > > > > > > I noticed that when I ran the tool, I would encounter the following > > > error: > > > > > > [c557-604:121075] Signal: Segmentation fault (11) > > > [c557-604:121075] Signal code: Invalid permissions (2) > > > [c557-604:121075] Failing at address: 0x2b54ce9d1418 > > > [c557-604:121075] [ 0] /lib64/libpthread.so.0[0x397060f710] > > > [c557-604:121075] [ 1] > > > > > > /work/02282/esthela/MPI/install-openmpi-1.8.1/lib/libmpi.so.1(MPI_T_cvar_read+0xc6)[0x2b54cbe55bd6] > > > [c557-604:121075] [ 2] ./varlist(list_cvars+0xda7)[0x402e17] > > > [c557-604:121075] [ 3] ./varlist(main+0x347)[0x401e37] > > > [c557-604:121075] [ 4] > > > /lib64/libc.so.6(__libc_start_main+0xfd)[0x396fe1ed1d] > > > [c557-604:121075] [ 5] ./varlist[0x401a29] > > > [c557-604:121075] *** End of error message *** > > > I went ahead and tried to write a code that follows the process in > > > varlist > > > to read the control variables, and encountered the same error when I > > > called the following function: > > > err=MPI_T_cvar_read(handle,val); > > > > > > Through a recommendation, I ran both my code and the tool using > > > mvapich, > > > and could not reproduce the error. I don't know if this is a bug or if > > > I > > > didn't configure my installation of OpenMPI correctly. Below is a > > > script > > > that I used to install OpenMPI: > > > > > > set -e > > > rm -fr /work/02282/esthela/MPI/install-openmpi-1.8.1 && \ > > > make clean && \ > > > ./configure --with-cma=yes > > > --prefix=/work/02282/esthela/MPI/install-openmpi-1.8.1 \ > > > CC=icc CXX=icpc FC=ifort --enable-shared CFLAGS="-O3 -ip -xHost" \ > > > CXXFLAGS="-O3 -ip -xHost" --without-slurm --disable-vt > > > --with-verbs=/opt/ofed \ > > > --with-verbs-libdir=/opt/ofed/lib64 && \ > > > make clean && \ > > > make -j4 && \ > > > make install​ > > > > > > > > > > > > Help in resolving this issue would be greatly appreciated. > > > > > > Thank you! > > > > > > Esthela Gallardo > > > > > _______________________________________________ > > > users mailing list > > > us...@open-mpi.org > > > Subscription: http://www.open-mpi.org/mailman/listinfo.cgi/users > > > Link to this post: > > > http://www.open-mpi.org/community/lists/users/2014/07/24758.php > > _______________________________________________ > > users mailing list > > us...@open-mpi.org > > Subscription: http://www.open-mpi.org/mailman/listinfo.cgi/users > > Link to this post: > > http://www.open-mpi.org/community/lists/users/2014/07/24760.php > #include <stdio.h> > #include <stdlib.h> > #include <unistd.h> > #include <getopt.h> > #include <string.h> > > #include <mpi.h> > > #define SCREENLEN 78 > > #ifndef MPI_COUNT > #define MPI_COUNT MPI_INT > typedef int MPI_Count; > #endif > > #ifndef MPI_T_CVAR_HANDLE_NULL > #define MPI_T_CVAR_HANDLE_NULL NULL > #endif > > #define CHECKERR(errstr,err) if (err!=MPI_SUCCESS) { printf("ERROR: %s: MPI > error code %i\n",errstr,err); usage(1); } > > int list_pvar,list_cvar,longlist,verbosity,runmpi; > > #define RUNMPI 1 > > /* Usage */ > > void usage(int e) > { > printf("Usage: varlist [-c] [-p] [-v <VL>] [-l] [-m]\n"); > printf(" -c = List only Control Variables\n"); > printf(" -p = List only Performance Variables\n"); > printf(" -v = List up to verbosity level <VL> (1=U/B to 9=D/D)\n"); > printf(" -l = Long list with all information, incl. descriptions\n"); > printf(" -m = Do not call MPI_Init before listing variables\n"); > printf(" -h = This help text\n"); > exit(e); > } > > > /* Print a filled string */ > > void print_filled(char *s, int len, char c) > { > int i; > printf("%s",s); > for (i=strlen(s); i<len; i++) > printf("%c",c); > } > > > /* Print a PVAR class */ > > void print_class(int c) > { > switch(c) { > case MPI_T_PVAR_CLASS_STATE: > printf("STATE "); > break; > case MPI_T_PVAR_CLASS_LEVEL: > printf("LEVEL "); > break; > case MPI_T_PVAR_CLASS_SIZE: > printf("SIZE "); > break; > case MPI_T_PVAR_CLASS_PERCENTAGE: > printf("PERCENT"); > break; > case MPI_T_PVAR_CLASS_HIGHWATERMARK: > printf("HIGHWAT"); > break; > case MPI_T_PVAR_CLASS_LOWWATERMARK: > printf("LOWWAT "); > break; > case MPI_T_PVAR_CLASS_COUNTER: > printf("COUNTER"); > break; > case MPI_T_PVAR_CLASS_AGGREGATE: > printf("AGGR "); > break; > case MPI_T_PVAR_CLASS_TIMER: > printf("TIMER "); > break; > case MPI_T_PVAR_CLASS_GENERIC: > printf("GENERIC"); > break; > default: > printf("UNKNOWN"); > break; > } > } > > > /* Print a CVAR/PVAR bind */ > > void print_bind(int b) > { > switch (b) { > case MPI_T_BIND_NO_OBJECT: > printf("n/a "); > break; > case MPI_T_BIND_MPI_COMM: > printf("COMM "); > break; > case MPI_T_BIND_MPI_DATATYPE: > printf("DATATYPE"); > break; > case MPI_T_BIND_MPI_ERRHANDLER: > printf("ERRHAND "); > break; > case MPI_T_BIND_MPI_FILE: > printf("FILE "); > break; > case MPI_T_BIND_MPI_GROUP: > printf("GROUP "); > break; > case MPI_T_BIND_MPI_OP: > printf("OP "); > break; > case MPI_T_BIND_MPI_REQUEST: > printf("REQUEST "); > break; > case MPI_T_BIND_MPI_WIN: > printf("WINDOW "); > break; > case MPI_T_BIND_MPI_MESSAGE: > printf("MESSAGE "); > break; > case MPI_T_BIND_MPI_INFO: > printf("INFO "); > break; > default: > printf("UNKNOWN "); > break; > } > } > > > /* Print a CVAR/PVAR type */ > > void print_type(MPI_Datatype t) > { > if (t==MPI_INT) > { > printf("INT "); > } > else if (t==MPI_UNSIGNED) > { > printf("UINT "); > } > else if (t==MPI_UNSIGNED_LONG) > { > printf("ULONG "); > } > else if (t==MPI_UNSIGNED_LONG_LONG) > { > printf("ULLONG"); > } > else if (t==MPI_COUNT) > { > printf("COUNT "); > } > else if (t==MPI_CHAR) > { > printf("CHAR "); > } > else if (t==MPI_DOUBLE) > { > printf("DOUBLE"); > } > else > { > printf("UNKNOW"); > } > } > > > /* Print CVAR Scope */ > > void print_scope(int s) > { > switch (s) { > #if 0 > case MPI_T_SCOPE_CONSTANT: > printf("CONST "); > break; > #endif > case MPI_T_SCOPE_READONLY: > printf("READONLY"); > break; > case MPI_T_SCOPE_LOCAL: > printf("LOCAL "); > break; > case MPI_T_SCOPE_GROUP: > printf("GROUP "); > break; > case MPI_T_SCOPE_GROUP_EQ: > printf("GROUP-EQ"); > break; > case MPI_T_SCOPE_ALL: > printf("ALL-EQ "); > break; > case MPI_T_SCOPE_ALL_EQ: > printf("ALL "); > break; > default: > printf("UNKNOWN "); > break; > } > } > > > /* Print a Yes/No class */ > > void print_yesno(int yesno) > { > if (yesno) > printf("YES"); > else > printf(" NO"); > } > > > /* Print verbosity level */ > > void print_verbosity(int verbos) > { > switch (verbos) { > case MPI_T_VERBOSITY_USER_BASIC: > printf("User/Basic = 1"); > break; > case MPI_T_VERBOSITY_USER_DETAIL: > printf("User/Detail = 2"); > break; > case MPI_T_VERBOSITY_USER_ALL: > printf("User/All = 3"); > break; > case MPI_T_VERBOSITY_TUNER_BASIC: > printf("Tuner/Basic = 4"); > break; > case MPI_T_VERBOSITY_TUNER_DETAIL: > printf("Tuner/Detail = 5"); > break; > case MPI_T_VERBOSITY_TUNER_ALL: > printf("Tuner/All = 6"); > break; > case MPI_T_VERBOSITY_MPIDEV_BASIC: > printf("Developer/Basic = 7"); > break; > case MPI_T_VERBOSITY_MPIDEV_DETAIL: > printf("Developer/Detail = 8"); > break; > case MPI_T_VERBOSITY_MPIDEV_ALL: > printf("Developer/All = 9"); > break; > default: > printf("UNKNOWN"); > break; > } > } > > > void print_verbosity_short(int verbos) > { > switch (verbos) { > case MPI_T_VERBOSITY_USER_BASIC: > printf("U/B-1"); > break; > case MPI_T_VERBOSITY_USER_DETAIL: > printf("U/D-2"); > break; > case MPI_T_VERBOSITY_USER_ALL: > printf("U/A-3"); > break; > case MPI_T_VERBOSITY_TUNER_BASIC: > printf("T/B-4"); > break; > case MPI_T_VERBOSITY_TUNER_DETAIL: > printf("T/D-5"); > break; > case MPI_T_VERBOSITY_TUNER_ALL: > printf("T/A-6"); > break; > case MPI_T_VERBOSITY_MPIDEV_BASIC: > printf("D/B-7"); > break; > case MPI_T_VERBOSITY_MPIDEV_DETAIL: > printf("D/D-8"); > break; > case MPI_T_VERBOSITY_MPIDEV_ALL: > printf("D/A-9"); > break; > default: > printf("?????"); > break; > } > } > > > /* Print all Performance Variables */ > > void list_pvars() > { > int num,err,i,numvars; > char *name, *desc; > int bind,vc,verbos,ro,ct,at; > MPI_Datatype dt; > MPI_T_enum et; > int maxnamelen=strlen("Variable"); > int maxdesclen=0; > int prtlen; > int namelen,desclen; > > > /* Get number of variables */ > > err=MPI_T_pvar_get_num(&num); > CHECKERR("PVARNUM",err); > printf("Found %i performance variables\n",num); > > > /* Find string sizes */ > > numvars=0; > > for (i=0; i<num; i++) > { > int namelen=0; > int desclen=0; > char fname[5]; > char fdesc[5]; > > err=MPI_T_pvar_get_info(i,fname,&namelen,&verbos,&vc,&dt,&et,fdesc,&desclen,&bind,&ro,&ct,&at); > if (namelen>maxnamelen) maxnamelen=namelen; > if (desclen>maxdesclen) maxdesclen=desclen; > if (verbos<=verbosity) numvars++; > } > > printf("Found %i performance variables with verbosity <= ",numvars); > print_verbosity_short(verbosity); > printf("\n\n"); > > > /* Allocate string buffers */ > > name=(char*)malloc(sizeof(char)*maxnamelen); > CHECKERR("Malloc Name",name==NULL); > desc=(char*)malloc(sizeof(char)*maxdesclen); > CHECKERR("Malloc Desc",desc==NULL); > > /* Print header */ > > prtlen=0; > if (!longlist) > { > print_filled("Variable",maxnamelen,' '); > printf(" "); > prtlen=maxnamelen+1; > printf("VRB "); > printf(" "); > prtlen+=5+1; > printf("Class "); > printf(" "); > prtlen+=7+1; > printf("Type "); > printf(" "); > prtlen+=6+1; > printf("Bind "); > printf(" "); > prtlen+=8+1; > printf("R/O"); > printf(" "); > prtlen+=3+1; > printf("CNT"); > printf(" "); > prtlen+=3+1; > printf("ATM"); > printf("\n"); > prtlen+=3; > print_filled("",prtlen,'-');printf("\n"); > } > > > /* Loop and print */ > > for (i=0; i<num; i++) > { > namelen=maxnamelen; > desclen=maxdesclen; > > err=MPI_T_pvar_get_info(i,name,&namelen,&verbos,&vc,&dt,&et,desc,&desclen,&bind,&ro,&ct,&at); > CHECKERR("PVARINFO",err); > if (verbos<=verbosity) > { > if (!longlist) > { > print_filled(name,maxnamelen,' '); > printf(" "); > print_verbosity_short(verbos); > printf(" "); > print_class(vc); > printf(" "); > print_type(dt); > printf(" "); > print_bind(bind); > printf(" "); > print_yesno(ro); > printf(" "); > print_yesno(ct); > printf(" "); > print_yesno(at); > printf("\n"); > } > else > { > print_filled("",SCREENLEN,'-');printf("\n"); > printf("Name: %s (",name); > print_verbosity(verbos);printf(")\n"); > printf("Class: "); print_class(vc); > printf("\n"); > printf("Type: "); print_type(dt); printf("\n"); > printf("Bind: "); print_bind(bind); > printf("\n"); > printf("Attr.: "); > printf("Readonly:");print_yesno(ro);printf(" "); > printf("Cont.:");print_yesno(ct);printf(" "); > > printf("Atomic:");print_yesno(at);printf("\n\n"); > if (desc!=NULL) > printf("%s\n\n",desc); > } > } > } > > if (numvars>0) > { > if (!longlist) > { > print_filled("",prtlen,'-');printf("\n"); > } > else > { > print_filled("",SCREENLEN,'-');printf("\n"); > } > } > > > /* free buffers */ > > free(name); > free(desc); > } > > > /* Print all Control Variables */ > > void list_cvars() > { > int num,err,i,numvars; > char *name, *desc; > int bind,verbos,scope; > MPI_Datatype dt; > MPI_T_enum et; > int maxnamelen=strlen("Variable"); > int maxdesclen=0; > int prtlen; > int namelen,desclen; > > int v_int; > unsigned int v_uint; > unsigned long v_ulong; > unsigned long long v_ullong; > MPI_Count v_count; > char v_char; > double v_double; > char value[100]; > int value_sup; > MPI_T_cvar_handle handle=MPI_T_CVAR_HANDLE_NULL; > int count; > > /* Get number of variables */ > > err=MPI_T_pvar_get_num(&num); > CHECKERR("CVARNUM",err); > printf("Found %i control variables\n",num); > > > /* Find string sizes */ > > numvars=0; > > for (i=0; i<num; i++) > { > int namelen=0; > int desclen=0; > char fname[5]; > char fdesc[5]; > > err=MPI_T_cvar_get_info(i,fname,&namelen,&verbos,&dt,&et,fdesc,&desclen,&bind,&scope); > if (namelen>maxnamelen) maxnamelen=namelen; > if (desclen>maxdesclen) maxdesclen=desclen; > if (verbos<=verbosity) numvars++; > } > > printf("Found %i control variables with verbosity <= ",numvars); > print_verbosity_short(verbosity); > printf("\n\n"); > > /* Allocate string buffers */ > > name=(char*)malloc(sizeof(char)*maxnamelen); > CHECKERR("Malloc Name",name==NULL); > desc=(char*)malloc(sizeof(char)*maxdesclen); > CHECKERR("Malloc Desc",desc==NULL); > > > /* Print header */ > > prtlen=0; > if (!longlist) > { > print_filled("Variable",maxnamelen,' '); > printf(" "); > prtlen=maxnamelen+1; > printf("VRB "); > printf(" "); > prtlen+=5+1; > printf("Type "); > printf(" "); > prtlen+=6+1; > printf("Bind "); > printf(" "); > prtlen+=8+1; > printf("Scope "); > printf(" "); > prtlen+=8+1; > printf("Value"); > printf("\n"); > prtlen+=12; > print_filled("",prtlen,'-');printf("\n"); > } > > > /* Loop and print */ > > for (i=0; i<num; i++) > { > namelen=maxnamelen; > desclen=maxdesclen; > > err=MPI_T_cvar_get_info(i,name,&namelen,&verbos,&dt,&et,desc,&desclen,&bind,&scope); > CHECKERR("CVARINFO",err); > > value_sup=1; > if (bind==MPI_T_BIND_NO_OBJECT) > { > err=MPI_T_cvar_handle_alloc(i,NULL,&handle,&count); > CHECKERR("CVAR-ALLOC",err); > } > else if (bind==MPI_T_BIND_MPI_COMM) > { > MPI_Comm comm=MPI_COMM_WORLD; > err=MPI_T_cvar_handle_alloc(i,&comm,&handle,&count); > CHECKERR("CVAR-ALLOC",err); > } > else > { > value_sup=0; > sprintf(value,"unsupported"); > } > > if (value_sup) > { > if (count==1) > { > if (dt==MPI_INT) > { > err=MPI_T_cvar_read(handle,&v_int); > CHECKERR("CVARREAD",err); > if (et==MPI_T_ENUM_NULL) > { > sprintf(value,"%i",v_int); > } > else > { > int i,etnum; > char etname[20]; > int etlen=20; > int done=0; > int newval; > > err=MPI_T_enum_get_info(et,&etnum,etname,&etlen); > for (i=0; i<etnum; i++) > { > etlen=12; > > err=MPI_T_enum_get_item(et,i,&newval,etname,&etlen); > if (newval==v_int) > { > > printf("%s",etname); > done=1; > } > } > if (!done) > { > printf("unknown"); > } > } > } > else if (dt==MPI_UNSIGNED) > { > err=MPI_T_cvar_read(handle,&v_uint); > CHECKERR("CVARREAD",err); > sprintf(value,"%u",v_uint); > } > else if (dt==MPI_UNSIGNED_LONG) > { > err=MPI_T_cvar_read(handle,&v_ulong); > CHECKERR("CVARREAD",err); > sprintf(value,"%lu",v_ulong); > } > else if (dt==MPI_UNSIGNED_LONG_LONG) > { > err=MPI_T_cvar_read(handle,&v_ullong); > CHECKERR("CVARREAD",err); > sprintf(value,"%llu",v_ullong); > } > else if (dt==MPI_COUNT) > { > err=MPI_T_cvar_read(handle,&v_count); > CHECKERR("CVARREAD",err); > sprintf(value,"%lu",v_count); > } > else if (dt==MPI_CHAR) > { > err=MPI_T_cvar_read(handle,&v_char); > CHECKERR("CVARREAD",err); > sprintf(value,"%c",v_char); > } > else if (dt==MPI_DOUBLE) > { > err=MPI_T_cvar_read(handle,&v_double); > CHECKERR("CVARREAD",err); > sprintf(value,"%d",v_double); > } > else > { > value_sup=0; > sprintf(value,"unsupported"); > } > } > else > { > value_sup=0; > sprintf(value,"unsupported"); > } > } > > if (handle==MPI_T_CVAR_HANDLE_NULL) > { > MPI_T_cvar_handle_free(&handle); > CHECKERR("CVAR-FREE",err); > } > > if (verbos<=verbosity) > { > if (!longlist) > { > print_filled(name,maxnamelen,' '); > printf(" "); > print_verbosity_short(verbos); > printf(" "); > print_type(dt); > printf(" "); > print_bind(bind); > printf(" "); > print_scope(scope); > printf(" "); > printf("%s",value); > printf("\n"); > } > else > { > print_filled("",SCREENLEN,'-');printf("\n"); > printf("Name: %s (",name); > print_verbosity(verbos);printf(")\n"); > printf("Type: "); print_type(dt); printf("\n"); > printf("Bind: "); print_bind(bind); > printf("\n"); > printf("Scope: > ");print_scope(scope);printf("\n"); > printf("Value: %s\n\n",value); > if (desc!=NULL) > printf("%s\n\n",desc); > } > } > } > > if (numvars>0) > { > if (!longlist) > { > print_filled("",prtlen,'-');printf("\n"); > } > else > { > print_filled("",SCREENLEN,'-');printf("\n"); > } > } > > > /* free buffers */ > > free(name); > free(desc); > } > > > /* Main */ > > int main(int argc, char *argv[]) > { > int err,errarg; > int threadsupport,threadsupport_t; > int rank; > int opt,erropt; > int reqthread=MPI_THREAD_MULTIPLE; > > /* Read options */ > > verbosity=MPI_T_VERBOSITY_MPIDEV_ALL; > list_pvar=1; > list_cvar=1; > longlist=0; > runmpi=1; > errarg=0; > > while ((opt=getopt(argc,argv, "hv:pclim")) != -1 ) { > switch (opt) { > case 'h': > errarg=-1; > break; > case 'v': > switch (atoi(optarg)) { > case 1: verbosity=MPI_T_VERBOSITY_USER_BASIC; break; > case 2: verbosity=MPI_T_VERBOSITY_USER_DETAIL; break; > case 3: verbosity=MPI_T_VERBOSITY_USER_ALL; break; > case 4: verbosity=MPI_T_VERBOSITY_TUNER_BASIC; break; > case 5: verbosity=MPI_T_VERBOSITY_TUNER_DETAIL; break; > case 6: verbosity=MPI_T_VERBOSITY_TUNER_ALL; break; > case 7: verbosity=MPI_T_VERBOSITY_MPIDEV_BASIC; break; > case 8: verbosity=MPI_T_VERBOSITY_MPIDEV_DETAIL; break; > case 9: verbosity=MPI_T_VERBOSITY_MPIDEV_ALL; break; > } > break; > case 'p': > list_pvar=1; > list_cvar=0; > break; > case 'c': > list_cvar=1; > list_pvar=0; > break; > case 'l': > longlist=1; > break; > case 'm': > runmpi=0; > break; > default: > errarg=1; > erropt=opt; > break; > } > } > > /* Initialize */ > > if (runmpi) > { > err=MPI_Init_thread(&argc,&argv,reqthread,&threadsupport); > CHECKERR("Init",err); > > err=MPI_Comm_rank(MPI_COMM_WORLD,&rank); > CHECKERR("Rank",err); > } > else > rank=0; > > > /* ONLY FOR RANK 0 */ > > if (rank==0) > { > err=MPI_T_init_thread(reqthread, &threadsupport_t); > CHECKERR("T_Init",err); > > if (errarg) > { > if (errarg>0) > printf("Argument error: %c\n",erropt); > usage(errarg!=-1); > } > > > /* Header */ > > printf("MPI_T Variable List\n"); > > > if (runmpi) > { > /* Print thread support for MPI */ > > printf(" MPI Thread support: "); > switch (threadsupport) { > case MPI_THREAD_SINGLE: > printf("MPI_THREAD_SINGLE\n"); > break; > case MPI_THREAD_FUNNELED: > printf("MPI_THREAD_FUNNELED\n"); > break; > case MPI_THREAD_SERIALIZED: > printf("MPI_THREAD_SERIALIZED\n"); > break; > case MPI_THREAD_MULTIPLE: > printf("MPI_THREAD_MULTIPLE\n"); > break; > default: > printf("unknown (%i)\n",threadsupport); > } > } > > /* Print thread support for MPI_T */ > > printf(" MPI_T Thread support: "); > switch (threadsupport_t) { > case MPI_THREAD_SINGLE: > printf("MPI_THREAD_SINGLE\n"); > break; > case MPI_THREAD_FUNNELED: > printf("MPI_THREAD_FUNNELED\n"); > break; > case MPI_THREAD_SERIALIZED: > printf("MPI_THREAD_SERIALIZED\n"); > break; > case MPI_THREAD_MULTIPLE: > printf("MPI_THREAD_MULTIPLE\n"); > break; > default: > printf("unknown (%i)\n",threadsupport_t); > } > > /* Start MPI_T */ > > > if (list_cvar) > { > printf("\n===============================\n"); > printf("Control Variables"); > printf("\n===============================\n\n"); > list_cvars(); > printf("\n"); > } > > if (list_pvar) > { > printf("\n===============================\n"); > printf("Performance Variables"); > printf("\n===============================\n\n"); > list_pvars(); > printf("\n"); > } > } > > /* Clean up */ > > if (runmpi) > { > err=MPI_Barrier(MPI_COMM_WORLD); > CHECKERR("Barrier",err); > } > > if (rank==0) > MPI_T_finalize(); > > if (runmpi) > MPI_Finalize(); > > if (rank==0) > printf("Done.\n"); > > return 0; > } > > _______________________________________________ > users mailing list > us...@open-mpi.org > Subscription: http://www.open-mpi.org/mailman/listinfo.cgi/users > Link to this post: > http://www.open-mpi.org/community/lists/users/2014/07/24762.php
pgpLOv2eUKVjp.pgp
Description: PGP signature
