cwrapper.H

Go to the documentation of this file.

#ifdef CH_LANG_CC
/*
*      _______              __
*     / ___/ /  ___  __ _  / /  ___
*    / /__/ _ \/ _ \/  V \/ _ \/ _ \
*    \___/_//_/\___/_/_/_/_.__/\___/
*    Please refer to Copyright.txt, in Chombo's root directory.
*/
#endif

#ifndef CWRAPPER_H
#define CWRAPPER_H
#include "NamespaceHeader.H"

extern "C"
{
#ifndef CH_MPI
#define MPI_Comm int
#endif

  void bisicles_new_instance(int *instance_key, const char *input_fname, MPI_Comm comm);

  void bisicles_free_instance(int *instance_key);
  

  void bisicles_set_2d_data(int *instance_key,  double *data_ptr, const int *field, 
                          const double *dx, const int *dims, 
                          const int *boxlo, const int *boxhi);
  void bisicles_set_2d_geometry(int *instance_key,  double *thck_data_ptr, double *topg_data_ptr,
                                const double *dx, const int *dims, 
                                const int *boxlo, const int *boxhi);

  void bisicles_get_2d_data(int *intance_id, double *data_ptr, const int *field,
                            const double *dx, const int *dims, 
                            const int *boxlo, const int *boxhi);


  
  void bisicles_push_thin_ice(int *intance_id, double *data_ptr, const double *thin_ice_limit,
                                  const double *dx, const int *dims, 
                                  const int *boxlo, const int *boxhi);
  void bisicles_pop_thin_ice(int *intance_id, double *data_ptr, const double *thin_ice_limit,
                                  const double *dx, const int *dims, 
                                  const int *boxlo, const int *boxhi);
  
  void bisicles_init_instance(int *instance_key);
  void bisicles_advance(int *instance_key, double *start_time, double *max_time, int *max_step);
  
  void bisicles_write_checkpoint(int *instance_key);
  //write a plot file
  void bisicles_write_plot(int *instance_key);
  void bisicles_read_checkpoint(int *instance_key, const char *checkpoint_fname);
  
  void bisicles_set_header_int(int *instance_key, const char *attr_key,  const int *val);
  void bisicles_set_header_dble(int *instance_key, const char *attr_key, const double *val);
  void bisicles_set_header_char(int *instance_key, const char *attr_key, const char *val);
  void bisicles_get_header_int(int *instance_key, const char *attr_key, int *val);
  void bisicles_get_header_dble(int *instance_key, const char *attr_key, double *val);
  void bisicles_get_header_char(int *instance_key, const char *attr_key, char *val);

  // FORTRAN compatibility stuff : function foo gets a f_foo_ and f_foo
  void f_bisicles_new_instance_(int *instance_key,  char *input_fname, const int *len_fname, const int *mpi_comm);
  void f_bisicles_free_instance_(int *instance_key);
  void f_bisicles_set_2d_data_(int *instance_key,  double *data_ptr, const int *field, 
                          const double *dx, const int *dims, 
                             const int *boxlo, const int *boxhi);
  void f_bisicles_set_2d_geometry_(int *instance_key,  double *thck_data_ptr, double *topg_data_ptr,
                                 const double *dx, const int *dims, 
                                 const int *boxlo, const int *boxhi);
  void f_bisicles_get_2d_data_(int *intance_id, double *data_ptr, const int *field,
                            const double *dx, const int *dims, 
                             const int *boxlo, const int *boxhi);
  
  void f_bisicles_push_thin_ice_(int *intance_id, double *data_ptr, const double *thin_ice_limit,
                                  const double *dx, const int *dims, 
                                  const int *boxlo, const int *boxhi);
  
  void f_bisicles_pop_thin_ice_(int *intance_id, double *data_ptr, const double *thin_ice_limit,
                                  const double *dx, const int *dims, 
                                  const int *boxlo, const int *boxhi);
  
  void f_bisicles_init_instance_(int *instance_key);
  void f_bisicles_advance_(int *instance_key, double *start_time, double *max_time, int *max_step);
  void f_bisicles_write_checkpoint_(int *instance_key);
  void f_bisicles_write_plot_(int *instance_key);
  void f_bisicles_read_checkpoint_(int *instance_key, char *checkpoint_fname, const int *len_fname);
  void f_bisicles_set_header_int_(int *instance_key, char *attr_key, const int *attr_key_len, const int *val);
  void f_bisicles_set_header_dble_(int *instance_key, char *attr_key, const int *attr_key_len, const double *val);
  void f_bisicles_set_header_char_(int *instance_key, char *attr_key, const int *attr_key_len,  char *val, const int *len_val);
  void f_bisicles_get_header_int_(int *instance_key, char *attr_key, const int *attr_key_len,  int *val);
  void f_bisicles_get_header_dble_(int *instance_key, char *attr_key, const int *attr_key_len,  double *val);
  void f_bisicles_get_header_char_(int *instance_key, char *attr_key, const int *attr_key_len,  char *val, const int *len_val);


  void f_bisicles_new_instance(int *instance_key,  char *input_fname, const int *len_fname, const int *mpi_comm);
  void f_bisicles_free_instance(int *instance_key);
  void f_bisicles_set_2d_data(int *instance_key,  double *data_ptr, const int *field, 
                          const double *dx, const int *dims, 
                             const int *boxlo, const int *boxhi);
  void f_bisicles_set_2d_geometry(int *instance_key,  double *thck_data_ptr, double *topg_data_ptr,
                                 const double *dx, const int *dims, 
                                 const int *boxlo, const int *boxhi);
  void f_bisicles_get_2d_data(int *intance_id, double *data_ptr, const int *field,
                            const double *dx, const int *dims, 
                             const int *boxlo, const int *boxhi);

  void f_bisicles_push_thin_ice(int *intance_id, double *data_ptr, const double *thin_ice_limit,
                                  const double *dx, const int *dims, 
                                  const int *boxlo, const int *boxhi);
  
  void f_bisicles_pop_thin_ice(int *intance_id, double *data_ptr, const double *thin_ice_limit,
                                  const double *dx, const int *dims, 
                                  const int *boxlo, const int *boxhi);
  
  void f_bisicles_init_instance(int *instance_key);
  void f_bisicles_advance(int *instance_key, double *start_time, double *max_time, int *max_step);
  void f_bisicles_write_checkpoint(int *instance_key);
  void f_bisicles_write_plot(int *instance_key);
  void f_bisicles_read_checkpoint(int *instance_key, char *checkpoint_fname, const int *len_fname);
  void f_bisicles_set_header_int(int *instance_key, char *attr_key, const int *attr_key_len, const int *val);
  void f_bisicles_set_header_dble(int *instance_key, char *attr_key, const int *attr_key_len, const double *val);
  void f_bisicles_set_header_char(int *instance_key, char *attr_key, const int *attr_key_len,  char *val, const int *len_val);
  void f_bisicles_get_header_int(int *instance_key, char *attr_key, const int *attr_key_len,  int *val);
  void f_bisicles_get_header_dble(int *instance_key, char *attr_key, const int *attr_key_len,  double *val);
  void f_bisicles_get_header_char(int *instance_key, char *attr_key, const int *attr_key_len,  char *val, const int *len_val);
}



//set header data
template<typename T>
void bisicles_set_header(int *instance_key, const char *attr_key, const T *val);
//retrieve header data
template<typename T>
void bisicles_get_header(int *instance_key, const char *attr_key, T *val);
void bisicles_get_header(int *instance_key, const char *key, char *val);
#include "NamespaceFooter.H"
#endif