int init	(	int	argc,
		char *	argv[]
	)

get the handle for the initialize function and call it

Definition at line 54 of file SolverModuleDriverParallel.C.

References SolverModuleDriver::changeLoads, SolverModuleDriver::color, SolverModuleDriver::Comm, SolverModuleDriver::Conn, SolverModuleDriver::Coord, SolverModuleDriver::isFSI, SolverModuleDriver::myPaneId, SolverModuleDriver::myRank, SolverModuleDriver::nConn, SolverModuleDriver::nElem, SolverModuleDriver::nElemNodes, SolverModuleDriver::nNodes, SolverModuleDriver::outfile, SolverModuleDriver::runs, SolverModuleDriver::ss, SolverModuleDriver::tNext, and SolverModuleDriver::usage().

Referenced by COM::parallelProgram().

                                                      {
      std::cout << "SoverModuleDriver: running initializer ... " << std::endl;
      // processing command-line flags
      std::string arg;    
      double tmpTime;
      if(argc > 1){
        for(int i=1; i < argc; i++){
            ss.clear();
            ss.str("");
            ss << argv[i];
            if(ss.str() == "-com-mpi")
              continue;
            if(ss.str() == "-fsi"){
              isFSI = true;
              continue;
            }
            if(ss.str() == "-loads"){
              changeLoads = true;
              continue;
            }
            for(int j=0; j<ss.str().size(); j++){
              if(!isdigit(ss.str()[j]) && ss.str()[j] != 'e' 
                 && ss.str()[j] != 'E' && ss.str()[j] != '-'
                 && ss.str()[j] != '.')
                usage(argv[0]);
            }            
            ss >> tmpTime;
            tNext.push_back(tmpTime);
        }
      }      
      else
        usage(argv[0]);
    
      for(int i=1; i < tNext.size(); i++){
        if(tNext[i] <= tNext[i-1]){
          usage(argv[0]);
          exit(1);
        }
      }

      // loading ElmerParallel module
      COM_LOAD_MODULE_STATIC_DYNAMIC(ElmerCSCParallel, "ELMModule");

      // loading SimOut on all processes
      COM_LOAD_MODULE_STATIC_DYNAMIC( SimOUT, "OUT");
  
      // check the communicator that the window was loaded on
      MPI_Comm comm_check;
      outfile << "Checking ELMModule" << std::endl;
      outfile << "comm_check = " << comm_check << std::endl;
      COM_get_communicator("ELMModule", &comm_check);
      if(comm_check == Comm)
        outfile << "comm_check == Comm!" << std::endl;
      else if(comm_check == MPI_COMM_WORLD)
        outfile << "comm_check == MPI_COMM_WORLD!" << std::endl;
      else if(comm_check == MPI_COMM_SELF)
        outfile << "comm_check == MPI_COMM_SELF!" << std::endl;
      else
        outfile << "comm_check == None!" << std::endl;

      // calling module initializer     
      if(color == 0){ 
        int init_handle = COM_get_function_handle("ELMModule.Initialize");
        bool init_func = (init_handle > 0);
        int verb=1;
        runs = 0;
        if(init_func)
           COM_call_function(init_handle, &runs, &verb);
      }

      // FSI problems will register mesh data, accessing them  
      if(isFSI){ 
         char getDataItemLoc;
         COM_Type getDataItemType;
         std::string getDataItemUnits;
         // getting node coordinates  
         COM_get_array("ELMModule.nc", myPaneId, &Coord);
         // check for expected number of nodes
         COM_get_size("ELMModule.nc", myPaneId, &nNodes);
         // get connectivity tables for paneIds
         // :q4: is quad element
         std::string stringNames;
         COM_get_connectivities("ELMModule", myPaneId, &nConn, stringNames);
         std::istringstream ConnISS(stringNames);
         std::vector<std::string> connNames;
         for (int i=0; i<nConn; ++i) {
            std::string name;
            ConnISS >> name;
            connNames.push_back(name);
            std::cout << "Rank #" << myRank
                      << ", ELMModuleDriver:main: Connectivity Table # " << i+1 << ": " << name << std::endl;
         }
         // number of nodes per element
         std::string fullConnName("ELMModule."+connNames[0]);
         COM_get_dataitem(fullConnName, &getDataItemLoc, &getDataItemType,
                          &nElemNodes, &getDataItemUnits);
         std::cout << "Rank #" << myRank
                   << ", ELMModuleDriver:main: getDataItemLoc " << getDataItemLoc << std::endl;
         std::cout << "Rank #" << myRank
                   << ", ELMModuleDriver:main: getDataItemType " << getDataItemType << std::endl;
         std::cout << "Rank #" << myRank
                   << ", ELMModuleDriver:main: nElemNodes " << nElemNodes << std::endl;
         std::cout << "Rank #" << myRank
                   << ", ELMModuleDriver:main: getDataItemUnits " << getDataItemUnits << std::endl;
         // get connectivities        
         COM_get_array(fullConnName.c_str(), myPaneId, &Conn);
         COM_get_size(fullConnName, myPaneId, &nElem);
      }

      return 0;
    }

Here is the call graph for this function:

Here is the caller graph for this function: