issm.h File Reference

prototype wrapper for issm.h More...

#include "./globals.h"
#include "../shared/shared.h"
#include "../classes/classes.h"
#include "../toolkits/toolkits.h"
#include "../cores/cores.h"
#include "../solutionsequences/solutionsequences.h"
#include "../modules/modules.h"

Go to the source code of this file.

Functions
ISSM_MPI_Comm	EnvironmentInit (int argc, char **argv)
void	EnvironmentFinalize (void)

Detailed Description

prototype wrapper for issm.h

Definition in file issm.h.

Function Documentation

EnvironmentInit()

ISSM_MPI_Comm EnvironmentInit	(	int	argc,
		char **	argv
	)

Definition at line 12 of file EnvironmentInit.cpp.

                                                   {
 
   /*Output*/
   ISSM_MPI_Comm comm = 0;
 
   /*Initialize MPI environment: */
   #if defined(_HAVE_MPI_)
   ISSM_MPI_Init(&argc,&argv);
   comm = ISSM_MPI_COMM_WORLD;
   #else
   comm = 1; //bogus number for comm, which does not exist anyway.
   #endif
 
   /*Print Banner*/
   int my_rank = 0;
   ISSM_MPI_Comm_rank(comm,&my_rank);
   if(!my_rank) printf("\n");
   if(!my_rank) printf("%s version  %s\n",PACKAGE_NAME,PACKAGE_VERSION);
   if(!my_rank) printf("(website: %s contact: %s)\n",PACKAGE_URL,PACKAGE_BUGREPORT);
   if(!my_rank) printf("\n");
 
   /*Return communicator*/
   return comm;
}

EnvironmentFinalize()

void EnvironmentFinalize

(

void

)

Definition at line 12 of file EnvironmentFinalize.cpp.

                              {
 
   int my_rank;
 
   /*Make sure we are all here*/
   ISSM_MPI_Barrier(ISSM_MPI_COMM_WORLD);
 
   /*Print closing statement*/
   ISSM_MPI_Comm_rank(ISSM_MPI_COMM_WORLD,&my_rank);
 
   /*Finalize: */
   //if(!my_rank) printf("closing MPI\n");
   ISSM_MPI_Finalize();
}