src/cvmix/put_get.h

// Generated automatically by cvmix.awk from
// /home/basilisk-src/local/src/CVMix-src/src/shared/cvmix_put_get.F90

extern void __cvmix_put_get_MOD_cvmix_put_int (
  cvmix_data_type * cvmix_vars,
  char * varname,
  integer * val,
  integer * nlev_in,
  long int _slvarname
);

struct _cvmix_put_int {
  cvmix_data_type * cvmix_vars;
  char * varname;
  integer * val;
  integer * nlev_in;
};
void cvmix_put_int (struct _cvmix_put_int p) {
  __cvmix_put_get_MOD_cvmix_put_int (p.cvmix_vars, p.varname, p.val, p.nlev_in, strlencheck(p.varname));
}

extern void __cvmix_put_get_MOD_cvmix_put_real (
  cvmix_data_type * cvmix_vars,
  char * varname,
  cvmix_r8 * val,
  integer * nlev_in,
  long int _slvarname
);

struct _cvmix_put_real {
  cvmix_data_type * cvmix_vars;
  char * varname;
  cvmix_r8 * val;
  integer * nlev_in;
};
void cvmix_put_real (struct _cvmix_put_real p) {
  __cvmix_put_get_MOD_cvmix_put_real (p.cvmix_vars, p.varname, p.val, p.nlev_in, strlencheck(p.varname));
}

extern void __cvmix_put_get_MOD_cvmix_put_real_1d (
  cvmix_data_type * cvmix_vars,
  char * varname,
  cvmix_1d * val,
  integer * nlev_in,
  long int _slvarname
);

struct _cvmix_put_real_1d {
  cvmix_data_type * cvmix_vars;
  char * varname;
  cvmix_1d * val;
  integer * nlev_in;
};
void cvmix_put_real_1d (struct _cvmix_put_real_1d p) {
  __cvmix_put_get_MOD_cvmix_put_real_1d (p.cvmix_vars, p.varname, p.val, p.nlev_in, strlencheck(p.varname));
}

extern void __cvmix_put_get_MOD_cvmix_put_real_2d (
  cvmix_data_type * cvmix_vars,
  char * varname,
  cvmix_2d * val,
  integer * nlev_in,
  long int _slvarname
);

struct _cvmix_put_real_2d {
  cvmix_data_type * cvmix_vars;
  char * varname;
  cvmix_2d * val;
  integer * nlev_in;
};
void cvmix_put_real_2d (struct _cvmix_put_real_2d p) {
  __cvmix_put_get_MOD_cvmix_put_real_2d (p.cvmix_vars, p.varname, p.val, p.nlev_in, strlencheck(p.varname));
}

extern void __cvmix_put_get_MOD_cvmix_put_global_params_int (
  cvmix_global_params_type * cvmix_params,
  char * varname,
  integer * val,
  long int _slvarname
);

struct _cvmix_put_global_params_int {
  cvmix_global_params_type * cvmix_params;
  char * varname;
  integer * val;
};
void cvmix_put_global_params_int (struct _cvmix_put_global_params_int p) {
  __cvmix_put_get_MOD_cvmix_put_global_params_int (p.cvmix_params, p.varname, p.val, strlencheck(p.varname));
}

extern void __cvmix_put_get_MOD_cvmix_put_global_params_real (
  cvmix_global_params_type * cvmix_params,
  char * varname,
  cvmix_r8 * val,
  long int _slvarname
);

struct _cvmix_put_global_params_real {
  cvmix_global_params_type * cvmix_params;
  char * varname;
  cvmix_r8 * val;
};
void cvmix_put_global_params_real (struct _cvmix_put_global_params_real p) {
  __cvmix_put_get_MOD_cvmix_put_global_params_real (p.cvmix_params, p.varname, p.val, strlencheck(p.varname));
}