cleanup()

void cleanup

(

)

Cleans up allocated memory

               {
  int i;
  int nfreq;
  nfreq = modsolinfo->nsig * modsolinfo->nome;

  if (0 == rank){
    acousto_config_destroy();
  }
  _SAFE_FREE(datfile);

  if (geometry) {
    _SAFE_FREE(geometry->nodes);
    _SAFE_FREE(geometry->mics);
    _SAFE_FREE(geometry->cntrc);
    _SAFE_FREE(geometry->cntr);
    _SAFE_FREE(geometry->elements);
    _SAFE_FREE(geometry->jnodb);
    if(modgeominfo->nemics > 0) _SAFE_FREE(geometry->jnodm);
    if(modgeominfo->nemics > 0) _SAFE_FREE(geometry->kelmm);
    _SAFE_FREE(geometry->jphib);
    _SAFE_FREE(geometry->jpsib);
    _SAFE_FREE(geometry->mvrtb);
    _SAFE_FREE(geometry->kcreb);
    _SAFE_FREE(geometry->kelmb);
    if (modgeominfo->nchief > 0) _SAFE_FREE(geometry->chief);
    free(geometry);
  }
  if (modgeominfo) {
    free(modgeominfo);
  }
  if (modcoefacinfo) {
    _SAFE_FREE(modcoefacinfo);
  }
  if (modcoemicinfo) {
    _SAFE_FREE(modcoemicinfo);
  }
  if (bodycoefs && modsolinfo->pre_calculate_coefs) {
    if (runinfo->krow < 0) {
      _SAFE_FREE(bodycoefs->B);
      _SAFE_FREE(bodycoefs->C);
    }

    _SAFE_FREE(bodycoefs);
  }

  if (micscoefs && modsolinfo->pre_calculate_coefs) {
    if (runinfo->krow < 0) {
      _SAFE_FREE(micscoefs->B);
      _SAFE_FREE(micscoefs->C);
    }
    _SAFE_FREE(micscoefs);
  }

  if (solution) {
    if (0 < modsolinfo->nimped)
      _SAFE_FREE(solution->zimp);
    if (0 < modsolinfo->nimped)
      _SAFE_FREE(solution->izimp);
    if (0 < modsolinfo->nradian)
      _SAFE_FREE(solution->radian);
    if (0 < modsolinfo->nradian)
      _SAFE_FREE(solution->iradian);
    _SAFE_FREE(solution->sources);
    _SAFE_FREE(solution->dipoles);
    _SAFE_FREE(solution->planw);
    _SAFE_FREE(solution->sig);
    _SAFE_FREE(solution->ome);

    _SAFE_FREE(solution->vecPhinc);
    _SAFE_FREE(solution->vecPsinc);
    _SAFE_FREE(solution->vecPhincm);
    _SAFE_FREE(solution->vecPsiu);
    _SAFE_FREE(solution->vecPhium);
    _SAFE_FREE(solution->vecPrescm);
    _SAFE_FREE(solution->vecPretm);
    _SAFE_FREE(solution->rhs);
    _SAFE_FREE(solution->sol);

    if (0 < modsolinfo->n_freqresp_cnt)
      _SAFE_FREE(solution->i_freqresp_cnt);
    if (0 < modsolinfo->n_freqresp_mic)
      _SAFE_FREE(solution->i_freqresp_mic);

    if (modsolinfo->pre_calculate_coefs) {
      _SAFE_FREE(solution->matZ);
      _SAFE_FREE(solution->matZZ);
    }
    _SAFE_FREE(solution->matY);

    if (modsolinfo->pre_calculate_coefs) {
      _SAFE_FREE(solution->matBH);
      _SAFE_FREE(solution->matBK);
      _SAFE_FREE(solution->matB);
    }
    _SAFE_FREE(solution);

  }

  _SAFE_FREE(bc.lambda);
  _SAFE_FREE(bc.gamma);
  _SAFE_FREE(bc.func);
  
  // FREEING GMSHBC                     // gp
  if(2==modsolinfo->custombc){
    for(i=0;i<nphystags; i++){
      _SAFE_FREE(phystags[i].ptrgmshbc);
  }
    _SAFE_FREE(phystags);
  }

  _SAFE_FREE(modsolinfo);

  if (0 == rank)
    _SAFE_FREE(fileinfo);


  MPI_Type_free(&mpi_element_type);
  MPI_Type_free(&mpi_vector_type);
  MPI_Type_free(&mpi_acoustic_point_type);
  MPI_Type_free(&mpi_runinfo_type);
  MPI_Type_free(&mpi_geominfo_type);
  MPI_Type_free(&mpi_solinfo_type);

  MPI_Type_free(&mpi_complex);
  MPI_Op_free(&mpi_op_complex_sum);
  //FREEING GEOMETRIES
  for (i = 0; i < ngeometries; i++) {
    _SAFE_FREE(geometries[i].ptrgeom);
  }
  _SAFE_FREE(geometries);

  if (rank == 0 && rundetails != NULL) {
    _SAFE_FREE(rundetails->cfg_filename);
    _SAFE_FREE(rundetails->cfg_filepath);
    _SAFE_FREE(rundetails->out_filepath);
    _SAFE_FREE(rundetails->out_filedir);
  }
  _SAFE_FREE(rundetails);

#ifdef _MYSQL_
  _SAFE_FREE(mysqlinfo);
#endif

  _SAFE_FREE(runinfo);

}