Skip to content

Commit 549d5fe

Browse files
authored
Merge pull request #2 from schulzm/master
added print statements for version and library version
2 parents b2c4312 + 439d9ab commit 549d5fe

File tree

1 file changed

+19
-1
lines changed

1 file changed

+19
-1
lines changed

mpi_t/varlist/varlist.c

Lines changed: 19 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -736,6 +736,12 @@ int main(int argc, char *argv[])
736736
int rank;
737737
int opt,erropt;
738738
int reqthread=MPI_THREAD_MULTIPLE;
739+
740+
int minor,major;
741+
742+
char libversion[MPI_MAX_LIBRARY_VERSION_STRING];
743+
int libversionlen;
744+
739745

740746
/* Read options */
741747

@@ -816,7 +822,19 @@ int main(int argc, char *argv[])
816822

817823
/* Header */
818824

819-
printf("MPI_T Variable List\n");
825+
printf("MPI_T Variable List\n\n");
826+
827+
/* Print Version */
828+
829+
err=MPI_Get_version(&major,&minor);
830+
CHECKERR("T_Init",err);
831+
printf(" MPI Version: %i.%i\n",major,minor);
832+
833+
err=MPI_Get_library_version(libversion,&libversionlen);
834+
CHECKERR("T_Init",err);
835+
printf(" MPI Library Version: %s\n\n",libversion);
836+
837+
/* Print thread support */
820838

821839
if (runmpi)
822840
{

0 commit comments

Comments
 (0)