Example #1
0
long long Create_Pamgen_Mesh(const char * file_char_array, 
			     long long dimension,
			     long long rank,
			     long long num_procs,
			     long long max_int)
/*****************************************************************************/
{
  PAMGEN_NEVADA::Inline_Mesh_Desc * imd = NULL;
  PAMGEN_NEVADA::Inline_Mesh_Desc * fimd = NULL;
  std::string fn("PAMGEN LIBRARY");

  PAMGEN_NEVADA::Partition::partition_count = 0;

  // copy input into stream, no file operations in library.
  std::stringstream input_stream;
  long long sfca = strlen(file_char_array);
  input_stream.write(file_char_array,sfca);


  long long pec = 0;

  fimd = PAMGEN_NEVADA::Parse_Inline_Mesh(fn,
					 input_stream,
					 pec,
					 dimension,
					 max_int);

  if(pec > 0)return ERROR_PARSING_DEFINITION;
  
  if(!fimd)return ERROR_CREATING_IMD;
  imd = fimd;
  ms_lt::Mesh_Specification * ams = NULL;
  while(imd){

    ams = buildMeshSpecification_LT(imd,
				    rank, 
				    num_procs);
    
    if(!ams)return ERROR_CREATING_MS;

    ms_lt::Mesh_Specification::Add_MS(ams);

    
    imd = imd->next;
  }

  ms_lt::Mesh_Specification * nms =  ms_lt::Mesh_Specification::first_ms_static_storage->consolidateMS();
  
  ms_lt::Mesh_Specification::Replace_MS(nms);


  return ERROR_FREE_CREATION;
}
Example #2
0
long long Create_Pamgen_Mesh(const char * file_char_array, 
			     long long dimension,
			     long long rank,
			     long long num_procs,
			     long long max_int)
/*****************************************************************************/
{
  PAMGEN_NEVADA::Inline_Mesh_Desc * imd = NULL;
  std::string fn("PAMGEN LIBRARY");

  // copy input into stream, no file operations in library.
  std::stringstream input_stream;
  long long sfca = strlen(file_char_array);
  input_stream.write(file_char_array,sfca);


  long long pec = 0;

  imd = PAMGEN_NEVADA::Parse_Inline_Mesh(fn,
					 input_stream,
					 pec,
					 dimension,
					 max_int);

  if(pec > 0)return ERROR_PARSING_DEFINITION;
  
  if(!imd)return ERROR_CREATING_IMD;


  ms_lt::Mesh_Specification * ams = buildMeshSpecification_LT(imd,
							      rank, 
							      num_procs);
  if(!ams)return ERROR_CREATING_MS;

  return ERROR_FREE_CREATION;
}