source: issm/trunk-jpl/src/c/solutions/EnvironmentInit.cpp@ 13691

/*!\file:  EnvironmentInit.cpp
 * \brief: initialize Petsc, MPI, you name it
 */ 
#ifdef HAVE_CONFIG_H
        #include <config.h>
#else
#error "Cannot compile with HAVE_CONFIG_H symbol! run configure first!"
#endif
#include <stdio.h>
#include "../include/include.h"
#include "../toolkits/toolkits.h"

COMM EnvironmentInit(int argc,char** argv){

        /*Output*/
        COMM comm = 0;

        /*Initialize environments: Petsc, MPI, etc...: */
        #if defined (_HAVE_PETSC_)
        int ierr=PetscInitialize(&argc,&argv,(char*)0,"");  
        if(ierr) _error_("Could not initialize Petsc");
        comm = MPI_COMM_WORLD;
        #elif defined(_HAVE_MPI_)
        MPI_Init(&argc,&argv);
        comm = MPI_COMM_WORLD;
        #else
        comm = 1; //bogus number for comm, which does not exist anyway.
        #endif

        /*Print Banner*/
        int my_rank = 0;
        #ifdef _HAVE_MPI_
        MPI_Comm_rank(comm,&my_rank);
        #endif
        if(!my_rank) printf("\n");
        if(!my_rank) printf("Ice Sheet System Model (%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;
}