Contains the wrapper routines for the F90 binding of Roccom implementation. More...

#include <iostream>
#include <cstdlib>
#include <cstring>
#include "roccom.h"
#include "mapptr.h"
#include "roccom_assertion.h"

Include dependency graph for roccom_f.C:

Go to the source code of this file.

Classes
class	Roccom_base_friend

struct	Big_array
	Some big array to help determining the size of a Fortran 90 pointer. More...

Macros
#define	CHKLEN(x) COM_assertion( x>=0 && x<MAX_NAMELEN)

#define	COM_SET_ARRAY_SCALAR(func, FUNC)

#define	COM_SET_ARRAY_PTR(func, FUNC, dim, type)

#define	COM_SET_ARRAY_STRD_SCALAR(func, FUNC)

#define	COM_SET_ARRAY_STRD_PTR(func, FUNC, dim, type)

#define	COM_SET_ARRAY_DYN_SCALAR(func, FUNC)

#define	COM_SET_ARRAY_DYN_PTR(func, FUNC, dim, type)

#define	COM_SET_ARRAY_CONST_SCALAR(func, FUNC)

#define	COM_SET_ARRAY_CONST_PTR(func, FUNC, dim, type)

#define	COM_SET_ARRAY_CONST_STRD_SCALAR(func, FUNC)

#define	COM_SET_ARRAY_CONST_STRD_PTR(func, FUNC, dim, type)

#define	COM_SET_ARRAY_CONST_DYN_SCALAR(func, FUNC)

#define	COM_SET_ARRAY_CONST_DYN_PTR(func, FUNC, dim, type)

#define	COM_SET_BOUNDS(func, FUNC)

#define	COM_OBTAIN_ARRAY(func, FUNC, dim, type, mode)

#define	COM_OBTAIN_ARRAY_STRD(func, FUNC, dim, type, mode)

#define	COM_OBTAIN_ARRAY_DYN(func, FUNC, dim, type, mode)

#define	COM_COPY_ARRAY_OFF(func, FUNC, dim, type)

#define	COM_APPEND_ARRAY_SCALAR(func, FUNC)

#define	COM_APPEND_ARRAY(func, FUNC, dim, type)

#define	COM_GET_BOUNDS(func, FUNC)

Enumerations
enum	Access_mode { AM_ALLOC, AM_RESIZE, AM_GET, AM_GETC, AM_COPY }

Functions
void	COM_F_FUNC2 (com_init, COM_INIT)()

void	COM_F_FUNC2 (com_finalize, COM_FINALIZE)()

int	COM_F_FUNC2 (com_initialized, COM_INITIALIZED)()

void	COM_F_FUNC2 (com_abort, COM_ABORT) const

void	COM_F_FUNC2 (com_set_default_communicator, COM_SET_DEFAULT_COMMUNICATOR) const

int	COM_F_FUNC2 (com_get_default_communicator, COM_GET_DEFAULT_COMMUNICATOR)()

void	COM_F_FUNC2 (com_load_module, COM_LOAD_MODULE) const

void	COM_F_FUNC2 (com_unload_module_1, COM_UNLOAD_MODULE_1) const

void	COM_F_FUNC2 (com_unload_module_2, COM_UNLOAD_MODULE_2) const

int	COM_F_FUNC2 (com_chkptr_c, COM_CHKPTR_C) const

void	COM_F_FUNC2 (com_new_window_null, COM_NEW_WINDOW_NULL) const

void	COM_F_FUNC2 (com_new_window_mpi, COM_NEW_WINDOW_MPI) const

void	COM_F_FUNC2 (com_delete_window, COM_DELETE_WINDOW) const

void	COM_F_FUNC2 (com_window_init_done_1arg, COM_WINDOW_INIT_DONE_1ARG) const

void	COM_F_FUNC2 (com_window_init_done_2arg, COM_WINDOW_INIT_DONE_2ARG) const

void	COM_F_FUNC2 (com_delete_pane, COM_DELETE_PANE) const

void	COM_F_FUNC2 (com_new_attribute, COM_NEW_ATTRIBUTE) const

void	COM_F_FUNC2 (com_delete_attribute, COM_DELETE_ATTRIBUTE) const

void	COM_F_FUNC2 (com_set_size1, COM_SET_SIZE1) const

void	COM_F_FUNC2 (com_set_size2, COM_SET_SIZE2) const

void	COM_F_FUNC2 (com_map_cptr, COM_MAP_CPTR)

void	COM_F_FUNC2 (com_map_cptr_chr, COM_MAP_CPTR_CHR)

void	COM_F_FUNC2 (com_map_cptr_int, COM_MAP_CPTR_INT)

void	COM_F_FUNC2 (com_map_cptr_flt, COM_MAP_CPTR_FLT)

void	COM_F_FUNC2 (com_map_cptr_dbl, COM_MAP_CPTR_DBL)

void	COM_F_FUNC2 (com_set_array_null, COM_SET_ARRAY_NULL) const

void	COM_F_FUNC2 (com_set_array_const_null, COM_SET_ARRAY_CONST_NULL) const

void	COM_F_FUNC2 (com_set_external, COM_SET_EXTERNAL) const

void	COM_F_FUNC2 (com_set_external_const, COM_SET_EXTERNAL_CONST) const

int	COM_F_FUNC2 (com_call_system, COM_CALL_SYSTEM) const

void	COM_F_FUNC2 (com_call_exit, COM_CALL_EXIT) const

void	COM_F_FUNC2 (com_call_atexit, COM_CALL_ATEXIT)

template<int dim, COM_Type type>
void *	com_get_address_f (void *addr, int l=0)

template<int dim, COM_Type type>
void	com_set_address_f (Roccom_base::Pointer_descriptor &ptr, void *addr, int l=0)

template<int dim, COM_Type type>
void	com_set_array_helper (const std::string &waname, int pane_id, void *addr, int strd, int cap, int l=0)

	COM_SET_ARRAY_SCALAR (com_set_array_chr, COM_SET_ARRAY_CHR)

	COM_SET_ARRAY_SCALAR (com_set_array_int, COM_SET_ARRAY_INT)

	COM_SET_ARRAY_SCALAR (com_set_array_flt, COM_SET_ARRAY_FLT)

	COM_SET_ARRAY_SCALAR (com_set_array_dbl, COM_SET_ARRAY_DBL)

template<int dim, COM_Type type>
void	com_set_array_f (const char waname, int pane_id, void addr, int strd, int cap, int l1, int l2)

	COM_SET_ARRAY_PTR (com_set_array_int1d, COM_SET_ARRAY_INT1D, 1, COM_INTEGER)

	COM_SET_ARRAY_PTR (com_set_array_flt1d, COM_SET_ARRAY_FLT1D, 1, COM_REAL)

	COM_SET_ARRAY_PTR (com_set_array_dbl1d, COM_SET_ARRAY_DBL1D, 1, COM_DOUBLE)

	COM_SET_ARRAY_PTR (com_set_array_int2d, COM_SET_ARRAY_INT2D, 2, COM_INTEGER)

	COM_SET_ARRAY_PTR (com_set_array_flt2d, COM_SET_ARRAY_FLT2D, 2, COM_REAL)

	COM_SET_ARRAY_PTR (com_set_array_dbl2d, COM_SET_ARRAY_DBL2D, 2, COM_DOUBLE)

	COM_SET_ARRAY_PTR (com_set_array_int3d, COM_SET_ARRAY_INT3D, 3, COM_INTEGER)

	COM_SET_ARRAY_PTR (com_set_array_flt3d, COM_SET_ARRAY_FLT3D, 3, COM_REAL)

	COM_SET_ARRAY_PTR (com_set_array_dbl3d, COM_SET_ARRAY_DBL3D, 3, COM_DOUBLE)

	COM_SET_ARRAY_STRD_SCALAR (com_set_array_int_strd, COM_SET_ARRAY_INT_STRD)

	COM_SET_ARRAY_STRD_SCALAR (com_set_array_flt_strd, COM_SET_ARRAY_FLT_STRD)

	COM_SET_ARRAY_STRD_SCALAR (com_set_array_dbl_strd, COM_SET_ARRAY_DBL_STRD)

	COM_SET_ARRAY_STRD_PTR (com_set_array_int1d_strd, COM_SET_ARRAY_INT1D_STRD, 1, COM_INTEGER)

	COM_SET_ARRAY_STRD_PTR (com_set_array_flt1d_strd, COM_SET_ARRAY_FLT1D_STRD, 1, COM_REAL)

	COM_SET_ARRAY_STRD_PTR (com_set_array_dbl1d_strd, COM_SET_ARRAY_DBL1D_STRD, 1, COM_DOUBLE)

	COM_SET_ARRAY_STRD_PTR (com_set_array_int2d_strd, COM_SET_ARRAY_INT2D_STRD, 2, COM_INTEGER)

	COM_SET_ARRAY_STRD_PTR (com_set_array_flt2d_strd, COM_SET_ARRAY_FLT2D_STRD, 2, COM_REAL)

	COM_SET_ARRAY_STRD_PTR (com_set_array_dbl2d_strd, COM_SET_ARRAY_DBL2D_STRD, 2, COM_DOUBLE)

	COM_SET_ARRAY_STRD_PTR (com_set_array_int3d_strd, COM_SET_ARRAY_INT3D_STRD, 3, COM_INTEGER)

	COM_SET_ARRAY_STRD_PTR (com_set_array_flt3d_strd, COM_SET_ARRAY_FLT3D_STRD, 3, COM_REAL)

	COM_SET_ARRAY_STRD_PTR (com_set_array_dbl3d_strd, COM_SET_ARRAY_DBL3D_STRD, 3, COM_DOUBLE)

	COM_SET_ARRAY_DYN_SCALAR (com_set_array_int_dyn, COM_SET_ARRAY_INT_DYN)

	COM_SET_ARRAY_DYN_SCALAR (com_set_array_flt_dyn, COM_SET_ARRAY_FLT_DYN)

	COM_SET_ARRAY_DYN_SCALAR (com_set_array_dbl_dyn, COM_SET_ARRAY_DBL_DYN)

	COM_SET_ARRAY_DYN_PTR (com_set_array_int1d_dyn, COM_SET_ARRAY_INT1D_DYN, 1, COM_INTEGER)

	COM_SET_ARRAY_DYN_PTR (com_set_array_flt1d_dyn, COM_SET_ARRAY_FLT1D_DYN, 1, COM_REAL)

	COM_SET_ARRAY_DYN_PTR (com_set_array_dbl1d_dyn, COM_SET_ARRAY_DBL1D_DYN, 1, COM_DOUBLE)

	COM_SET_ARRAY_DYN_PTR (com_set_array_int2d_dyn, COM_SET_ARRAY_INT2D_DYN, 2, COM_INTEGER)

	COM_SET_ARRAY_DYN_PTR (com_set_array_flt2d_dyn, COM_SET_ARRAY_FLT2D_DYN, 2, COM_REAL)

	COM_SET_ARRAY_DYN_PTR (com_set_array_dbl2d_dyn, COM_SET_ARRAY_DBL2D_DYN, 2, COM_DOUBLE)

	COM_SET_ARRAY_DYN_PTR (com_set_array_int3d_dyn, COM_SET_ARRAY_INT3D_DYN, 3, COM_INTEGER)

	COM_SET_ARRAY_DYN_PTR (com_set_array_flt3d_dyn, COM_SET_ARRAY_FLT3D_DYN, 3, COM_REAL)

	COM_SET_ARRAY_DYN_PTR (com_set_array_dbl3d_dyn, COM_SET_ARRAY_DBL3D_DYN, 3, COM_DOUBLE)

template<int dim, COM_Type type>
void	com_set_array_const_helper (const std::string &waname, int pane_id, void *addr, int strd, int cap, int l=0)

	COM_SET_ARRAY_CONST_SCALAR (com_set_array_const_chr, COM_SET_ARRAY_CONST_CHR)

	COM_SET_ARRAY_CONST_SCALAR (com_set_array_const_int, COM_SET_ARRAY_CONST_INT)

	COM_SET_ARRAY_CONST_SCALAR (com_set_array_const_flt, COM_SET_ARRAY_CONST_FLT)

	COM_SET_ARRAY_CONST_SCALAR (com_set_array_const_dbl, COM_SET_ARRAY_CONST_DBL)

template<int dim, COM_Type type>
void	com_set_array_const_f (const char waname, int pane_id, void addr, int strd, int cap, int l1, int l2)

	COM_SET_ARRAY_CONST_PTR (com_set_array_const_int1d, COM_SET_ARRAY_CONST_INT1D, 1, COM_INTEGER)

	COM_SET_ARRAY_CONST_PTR (com_set_array_const_flt1d, COM_SET_ARRAY_CONST_FLT1D, 1, COM_REAL)

	COM_SET_ARRAY_CONST_PTR (com_set_array_const_dbl1d, COM_SET_ARRAY_CONST_DBL1D, 1, COM_DOUBLE)

	COM_SET_ARRAY_CONST_PTR (com_set_array_const_int2d, COM_SET_ARRAY_CONST_INT2D, 2, COM_INTEGER)

	COM_SET_ARRAY_CONST_PTR (com_set_array_const_flt2d, COM_SET_ARRAY_CONST_FLT2D, 2, COM_REAL)

	COM_SET_ARRAY_CONST_PTR (com_set_array_const_dbl2d, COM_SET_ARRAY_CONST_DBL2D, 2, COM_DOUBLE)

	COM_SET_ARRAY_CONST_PTR (com_set_array_const_int3d, COM_SET_ARRAY_CONST_INT3D, 3, COM_INTEGER)

	COM_SET_ARRAY_CONST_PTR (com_set_array_const_flt3d, COM_SET_ARRAY_CONST_FLT3D, 3, COM_REAL)

	COM_SET_ARRAY_CONST_PTR (com_set_array_const_dbl3d, COM_SET_ARRAY_CONST_DBL3D, 3, COM_DOUBLE)

	COM_SET_ARRAY_CONST_STRD_SCALAR (com_set_array_const_int_strd, COM_SET_ARRAY_CONST_INT_STRD)

	COM_SET_ARRAY_CONST_STRD_SCALAR (com_set_array_const_flt_strd, COM_SET_ARRAY_CONST_FLT_STRD)

	COM_SET_ARRAY_CONST_STRD_SCALAR (com_set_array_const_dbl_strd, COM_SET_ARRAY_CONST_DBL_STRD)

	COM_SET_ARRAY_CONST_STRD_PTR (com_set_array_const_int1d_strd, COM_SET_ARRAY_CONST_INT1D_STRD, 1, COM_INTEGER)

	COM_SET_ARRAY_CONST_STRD_PTR (com_set_array_const_flt1d_strd, COM_SET_ARRAY_CONST_FLT1D_STRD, 1, COM_REAL)

	COM_SET_ARRAY_CONST_STRD_PTR (com_set_array_const_dbl1d_strd, COM_SET_ARRAY_CONST_DBL1D_STRD, 1, COM_DOUBLE)

	COM_SET_ARRAY_CONST_STRD_PTR (com_set_array_const_int2d_strd, COM_SET_ARRAY_CONST_INT2D_STRD, 2, COM_INTEGER)

	COM_SET_ARRAY_CONST_STRD_PTR (com_set_array_const_flt2d_strd, COM_SET_ARRAY_CONST_FLT2D_STRD, 2, COM_REAL)

	COM_SET_ARRAY_CONST_STRD_PTR (com_set_array_const_dbl2d_strd, COM_SET_ARRAY_CONST_DBL2D_STRD, 2, COM_DOUBLE)

	COM_SET_ARRAY_CONST_STRD_PTR (com_set_array_const_int3d_strd, COM_SET_ARRAY_CONST_INT3D_STRD, 3, COM_INTEGER)

	COM_SET_ARRAY_CONST_STRD_PTR (com_set_array_const_flt3d_strd, COM_SET_ARRAY_CONST_FLT3D_STRD, 3, COM_REAL)

	COM_SET_ARRAY_CONST_STRD_PTR (com_set_array_const_dbl3d_strd, COM_SET_ARRAY_CONST_DBL3D_STRD, 3, COM_DOUBLE)

	COM_SET_ARRAY_CONST_DYN_SCALAR (com_set_array_const_int_dyn, COM_SET_ARRAY_CONST_INT_DYN)

	COM_SET_ARRAY_CONST_DYN_SCALAR (com_set_array_const_flt_dyn, COM_SET_ARRAY_CONST_FLT_DYN)

	COM_SET_ARRAY_CONST_DYN_SCALAR (com_set_array_const_dbl_dyn, COM_SET_ARRAY_CONST_DBL_DYN)

	COM_SET_ARRAY_CONST_DYN_PTR (com_set_array_const_int1d_dyn, COM_SET_ARRAY_CONST_INT1D_DYN, 1, COM_INTEGER)

	COM_SET_ARRAY_CONST_DYN_PTR (com_set_array_const_flt1d_dyn, COM_SET_ARRAY_CONST_FLT1D_DYN, 1, COM_REAL)

	COM_SET_ARRAY_CONST_DYN_PTR (com_set_array_const_dbl1d_dyn, COM_SET_ARRAY_CONST_DBL1D_DYN, 1, COM_DOUBLE)

	COM_SET_ARRAY_CONST_DYN_PTR (com_set_array_const_int2d_dyn, COM_SET_ARRAY_CONST_INT2D_DYN, 2, COM_INTEGER)

	COM_SET_ARRAY_CONST_DYN_PTR (com_set_array_const_flt2d_dyn, COM_SET_ARRAY_CONST_FLT2D_DYN, 2, COM_REAL)

	COM_SET_ARRAY_CONST_DYN_PTR (com_set_array_const_dbl2d_dyn, COM_SET_ARRAY_CONST_DBL2D_DYN, 2, COM_DOUBLE)

	COM_SET_ARRAY_CONST_DYN_PTR (com_set_array_const_int3d_dyn, COM_SET_ARRAY_CONST_INT3D_DYN, 3, COM_INTEGER)

	COM_SET_ARRAY_CONST_DYN_PTR (com_set_array_const_flt3d_dyn, COM_SET_ARRAY_CONST_FLT3D_DYN, 3, COM_REAL)

	COM_SET_ARRAY_CONST_DYN_PTR (com_set_array_const_dbl3d_dyn, COM_SET_ARRAY_CONST_DBL3D_DYN, 3, COM_DOUBLE)

	COM_SET_BOUNDS (com_set_bounds_int, COM_SET_BOUNDS_INT)

	COM_SET_BOUNDS (com_set_bounds_flt, COM_SET_BOUNDS_FLT)

	COM_SET_BOUNDS (com_set_bounds_dbl, COM_SET_BOUNDS_DBL)

void	COM_F_FUNC2 (com_alloc_array_win, COM_ALLOC_ARRAY_WIN) const

void	COM_F_FUNC2 (com_alloc_array_pane, COM_ALLOC_ARRAY_PANE) const

template<int dim, COM_Type type, Access_mode mode>
void	com_obtain_array_helper (const std::string &waname, int pane_id, void *addr, int &strd, int &cap, int offset, int l=0)

template<int dim, COM_Type type, Access_mode mode>
void	com_obtain_array_f (const char waname, int pane_id, void addr, int &strd, int &cap, int offset, int l1, int l2)

	COM_OBTAIN_ARRAY (com_alloc_array_int, COM_ALLOC_ARRAY_INT, 0, COM_INTEGER, AM_ALLOC)

	COM_OBTAIN_ARRAY (com_alloc_array_int1d, COM_ALLOC_ARRAY_INT1D, 1, COM_INTEGER, AM_ALLOC)

	COM_OBTAIN_ARRAY (com_alloc_array_int2d, COM_ALLOC_ARRAY_INT2D, 2, COM_INTEGER, AM_ALLOC)

	COM_OBTAIN_ARRAY (com_alloc_array_flt, COM_ALLOC_ARRAY_FLT, 0, COM_REAL, AM_ALLOC)

	COM_OBTAIN_ARRAY (com_alloc_array_flt1d, COM_ALLOC_ARRAY_FLT1D, 1, COM_REAL, AM_ALLOC)

	COM_OBTAIN_ARRAY (com_alloc_array_flt2d, COM_ALLOC_ARRAY_FLT2D, 2, COM_REAL, AM_ALLOC)

	COM_OBTAIN_ARRAY (com_alloc_array_dbl, COM_ALLOC_ARRAY_DBL, 0, COM_DOUBLE, AM_ALLOC)

	COM_OBTAIN_ARRAY (com_alloc_array_dbl1d, COM_ALLOC_ARRAY_DBL1D, 1, COM_DOUBLE, AM_ALLOC)

	COM_OBTAIN_ARRAY (com_alloc_array_dbl2d, COM_ALLOC_ARRAY_DBL2D, 2, COM_DOUBLE, AM_ALLOC)

void	COM_F_FUNC2 (com_resize_array_win, COM_RESIZE_ARRAY_WIN) const

void	COM_F_FUNC2 (com_resize_array_pane, COM_RESIZE_ARRAY_PANE) const

	COM_OBTAIN_ARRAY (com_resize_array_int, COM_RESIZE_ARRAY_INT, 0, COM_INTEGER, AM_RESIZE)

	COM_OBTAIN_ARRAY (com_resize_array_int1d, COM_RESIZE_ARRAY_INT1D, 1, COM_INTEGER, AM_RESIZE)

	COM_OBTAIN_ARRAY (com_resize_array_int2d, COM_RESIZE_ARRAY_INT2D, 2, COM_INTEGER, AM_RESIZE)

	COM_OBTAIN_ARRAY (com_resize_array_flt, COM_RESIZE_ARRAY_FLT, 0, COM_REAL, AM_RESIZE)

	COM_OBTAIN_ARRAY (com_resize_array_flt1d, COM_RESIZE_ARRAY_FLT1D, 1, COM_REAL, AM_RESIZE)

	COM_OBTAIN_ARRAY (com_resize_array_flt2d, COM_RESIZE_ARRAY_FLT2D, 2, COM_REAL, AM_RESIZE)

	COM_OBTAIN_ARRAY (com_resize_array_dbl, COM_RESIZE_ARRAY_DBL, 0, COM_DOUBLE, AM_RESIZE)

	COM_OBTAIN_ARRAY (com_resize_array_dbl1d, COM_RESIZE_ARRAY_DBL1D, 1, COM_DOUBLE, AM_RESIZE)

	COM_OBTAIN_ARRAY (com_resize_array_dbl2d, COM_RESIZE_ARRAY_DBL2D, 2, COM_DOUBLE, AM_RESIZE)

	COM_OBTAIN_ARRAY (com_get_array_int, COM_GET_ARRAY_INT, 0, COM_INTEGER, AM_GET)

	COM_OBTAIN_ARRAY (com_get_array_int1d, COM_GET_ARRAY_INT1D, 1, COM_INTEGER, AM_GET)

	COM_OBTAIN_ARRAY (com_get_array_int2d, COM_GET_ARRAY_INT2D, 2, COM_INTEGER, AM_GET)

	COM_OBTAIN_ARRAY (com_get_array_flt, COM_GET_ARRAY_FLT, 0, COM_REAL, AM_GET)

	COM_OBTAIN_ARRAY (com_get_array_flt1d, COM_GET_ARRAY_FLT1D, 1, COM_REAL, AM_GET)

	COM_OBTAIN_ARRAY (com_get_array_flt2d, COM_GET_ARRAY_FLT2D, 2, COM_REAL, AM_GET)

	COM_OBTAIN_ARRAY (com_get_array_dbl, COM_GET_ARRAY_DBL, 0, COM_DOUBLE, AM_GET)

	COM_OBTAIN_ARRAY (com_get_array_dbl1d, COM_GET_ARRAY_DBL1D, 1, COM_DOUBLE, AM_GET)

	COM_OBTAIN_ARRAY (com_get_array_dbl2d, COM_GET_ARRAY_DBL2D, 2, COM_DOUBLE, AM_GET)

	COM_OBTAIN_ARRAY (com_get_array_const_int, COM_GET_ARRAY_CONST_INT, 0, COM_INTEGER, AM_GETC)

	COM_OBTAIN_ARRAY (com_get_array_const_int1d, COM_GET_ARRAY_CONST_INT1D, 1, COM_INTEGER, AM_GETC)

	COM_OBTAIN_ARRAY (com_get_array_const_int2d, COM_GET_ARRAY_CONST_INT2D, 2, COM_INTEGER, AM_GETC)

	COM_OBTAIN_ARRAY (com_get_array_const_flt, COM_GET_ARRAY_CONST_FLT, 0, COM_REAL, AM_GETC)

	COM_OBTAIN_ARRAY (com_get_array_const_flt1d, COM_GET_ARRAY_CONST_FLT1D, 1, COM_REAL, AM_GETC)

	COM_OBTAIN_ARRAY (com_get_array_const_flt2d, COM_GET_ARRAY_CONST_FLT2D, 2, COM_REAL, AM_GETC)

	COM_OBTAIN_ARRAY (com_get_array_const_dbl, COM_GET_ARRAY_CONST_DBL, 0, COM_DOUBLE, AM_GETC)

	COM_OBTAIN_ARRAY (com_get_array_const_dbl1d, COM_GET_ARRAY_CONST_DBL1D, 1, COM_DOUBLE, AM_GETC)

	COM_OBTAIN_ARRAY (com_get_array_const_dbl2d, COM_GET_ARRAY_CONST_DBL2D, 2, COM_DOUBLE, AM_GETC)

	COM_OBTAIN_ARRAY (com_copy_array_int, COM_COPY_ARRAY_INT, 0, COM_INTEGER, AM_COPY)

	COM_OBTAIN_ARRAY (com_copy_array_int1d, COM_COPY_ARRAY_INT1D, 1, COM_INTEGER, AM_COPY)

	COM_OBTAIN_ARRAY (com_copy_array_int2d, COM_COPY_ARRAY_INT2D, 2, COM_INTEGER, AM_COPY)

	COM_OBTAIN_ARRAY (com_copy_array_int3d, COM_COPY_ARRAY_INT3D, 3, COM_INTEGER, AM_COPY)

	COM_OBTAIN_ARRAY (com_copy_array_flt, COM_COPY_ARRAY_FLT, 0, COM_REAL, AM_COPY)

	COM_OBTAIN_ARRAY (com_copy_array_flt1d, COM_COPY_ARRAY_FLT1D, 1, COM_REAL, AM_COPY)

	COM_OBTAIN_ARRAY (com_copy_array_flt2d, COM_COPY_ARRAY_FLT2D, 2, COM_REAL, AM_COPY)

	COM_OBTAIN_ARRAY (com_copy_array_flt3d, COM_COPY_ARRAY_FLT3D, 3, COM_REAL, AM_COPY)

	COM_OBTAIN_ARRAY (com_copy_array_dbl, COM_COPY_ARRAY_DBL, 0, COM_DOUBLE, AM_COPY)

	COM_OBTAIN_ARRAY (com_copy_array_dbl1d, COM_COPY_ARRAY_DBL1D, 1, COM_DOUBLE, AM_COPY)

	COM_OBTAIN_ARRAY (com_copy_array_dbl2d, COM_COPY_ARRAY_DBL2D, 2, COM_DOUBLE, AM_COPY)

	COM_OBTAIN_ARRAY (com_copy_array_dbl3d, COM_COPY_ARRAY_DBL3D, 3, COM_DOUBLE, AM_COPY)

	COM_OBTAIN_ARRAY_STRD (com_alloc_array_int1d_strd, COM_ALLOC_ARRAY_INT1D_STRD, 1, COM_INTEGER, AM_ALLOC)

	COM_OBTAIN_ARRAY_STRD (com_alloc_array_int2d_strd, COM_ALLOC_ARRAY_INT2D_STRD, 2, COM_INTEGER, AM_ALLOC)

	COM_OBTAIN_ARRAY_STRD (com_alloc_array_flt1d_strd, COM_ALLOC_ARRAY_FLT1D_STRD, 1, COM_REAL, AM_ALLOC)

	COM_OBTAIN_ARRAY_STRD (com_alloc_array_flt2d_strd, COM_ALLOC_ARRAY_FLT2D_STRD, 2, COM_REAL, AM_ALLOC)

	COM_OBTAIN_ARRAY_STRD (com_alloc_array_dbl1d_strd, COM_ALLOC_ARRAY_DBL1D_STRD, 1, COM_DOUBLE, AM_ALLOC)

	COM_OBTAIN_ARRAY_STRD (com_alloc_array_dbl2d_strd, COM_ALLOC_ARRAY_DBL2D_STRD, 2, COM_DOUBLE, AM_ALLOC)

	COM_OBTAIN_ARRAY_STRD (com_resize_array_int1d_strd, COM_RESIZE_ARRAY_INT1D_STRD, 1, COM_INTEGER, AM_RESIZE)

	COM_OBTAIN_ARRAY_STRD (com_resize_array_int2d_strd, COM_RESIZE_ARRAY_INT2D_STRD, 2, COM_INTEGER, AM_RESIZE)

	COM_OBTAIN_ARRAY_STRD (com_resize_array_flt1d_strd, COM_RESIZE_ARRAY_FLT1D_STRD, 1, COM_REAL, AM_RESIZE)

	COM_OBTAIN_ARRAY_STRD (com_resize_array_flt2d_strd, COM_RESIZE_ARRAY_FLT2D_STRD, 2, COM_REAL, AM_RESIZE)

	COM_OBTAIN_ARRAY_STRD (com_resize_array_dbl1d_strd, COM_RESIZE_ARRAY_DBL1D_STRD, 1, COM_DOUBLE, AM_RESIZE)

	COM_OBTAIN_ARRAY_STRD (com_resize_array_dbl2d_strd, COM_RESIZE_ARRAY_DBL2D_STRD, 2, COM_DOUBLE, AM_RESIZE)

	COM_OBTAIN_ARRAY_STRD (com_get_array_int1d_strd, COM_GET_ARRAY_INT1D_STRD, 1, COM_INTEGER, AM_GET)

	COM_OBTAIN_ARRAY_STRD (com_get_array_int2d_strd, COM_GET_ARRAY_INT2D_STRD, 2, COM_INTEGER, AM_GET)

	COM_OBTAIN_ARRAY_STRD (com_get_array_flt1d_strd, COM_GET_ARRAY_FLT1D_STRD, 1, COM_REAL, AM_GET)

	COM_OBTAIN_ARRAY_STRD (com_get_array_flt2d_strd, COM_GET_ARRAY_FLT2D_STRD, 2, COM_REAL, AM_GET)

	COM_OBTAIN_ARRAY_STRD (com_get_array_dbl1d_strd, COM_GET_ARRAY_DBL1D_STRD, 1, COM_DOUBLE, AM_GET)

	COM_OBTAIN_ARRAY_STRD (com_get_array_dbl2d_strd, COM_GET_ARRAY_DBL2D_STRD, 2, COM_DOUBLE, AM_GET)

	COM_OBTAIN_ARRAY_STRD (com_get_array_const_int1d_strd, COM_GET_ARRAY_CONST_INT1D_STRD, 1, COM_INTEGER, AM_GETC)

	COM_OBTAIN_ARRAY_STRD (com_get_array_const_int2d_strd, COM_GET_ARRAY_CONST_INT2D_STRD, 2, COM_INTEGER, AM_GETC)

	COM_OBTAIN_ARRAY_STRD (com_get_array_const_flt1d_strd, COM_GET_ARRAY_CONST_FLT1D_STRD, 1, COM_REAL, AM_GETC)

	COM_OBTAIN_ARRAY_STRD (com_get_array_const_flt2d_strd, COM_GET_ARRAY_CONST_FLT2D_STRD, 2, COM_REAL, AM_GETC)

	COM_OBTAIN_ARRAY_STRD (com_get_array_const_dbl1d_strd, COM_GET_ARRAY_CONST_DBL1D_STRD, 1, COM_DOUBLE, AM_GETC)

	COM_OBTAIN_ARRAY_STRD (com_get_array_const_dbl2d_strd, COM_GET_ARRAY_CONST_DBL2D_STRD, 2, COM_DOUBLE, AM_GETC)

	COM_OBTAIN_ARRAY_STRD (com_copy_array_int_strd, COM_COPY_ARRAY_INT_STRD, 0, COM_INTEGER, AM_COPY)

	COM_OBTAIN_ARRAY_STRD (com_copy_array_int1d_strd, COM_COPY_ARRAY_INT1D_STRD, 1, COM_INTEGER, AM_COPY)

	COM_OBTAIN_ARRAY_STRD (com_copy_array_int2d_strd, COM_COPY_ARRAY_INT2D_STRD, 2, COM_INTEGER, AM_COPY)

	COM_OBTAIN_ARRAY_STRD (com_copy_array_int3d_strd, COM_COPY_ARRAY_INT3D_STRD, 3, COM_INTEGER, AM_COPY)

	COM_OBTAIN_ARRAY_STRD (com_copy_array_flt_strd, COM_COPY_ARRAY_FLT_STRD, 0, COM_REAL, AM_COPY)

	COM_OBTAIN_ARRAY_STRD (com_copy_array_flt1d_strd, COM_COPY_ARRAY_FLT1D_STRD, 1, COM_REAL, AM_COPY)

	COM_OBTAIN_ARRAY_STRD (com_copy_array_flt2d_strd, COM_COPY_ARRAY_FLT2D_STRD, 2, COM_REAL, AM_COPY)

	COM_OBTAIN_ARRAY_STRD (com_copy_array_flt3d_strd, COM_COPY_ARRAY_FLT3D_STRD, 3, COM_REAL, AM_COPY)

	COM_OBTAIN_ARRAY_STRD (com_copy_array_dbl_strd, COM_COPY_ARRAY_DBL_STRD, 0, COM_DOUBLE, AM_COPY)

	COM_OBTAIN_ARRAY_STRD (com_copy_array_dbl1d_strd, COM_COPY_ARRAY_DBL1D_STRD, 1, COM_DOUBLE, AM_COPY)

	COM_OBTAIN_ARRAY_STRD (com_copy_array_dbl2d_strd, COM_COPY_ARRAY_DBL2D_STRD, 2, COM_DOUBLE, AM_COPY)

	COM_OBTAIN_ARRAY_STRD (com_copy_array_dbl3d_strd, COM_COPY_ARRAY_DBL3D_STRD, 3, COM_DOUBLE, AM_COPY)

	COM_OBTAIN_ARRAY_DYN (com_alloc_array_int1d_dyn, COM_ALLOC_ARRAY_INT1D_DYN, 1, COM_INTEGER, AM_ALLOC)

	COM_OBTAIN_ARRAY_DYN (com_alloc_array_int2d_dyn, COM_ALLOC_ARRAY_INT2D_DYN, 2, COM_INTEGER, AM_ALLOC)

	COM_OBTAIN_ARRAY_DYN (com_alloc_array_flt1d_dyn, COM_ALLOC_ARRAY_FLT1D_DYN, 1, COM_REAL, AM_ALLOC)

	COM_OBTAIN_ARRAY_DYN (com_alloc_array_flt2d_dyn, COM_ALLOC_ARRAY_FLT2D_DYN, 2, COM_REAL, AM_ALLOC)

	COM_OBTAIN_ARRAY_DYN (com_alloc_array_dbl1d_dyn, COM_ALLOC_ARRAY_DBL1D_DYN, 1, COM_DOUBLE, AM_ALLOC)

	COM_OBTAIN_ARRAY_DYN (com_alloc_array_dbl2d_dyn, COM_ALLOC_ARRAY_DBL2D_DYN, 2, COM_DOUBLE, AM_ALLOC)

	COM_OBTAIN_ARRAY_DYN (com_resize_array_int1d_dyn, COM_RESIZE_ARRAY_INT1D_DYN, 1, COM_INTEGER, AM_RESIZE)

	COM_OBTAIN_ARRAY_DYN (com_resize_array_int2d_dyn, COM_RESIZE_ARRAY_INT2D_DYN, 2, COM_INTEGER, AM_RESIZE)

	COM_OBTAIN_ARRAY_DYN (com_resize_array_flt1d_dyn, COM_RESIZE_ARRAY_FLT1D_DYN, 1, COM_REAL, AM_RESIZE)

	COM_OBTAIN_ARRAY_DYN (com_resize_array_flt2d_dyn, COM_RESIZE_ARRAY_FLT2D_DYN, 2, COM_REAL, AM_RESIZE)

	COM_OBTAIN_ARRAY_DYN (com_resize_array_dbl1d_dyn, COM_RESIZE_ARRAY_DBL1D_DYN, 1, COM_DOUBLE, AM_RESIZE)

	COM_OBTAIN_ARRAY_DYN (com_resize_array_dbl2d_dyn, COM_RESIZE_ARRAY_DBL2D_DYN, 2, COM_DOUBLE, AM_RESIZE)

	COM_OBTAIN_ARRAY_DYN (com_get_array_int1d_dyn, COM_GET_ARRAY_INT1D_DYN, 1, COM_INTEGER, AM_GET)

	COM_OBTAIN_ARRAY_DYN (com_get_array_int2d_dyn, COM_GET_ARRAY_INT2D_DYN, 2, COM_INTEGER, AM_GET)

	COM_OBTAIN_ARRAY_DYN (com_get_array_flt1d_dyn, COM_GET_ARRAY_FLT1D_DYN, 1, COM_REAL, AM_GET)

	COM_OBTAIN_ARRAY_DYN (com_get_array_flt2d_dyn, COM_GET_ARRAY_FLT2D_DYN, 2, COM_REAL, AM_GET)

	COM_OBTAIN_ARRAY_DYN (com_get_array_dbl1d_dyn, COM_GET_ARRAY_DBL1D_DYN, 1, COM_DOUBLE, AM_GET)

	COM_OBTAIN_ARRAY_DYN (com_get_array_dbl2d_dyn, COM_GET_ARRAY_DBL2D_DYN, 2, COM_DOUBLE, AM_GET)

	COM_OBTAIN_ARRAY_DYN (com_get_array_const_int1d_dyn, COM_GET_ARRAY_CONST_INT1D_DYN, 1, COM_INTEGER, AM_GETC)

	COM_OBTAIN_ARRAY_DYN (com_get_array_const_int2d_dyn, COM_GET_ARRAY_CONST_INT2D_DYN, 2, COM_INTEGER, AM_GETC)

	COM_OBTAIN_ARRAY_DYN (com_get_array_const_flt1d_dyn, COM_GET_ARRAY_CONST_FLT1D_DYN, 1, COM_REAL, AM_GETC)

	COM_OBTAIN_ARRAY_DYN (com_get_array_const_flt2d_dyn, COM_GET_ARRAY_CONST_FLT2D_DYN, 2, COM_REAL, AM_GETC)

	COM_OBTAIN_ARRAY_DYN (com_get_array_const_dbl1d_dyn, COM_GET_ARRAY_CONST_DBL1D_DYN, 1, COM_DOUBLE, AM_GETC)

	COM_OBTAIN_ARRAY_DYN (com_get_array_const_dbl2d_dyn, COM_GET_ARRAY_CONST_DBL2D_DYN, 2, COM_DOUBLE, AM_GETC)

	COM_OBTAIN_ARRAY_DYN (com_copy_array_int_dyn, COM_COPY_ARRAY_INT_DYN, 0, COM_INTEGER, AM_COPY)

	COM_OBTAIN_ARRAY_DYN (com_copy_array_int1d_dyn, COM_COPY_ARRAY_INT1D_DYN, 1, COM_INTEGER, AM_COPY)

	COM_OBTAIN_ARRAY_DYN (com_copy_array_int2d_dyn, COM_COPY_ARRAY_INT2D_DYN, 2, COM_INTEGER, AM_COPY)

	COM_OBTAIN_ARRAY_DYN (com_copy_array_int3d_dyn, COM_COPY_ARRAY_INT3D_DYN, 3, COM_INTEGER, AM_COPY)

	COM_OBTAIN_ARRAY_DYN (com_copy_array_flt_dyn, COM_COPY_ARRAY_FLT_DYN, 0, COM_REAL, AM_COPY)

	COM_OBTAIN_ARRAY_DYN (com_copy_array_flt1d_dyn, COM_COPY_ARRAY_FLT1D_DYN, 1, COM_REAL, AM_COPY)

	COM_OBTAIN_ARRAY_DYN (com_copy_array_flt2d_dyn, COM_COPY_ARRAY_FLT2D_DYN, 2, COM_REAL, AM_COPY)

	COM_OBTAIN_ARRAY_DYN (com_copy_array_flt3d_dyn, COM_COPY_ARRAY_FLT3D_DYN, 3, COM_REAL, AM_COPY)

	COM_OBTAIN_ARRAY_DYN (com_copy_array_dbl_dyn, COM_COPY_ARRAY_DBL_DYN, 0, COM_DOUBLE, AM_COPY)

	COM_OBTAIN_ARRAY_DYN (com_copy_array_dbl1d_dyn, COM_COPY_ARRAY_DBL1D_DYN, 1, COM_DOUBLE, AM_COPY)

	COM_OBTAIN_ARRAY_DYN (com_copy_array_dbl2d_dyn, COM_COPY_ARRAY_DBL2D_DYN, 2, COM_DOUBLE, AM_COPY)

	COM_OBTAIN_ARRAY_DYN (com_copy_array_dbl3d_dyn, COM_COPY_ARRAY_DBL3D_DYN, 3, COM_DOUBLE, AM_COPY)

	COM_COPY_ARRAY_OFF (com_copy_array_int_off, COM_COPY_ARRAY_INT_OFF, 0, COM_INTEGER)

	COM_COPY_ARRAY_OFF (com_copy_array_int1d_off, COM_COPY_ARRAY_INT1D_OFF, 1, COM_INTEGER)

	COM_COPY_ARRAY_OFF (com_copy_array_int2d_off, COM_COPY_ARRAY_INT2D_OFF, 2, COM_INTEGER)

	COM_COPY_ARRAY_OFF (com_copy_array_int3d_off, COM_COPY_ARRAY_INT3D_OFF, 3, COM_INTEGER)

	COM_COPY_ARRAY_OFF (com_copy_array_flt_off, COM_COPY_ARRAY_FLT_OFF, 0, COM_REAL)

	COM_COPY_ARRAY_OFF (com_copy_array_flt1d_off, COM_COPY_ARRAY_FLT1D_OFF, 1, COM_REAL)

	COM_COPY_ARRAY_OFF (com_copy_array_flt2d_off, COM_COPY_ARRAY_FLT2D_OFF, 2, COM_REAL)

	COM_COPY_ARRAY_OFF (com_copy_array_flt3d_off, COM_COPY_ARRAY_FLT3D_OFF, 3, COM_REAL)

	COM_COPY_ARRAY_OFF (com_copy_array_dbl_off, COM_COPY_ARRAY_DBL_OFF, 0, COM_DOUBLE)

	COM_COPY_ARRAY_OFF (com_copy_array_dbl1d_off, COM_COPY_ARRAY_DBL1D_OFF, 1, COM_DOUBLE)

	COM_COPY_ARRAY_OFF (com_copy_array_dbl2d_off, COM_COPY_ARRAY_DBL2D_OFF, 2, COM_DOUBLE)

	COM_COPY_ARRAY_OFF (com_copy_array_dbl3d_off, COM_COPY_ARRAY_DBL3D_OFF, 3, COM_DOUBLE)

	COM_APPEND_ARRAY_SCALAR (com_append_array_chr, COM_APPEND_ARRAY_CHR)

	COM_APPEND_ARRAY_SCALAR (com_append_array_int, COM_APPEND_ARRAY_INT)

	COM_APPEND_ARRAY_SCALAR (com_append_array_flt, COM_APPEND_ARRAY_FLT)

	COM_APPEND_ARRAY_SCALAR (com_append_array_dbl, COM_APPEND_ARRAY_DBL)

template<int dim, COM_Type type>
void	com_append_array_helper (const std::string &waname, int pane_id, const void *val, int v_strd, int v_size, int l=0)

template<int dim, COM_Type type>
void	com_append_array_f (const char waname, int pane_id, const void val, int v_strd, int v_size, int l1, int l2)

	COM_APPEND_ARRAY (com_append_array_int1d, COM_APPEND_ARRAY_INT1D, 1, COM_INTEGER)

	COM_APPEND_ARRAY (com_append_array_flt1d, COM_APPEND_ARRAY_FLT1D, 1, COM_REAL)

	COM_APPEND_ARRAY (com_append_array_dbl1d, COM_APPEND_ARRAY_DBL1D, 1, COM_DOUBLE)

	COM_APPEND_ARRAY (com_append_array_int2d, COM_APPEND_ARRAY_INT2D, 2, COM_INTEGER)

	COM_APPEND_ARRAY (com_append_array_flt2d, COM_APPEND_ARRAY_FLT2D, 2, COM_REAL)

	COM_APPEND_ARRAY (com_append_array_dbl2d, COM_APPEND_ARRAY_DBL2D, 2, COM_DOUBLE)

	COM_APPEND_ARRAY (com_append_array_int3d, COM_APPEND_ARRAY_INT3D, 3, COM_INTEGER)

	COM_APPEND_ARRAY (com_append_array_flt3d, COM_APPEND_ARRAY_FLT3D, 3, COM_REAL)

	COM_APPEND_ARRAY (com_append_array_dbl3d, COM_APPEND_ARRAY_DBL3D, 3, COM_DOUBLE)

	COM_GET_BOUNDS (com_get_bounds_int, COM_GET_BOUNDS_INT)

	COM_GET_BOUNDS (com_get_bounds_flt, COM_GET_BOUNDS_FLT)

	COM_GET_BOUNDS (com_get_bounds_dbl, COM_GET_BOUNDS_DBL)

int	COM_F_FUNC2 (com_check_bounds, COM_CHECK_BOUNDS) const

void	COM_F_FUNC2 (com_use_attr, COM_USE_ATTR) const

void	COM_F_FUNC2 (com_clone_attr, COM_CLONE_ATTR) const

void	COM_F_FUNC2 (com_copy_attr, COM_COPY_ATTR) const

void	COM_F_FUNC2 (com_copy_attr_hdls, COM_COPY_ATTR_HDLS) const

void	COM_F_FUNC2 (com_use_attr_ghost, COM_USE_ATTR_GHOST) const

void	COM_F_FUNC2 (com_clone_attr_ghost, COM_CLONE_ATTR_GHOST) const

void	COM_F_FUNC2 (com_copy_attr_ghost, COM_COPY_ATTR_GHOST) const

void	COM_F_FUNC2 (com_copy_attr_ghost_hdls, COM_COPY_ATTR_GHOST_HDLS) const

void	COM_F_FUNC2 (com_use_attr_sub, COM_USE_ATTR_SUB) const

void	COM_F_FUNC2 (com_clone_attr_sub, COM_CLONE_ATTR_sub) const

void	COM_F_FUNC2 (com_copy_attr_sub, COM_COPY_ATTR_sub) const

void	COM_F_FUNC2 (com_copy_attr_ghost_sub_hdls, COM_COPY_ATTR_GHOST_SUB_HDLS) const

void	COM_F_FUNC2 (com_deallocate_win, COM_DEALLOCATE_WIN) const

void	COM_F_FUNC2 (com_deallocate_pane, COM_DEALLOCATE_PANE) const

void	COM_F_FUNC2 (com_get_size1, COM_GET_SIZE1) const

void	COM_F_FUNC2 (com_get_size2, COM_GET_SIZE2) const

void	COM_F_FUNC2 (com_get_attribute, COM_GET_ATTRIBUTE) const

void	COM_F_FUNC2 (com_set_function, COM_SET_FUNCTION) const

void	COM_F_FUNC2 (com_set_member_function, COM_SET_MEMBER_FUNCTION) const

void	COM_F_FUNC2 (com_get_communicator, COM_GET_COMMUNICATOR) const

void	COM_F_FUNC2 (com_get_pane_ids_on_rank, COM_GET_PANE_IDS_ON_RANK) const

void	COM_F_FUNC2 (com_get_pane_ids, COM_GET_PANE_IDS) const

void	COM_F_FUNC2 (com_get_npanes, COM_GET_NPANES) const

static void	mapcharptr (char str, void names, int f90ptr_treat, int l1, int l2)

void	COM_F_FUNC2 (com_get_attributes, COM_GET_ATTRIBUTES) const

void	COM_F_FUNC2 (com_get_connectivities, COM_GET_CONNECTIVITIES) const

void	COM_F_FUNC2 (com_get_parent, COM_GET_PARENT) const

int	COM_F_FUNC2 (com_get_status, COM_GET_STATUS) const

void	COM_F_FUNC2 (com_free_buffer_char, COM_FREE_BUFFER_CHAR)

void	COM_F_FUNC2 (com_free_buffer_int, COM_FREE_BUFFER_INT)

int	COM_F_FUNC2 (com_get_window_handle, COM_GET_WINDOW_HANDLE) const

int	COM_F_FUNC2 (com_get_attribute_handle, COM_GET_ATTRIBUTE_HANDLE) const

int	COM_F_FUNC2 (com_get_attribute_handle_const, COM_GET_ATTRIBUTE_HANDLE_CONST) const

int	COM_F_FUNC2 (com_get_function_handle, COM_GET_FUNCTION_HANDLE) const

void	COM_F_FUNC2 (com_call_function, COM_CALL_FUNCTION) const

void	COM_F_FUNC2 (com_icall_function, COM_ICALL_FUNCTION) const

void	COM_F_FUNC2 (com_test, COM_TEST) const

void	COM_F_FUNC2 (com_wait, COM_WAIT) const

void	COM_F_FUNC2 (com_set_pointer, COM_SET_POINTER) const

void	COM_F_FUNC2 (com_get_pointer, COM_GET_POINTER) const

void	COM_F_FUNC2 (com_set_object, COM_SET_OBJECT) const

void	COM_F_FUNC2 (com_get_object, COM_GET_OBJECT) const

void	COM_F_FUNC2 (com_set_verbose, COM_SET_VERBOSE) const

void	COM_F_FUNC2 (com_set_debug, COM_SET_DEBUG) const

void	COM_F_FUNC2 (com_set_profiling_barrier, COM_SET_PROFILING_BARRIER) const

void	COM_F_FUNC2 (com_set_profiling, COM_SET_PROFILING) const

void	COM_F_FUNC2 (com_print_profile, COM_PRINT_PROFILE) const

int	COM_F_FUNC2 (com_get_sizeof, COM_GET_SIZEOF) const

int	COM_F_FUNC2 (com_get_error_code, COM_GET_ERROR_CODE)()

void	COM_F_FUNC2 (com_settypeinfo, COM_SETTYPEINFO)

COM_END_NAME_SPACE int	COM_F_FUNC2 (com_get_sizeof_f90pointer, COM_GET_SIZEOF_F90POINTER)()

void	COM_F_FUNC2 (com_chkptr_begin, COM_CHKPTR_BEGIN)()

void	COM_F_FUNC2 (com_chkptr_end, COM_CHKPTR_END) const

Detailed Description

Contains the wrapper routines for the F90 binding of Roccom implementation.

See Also: utilities.f90, roccomf90.h, mapptr.h

Definition in file roccom_f.C.

Macro Definition Documentation

#define CHKLEN ( x ) COM_assertion( x>=0 && x<MAX_NAMELEN)

Definition at line 112 of file roccom_f.C.

Referenced by com_append_array_f(), COM_F_FUNC2(), com_obtain_array_f(), com_set_array_const_f(), and com_set_array_f().

#define COM_APPEND_ARRAY	(	func,
		FUNC,
		dim,
		type
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *waname, const int &pane_id, \
    const void *val, int &v_strd, int &v_size, int l1, int l2) \
{ \
  com_append_array_f<dim,type>( waname, pane_id, \
                                val, v_strd, v_size, l1, l2); \
}

Definition at line 1162 of file roccom_f.C.

#define COM_APPEND_ARRAY_SCALAR	(	func,
		FUNC
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *waname, const int &pane_id, \
    const void *val, const int &v_strd, const int &v_size, int wa_len) \
{ \
  CHKLEN(wa_len); \
  COM_get_roccom()->append_array( string(waname,wa_len), pane_id, \
                                  val, v_strd, v_size); \
}

Definition at line 1113 of file roccom_f.C.

#define COM_COPY_ARRAY_OFF	(	func,
		FUNC,
		dim,
		type
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
( const char *waname, const int &pane_id, void *addr, const int &strd, \
  const int &cap, const int &offset, int l1, int l2) \
{ \
  com_obtain_array_f<dim, type, AM_COPY>( waname, pane_id, addr, \
        const_cast<int&>(strd), const_cast<int&>(cap), offset, l1, l2);\
}

Definition at line 1079 of file roccom_f.C.

#define COM_GET_BOUNDS	(	func,
		FUNC
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pane_id, \
    void *lbound, void *ubound, int len) \
{ \
  CHKLEN(len);\
  COM_get_roccom()->get_bounds( string(wa_str,len), pane_id, lbound, ubound); \
}

Definition at line 1181 of file roccom_f.C.

#define COM_OBTAIN_ARRAY	(	func,
		FUNC,
		dim,
		type,
		mode
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *waname, const int &pane_id, \
    void *addr, int l1, int l2) \
{ \
  int minusone=-1, zero = 0; \
  com_obtain_array_f<dim,type,mode>( waname, pane_id, addr, \
                                     minusone, zero, zero, l1, l2); \
}

Definition at line 787 of file roccom_f.C.

#define COM_OBTAIN_ARRAY_DYN	(	func,
		FUNC,
		dim,
		type,
		mode
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
( const char *waname, const int &pane_id, void *addr, \
  int &strd, int &cap, int l1, int l2) \
{ \
  com_obtain_array_f<dim, type, mode>( waname, pane_id, addr, \
                                      strd, cap, 0, l1, l2);\
}

Definition at line 993 of file roccom_f.C.

#define COM_OBTAIN_ARRAY_STRD	(	func,
		FUNC,
		dim,
		type,
		mode
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *waname, const int &pane_id, void *addr, \
    int &strd, int l1, int l2) \
{ \
  int zero = 0; \
  com_obtain_array_f<dim, type,mode>( waname, pane_id, addr, strd, zero, \
                                      zero, l1, l2); \
}

Definition at line 906 of file roccom_f.C.

#define COM_SET_ARRAY_CONST_DYN_PTR	(	func,
		FUNC,
		dim,
		type
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pid, void *addr, \
    const int &strd, const int &cap, int l1, int l2) \
{ \
  com_set_array_const_f<dim,type>( wa_str, pid, addr, strd, cap, l1, l2); \
}

Definition at line 675 of file roccom_f.C.

#define COM_SET_ARRAY_CONST_DYN_SCALAR	(	func,
		FUNC
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pid, void *addr, const int &strd, \
    const int &cap, int wa_len, int) \
{ \
  CHKLEN(wa_len); \
  COM_get_roccom()->set_array( string(wa_str,wa_len), pid, addr, \
                               strd, cap, true); \
}

Definition at line 658 of file roccom_f.C.

#define COM_SET_ARRAY_CONST_PTR	(	func,
		FUNC,
		dim,
		type
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pid, void *addr, \
    int l1, int l2) \
{ \
  com_set_array_const_f<dim,type>( wa_str, pid, addr, 0, 0, l1, l2);\
}

Definition at line 586 of file roccom_f.C.

#define COM_SET_ARRAY_CONST_SCALAR	(	func,
		FUNC
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pid, void *addr, \
    int wa_len, int) \
{ \
  CHKLEN(wa_len); \
  COM_get_roccom()->set_array( string(wa_str,wa_len), pid, addr, true); \
}

Definition at line 548 of file roccom_f.C.

#define COM_SET_ARRAY_CONST_STRD_PTR	(	func,
		FUNC,
		dim,
		type
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pid, void *addr, \
    const int &strd, int l1, int l2) \
{ \
  com_set_array_const_f<dim,type>( wa_str, pid, addr, strd, 0, l1, l2);\
}

Definition at line 631 of file roccom_f.C.

#define COM_SET_ARRAY_CONST_STRD_SCALAR	(	func,
		FUNC
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pid,  void *addr, int &strd, \
    int wa_len) \
{ \
  CHKLEN(wa_len); \
  COM_get_roccom()->set_array( string(wa_str,wa_len), pid, addr, strd, true); \
}

Definition at line 613 of file roccom_f.C.

#define COM_SET_ARRAY_DYN_PTR	(	func,
		FUNC,
		dim,
		type
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pid, void *addr, \
    const int &strd, const int &cap, int l1, int l2) \
{ \
  com_set_array_f<dim,type>( wa_str, pid, addr, strd, cap, l1, l2); \
}

Definition at line 509 of file roccom_f.C.

#define COM_SET_ARRAY_DYN_SCALAR	(	func,
		FUNC
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pid, void *addr, const int &strd, \
    const int &cap, int wa_len, int) \
{ \
  CHKLEN(wa_len); \
  COM_get_roccom()->set_array( string(wa_str,wa_len), pid, addr, strd, cap); \
}

Definition at line 496 of file roccom_f.C.

#define COM_SET_ARRAY_PTR	(	func,
		FUNC,
		dim,
		type
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pid, void *addr, \
    int l1, int l2) \
{ \
  com_set_array_f<dim,type>( wa_str, pid, addr, 0, 0, l1, l2);\
}

Definition at line 436 of file roccom_f.C.

#define COM_SET_ARRAY_SCALAR	(	func,
		FUNC
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pid, void *addr, \
    int wa_len, int) \
{ \
  CHKLEN(wa_len); \
  COM_get_roccom()->set_array( string(wa_str,wa_len), pid, addr); \
}

Definition at line 396 of file roccom_f.C.

#define COM_SET_ARRAY_STRD_PTR	(	func,
		FUNC,
		dim,
		type
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pid, void *addr, \
    const int &strd, int l1, int l2) \
{ \
  com_set_array_f<dim,type>( wa_str, pid, addr, strd, 0, l1, l2);\
}

Definition at line 469 of file roccom_f.C.

#define COM_SET_ARRAY_STRD_SCALAR	(	func,
		FUNC
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pid,  void *addr, const int &strd, \
    int wa_len) \
{ \
  CHKLEN(wa_len); \
  COM_get_roccom()->set_array( string(wa_str,wa_len), pid, addr, strd); \
}

Definition at line 454 of file roccom_f.C.

#define COM_SET_BOUNDS	(	func,
		FUNC
	)

Value:

extern "C" void COM_F_FUNC2( func, FUNC) \
  ( const char *wa_str, const int &pane_id, \
    const void *lbound, const void *ubound, int len) \
{ \
  CHKLEN(len);\
  COM_get_roccom()->set_bounds( string(wa_str,len), pane_id, lbound, ubound); \
}

Definition at line 702 of file roccom_f.C.

Enumeration Type Documentation

enum Access_mode

Enumerator
AM_ALLOC
AM_RESIZE
AM_GET
AM_GETC
AM_COPY

Definition at line 715 of file roccom_f.C.

715 { AM_ALLOC, AM_RESIZE, AM_GET, AM_GETC, AM_COPY};

AM_COPY

Definition: roccom_f.C:715

AM_GETC

Definition: roccom_f.C:715

AM_GET

Definition: roccom_f.C:715

AM_RESIZE

Definition: roccom_f.C:715

AM_ALLOC

Definition: roccom_f.C:715

Function Documentation

COM_APPEND_ARRAY	(	com_append_array_int1d	,
		COM_APPEND_ARRAY_INT1D	,
		1	,
		COM_INTEGER
	)

COM_APPEND_ARRAY	(	com_append_array_flt1d	,
		COM_APPEND_ARRAY_FLT1D	,
		1	,
		COM_REAL
	)

COM_APPEND_ARRAY	(	com_append_array_dbl1d	,
		COM_APPEND_ARRAY_DBL1D	,
		1	,
		COM_DOUBLE
	)

COM_APPEND_ARRAY	(	com_append_array_int2d	,
		COM_APPEND_ARRAY_INT2D	,
		2	,
		COM_INTEGER
	)

COM_APPEND_ARRAY	(	com_append_array_flt2d	,
		COM_APPEND_ARRAY_FLT2D	,
		2	,
		COM_REAL
	)

COM_APPEND_ARRAY	(	com_append_array_dbl2d	,
		COM_APPEND_ARRAY_DBL2D	,
		2	,
		COM_DOUBLE
	)

COM_APPEND_ARRAY	(	com_append_array_int3d	,
		COM_APPEND_ARRAY_INT3D	,
		3	,
		COM_INTEGER
	)

COM_APPEND_ARRAY	(	com_append_array_flt3d	,
		COM_APPEND_ARRAY_FLT3D	,
		3	,
		COM_REAL
	)

COM_APPEND_ARRAY	(	com_append_array_dbl3d	,
		COM_APPEND_ARRAY_DBL3D	,
		3	,
		COM_DOUBLE
	)

void com_append_array_f	(	const char *	waname,
		int	pane_id,
		const void *	val,
		int	v_strd,
		int	v_size,
		int	l1,
		int	l2
	)

Definition at line 1141 of file roccom_f.C.

References CHKLEN, Roccom_base::FPTR_APPEND, and Roccom_base::FPTR_INSERT.

                                     {
   int f90ptr_treat = get_f90ptr_treat();
     
   if ( f90ptr_treat == Roccom_base::FPTR_INSERT) {
     int wa_len=l2; CHKLEN(wa_len);
     com_append_array_helper<dim,type>( string(waname, wa_len), pane_id, 
                                        val, v_strd, v_size, l1);
   }
   else {
     int wa_len=l1; CHKLEN(wa_len);
     if ( f90ptr_treat == Roccom_base::FPTR_APPEND)
       com_append_array_helper<dim,type>( string(waname, wa_len), pane_id, 
                                          val, v_strd, v_size, l2);
     else
       com_append_array_helper<dim,type>( string(waname, wa_len), pane_id,
                                          val, v_strd, v_size);
   }
 }

void com_append_array_helper	(	const std::string &	waname,
		int	pane_id,
		const void *	val,
		int	v_strd,
		int	v_size,
		int	l = `0`
	)

Definition at line 1130 of file roccom_f.C.

References COM_get_roccom().

                                   {
   
   void *v_ptr=com_get_address_f<dim, type>( const_cast<void*>(val), l);
 
   COM_get_roccom()->append_array( waname, pane_id, v_ptr, v_strd, v_size);
 }

Here is the call graph for this function:

COM_APPEND_ARRAY_SCALAR	(	com_append_array_chr	,
		COM_APPEND_ARRAY_CHR
	)

COM_APPEND_ARRAY_SCALAR	(	com_append_array_int	,
		COM_APPEND_ARRAY_INT
	)

COM_APPEND_ARRAY_SCALAR	(	com_append_array_flt	,
		COM_APPEND_ARRAY_FLT
	)

COM_APPEND_ARRAY_SCALAR	(	com_append_array_dbl	,
		COM_APPEND_ARRAY_DBL
	)

COM_COPY_ARRAY_OFF	(	com_copy_array_int_off	,
		COM_COPY_ARRAY_INT_OFF	,
		0	,
		COM_INTEGER
	)

COM_COPY_ARRAY_OFF	(	com_copy_array_int1d_off	,
		COM_COPY_ARRAY_INT1D_OFF	,
		1	,
		COM_INTEGER
	)

COM_COPY_ARRAY_OFF	(	com_copy_array_int2d_off	,
		COM_COPY_ARRAY_INT2D_OFF	,
		2	,
		COM_INTEGER
	)

COM_COPY_ARRAY_OFF	(	com_copy_array_int3d_off	,
		COM_COPY_ARRAY_INT3D_OFF	,
		3	,
		COM_INTEGER
	)

COM_COPY_ARRAY_OFF	(	com_copy_array_flt_off	,
		COM_COPY_ARRAY_FLT_OFF	,
		0	,
		COM_REAL
	)

COM_COPY_ARRAY_OFF	(	com_copy_array_flt1d_off	,
		COM_COPY_ARRAY_FLT1D_OFF	,
		1	,
		COM_REAL
	)

COM_COPY_ARRAY_OFF	(	com_copy_array_flt2d_off	,
		COM_COPY_ARRAY_FLT2D_OFF	,
		2	,
		COM_REAL
	)

COM_COPY_ARRAY_OFF	(	com_copy_array_flt3d_off	,
		COM_COPY_ARRAY_FLT3D_OFF	,
		3	,
		COM_REAL
	)

COM_COPY_ARRAY_OFF	(	com_copy_array_dbl_off	,
		COM_COPY_ARRAY_DBL_OFF	,
		0	,
		COM_DOUBLE
	)

COM_COPY_ARRAY_OFF	(	com_copy_array_dbl1d_off	,
		COM_COPY_ARRAY_DBL1D_OFF	,
		1	,
		COM_DOUBLE
	)

COM_COPY_ARRAY_OFF	(	com_copy_array_dbl2d_off	,
		COM_COPY_ARRAY_DBL2D_OFF	,
		2	,
		COM_DOUBLE
	)

COM_COPY_ARRAY_OFF	(	com_copy_array_dbl3d_off	,
		COM_COPY_ARRAY_DBL3D_OFF	,
		3	,
		COM_DOUBLE
	)

void COM_F_FUNC2	(	com_init	,
		COM_INIT
	)

Definition at line 61 of file roccom_f.C.

References Roccom_base::init().

62 { Roccom_base::init( NULL, NULL); }

Roccom_base::init

static void init(int *argc, char ***argv)

Definition: Roccom_base.C:186

Here is the call graph for this function:

void COM_F_FUNC2	(	com_finalize	,
		COM_FINALIZE
	)

Definition at line 64 of file roccom_f.C.

References Roccom_base::finalize().

65 { Roccom_base::finalize(); }

Roccom_base::finalize

static void finalize()

Definition: Roccom_base.C:197

Here is the call graph for this function:

int COM_F_FUNC2	(	com_initialized	,
		COM_INITIALIZED
	)

Definition at line 67 of file roccom_f.C.

References Roccom_base::initialized().

68 { return Roccom_base::initialized(); }

Roccom_base::initialized

static bool initialized()

Checks whether Roccom has been initialized.

Definition: Roccom_base.h:82

Here is the call graph for this function:

void COM_F_FUNC2	(	com_abort	,
		COM_ABORT
	)		const

Definition at line 72 of file roccom_f.C.

References Roccom_base::abort().

73 { Roccom_base::abort( ierr); }

Roccom_base::abort

static void abort(int ierr)

Definition: Roccom_base.C:205

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_default_communicator	,
		COM_SET_DEFAULT_COMMUNICATOR
	)		const

Definition at line 75 of file roccom_f.C.

References COMMPI_Comm_f2c(), and Roccom_base::set_default_communicator().

77 { Roccom_base::set_default_communicator( COMMPI_Comm_f2c(comm, MPI_Comm())); }

COMMPI_Comm_f2c

T COMMPI_Comm_f2c(int c, T)

Definition: commpi.h:202

Roccom_base::set_default_communicator

static void set_default_communicator(MPI_Comm comm)

Set the default communicator of Roccom.

Definition: Roccom_base.h:71

Here is the call graph for this function:

int COM_F_FUNC2	(	com_get_default_communicator	,
		COM_GET_DEFAULT_COMMUNICATOR
	)

Definition at line 79 of file roccom_f.C.

References COMMPI_Comm_c2f(), and Roccom_base::get_default_communicator().

81 { return COMMPI_Comm_c2f( Roccom_base::get_default_communicator()); }

COMMPI_Comm_c2f

int COMMPI_Comm_c2f(T t)

Definition: commpi.h:190

Roccom_base::get_default_communicator

static MPI_Comm get_default_communicator()

Get the default communicator of Roccom.

Definition: Roccom_base.h:75

Here is the call graph for this function:

void COM_F_FUNC2	(	com_load_module	,
		COM_LOAD_MODULE
	)		const

Definition at line 87 of file roccom_f.C.

References COM_get_roccom().

 {
   COM_get_roccom()->load_module( std::string( libname, l1),
                                  std::string( winname, l2));
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_unload_module_1	,
		COM_UNLOAD_MODULE_1
	)		const

Definition at line 95 of file roccom_f.C.

References COM_get_roccom().

 {
   COM_get_roccom()->unload_module( std::string( libname, l1), "");
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_unload_module_2	,
		COM_UNLOAD_MODULE_2
	)		const

Definition at line 101 of file roccom_f.C.

References COM_get_roccom().

 {
   COM_get_roccom()->unload_module( std::string( libname, l1),
                                    std::string( winname, l2));
 }

Here is the call graph for this function:

int COM_F_FUNC2	(	com_chkptr_c	,
		COM_CHKPTR_C
	)		const

Definition at line 119 of file roccom_f.C.

References Roccom_base::_f90ptr_treat, COM_F_FUNC2, and COM_get_roccom().

                               {
   Roccom_base_friend *rcom = (Roccom_base_friend *)COM_get_roccom();
 
   if ( rcom->_f90ptr_treat<0)
     rcom->_f90ptr_treat = COM_F_FUNC2( com_chkptr_c, COM_CHKPTR_C)
       ( 0, 0, 0, 0, 0, 0, 0, 0, 0);
 
   return rcom->_f90ptr_treat;
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_new_window_null	,
		COM_NEW_WINDOW_NULL
	)		const

Definition at line 134 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

136 { CHKLEN(w_len); COM_get_roccom()->new_window( string( w_str, w_len), MPI_COMM_NULL); }

CHKLEN

#define CHKLEN(x)

Definition: roccom_f.C:112

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_new_window_mpi	,
		COM_NEW_WINDOW_MPI
	)		const

Definition at line 138 of file roccom_f.C.

References CHKLEN, COM_get_roccom(), and COMMPI_Comm_f2c().

                                                 {
   CHKLEN(w_len); 
   COM_get_roccom()->new_window
     ( string( w_str, w_len), COMMPI_Comm_f2c(c, MPI_Comm())); 
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_delete_window	,
		COM_DELETE_WINDOW
	)		const

Definition at line 146 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

148 { CHKLEN(len); COM_get_roccom()->delete_window( string( str, len)); }

CHKLEN

#define CHKLEN(x)

Definition: roccom_f.C:112

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_window_init_done_1arg	,
		COM_WINDOW_INIT_DONE_1ARG
	)		const

Definition at line 150 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

152 { CHKLEN(w_len); COM_get_roccom()->window_init_done( string(w_str,w_len)); }

CHKLEN

#define CHKLEN(x)

Definition: roccom_f.C:112

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_window_init_done_2arg	,
		COM_WINDOW_INIT_DONE_2ARG
	)		const

Definition at line 154 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

156 { CHKLEN(w_len); COM_get_roccom()->window_init_done( string(w_str,w_len), *c); }

CHKLEN

#define CHKLEN(x)

Definition: roccom_f.C:112

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_delete_pane	,
		COM_DELETE_PANE
	)		const

Definition at line 158 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

160 { CHKLEN(w_len); COM_get_roccom()->delete_pane( string(w_str,w_len), pid); }

CHKLEN

#define CHKLEN(x)

Definition: roccom_f.C:112

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_new_attribute	,
		COM_NEW_ATTRIBUTE
	)		const

Definition at line 162 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN((int)wa_len); CHKLEN((int)l_len); CHKLEN((int)u_len);
   COM_get_roccom()->new_attribute( string( wa_str,(int)wa_len), loc, type, 
                                    size, string( u_str,(int)u_len));
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_delete_attribute	,
		COM_DELETE_ATTRIBUTE
	)		const

Definition at line 172 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(wa_len); 
   COM_get_roccom()->delete_attribute( string( wa_str,wa_len));
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_size1	,
		COM_SET_SIZE1
	)		const

Definition at line 179 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 { 
   CHKLEN( len);
   COM_get_roccom()->set_size( std::string(wa_str,len), pane_id, size); 
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_size2	,
		COM_SET_SIZE2
	)		const

Definition at line 186 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 { 
   CHKLEN( len);
   COM_get_roccom()->set_size( std::string(wa_str,len), pane_id, size, ng); 
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_map_cptr	,
		COM_MAP_CPTR
	)

Definition at line 195 of file roccom_f.C.

References x.

197 { if ( x==(void*)p) *p=NULL; else *p = x; }

x

void int int REAL * x

Definition: read.cpp:74

void COM_F_FUNC2	(	com_map_cptr_chr	,
		COM_MAP_CPTR_CHR
	)

Definition at line 200 of file roccom_f.C.

References x.

202 { if ( x==(void*)p) *p=NULL; else *p = x; }

x

void int int REAL * x

Definition: read.cpp:74

void COM_F_FUNC2	(	com_map_cptr_int	,
		COM_MAP_CPTR_INT
	)

Definition at line 205 of file roccom_f.C.

References x.

207 { if ( x==(void*)p) *p=NULL; else *p = x; }

x

void int int REAL * x

Definition: read.cpp:74

void COM_F_FUNC2	(	com_map_cptr_flt	,
		COM_MAP_CPTR_FLT
	)

Definition at line 210 of file roccom_f.C.

References x.

212 { if ( x==(void*)p) *p=NULL; else *p = x; }

x

void int int REAL * x

Definition: read.cpp:74

void COM_F_FUNC2	(	com_map_cptr_dbl	,
		COM_MAP_CPTR_DBL
	)

Definition at line 215 of file roccom_f.C.

References x.

217 { if ( x==(void*)p) *p=NULL; else *p = x; }

x

void int int REAL * x

Definition: read.cpp:74

void COM_F_FUNC2	(	com_set_array_null	,
		COM_SET_ARRAY_NULL
	)		const

Definition at line 219 of file roccom_f.C.

References COM_get_roccom().

221 { COM_get_roccom()->set_array( std::string(wa_str,len),

222 pane_id, NULL); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_array_const_null	,
		COM_SET_ARRAY_CONST_NULL
	)		const

Definition at line 224 of file roccom_f.C.

References COM_get_roccom().

226 { COM_get_roccom()->set_array( std::string(wa_str,len),

227 pane_id, NULL); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_external	,
		COM_SET_EXTERNAL
	)		const

Definition at line 229 of file roccom_f.C.

References COM_get_roccom().

231 { COM_get_roccom()->set_array( std::string(wa_str,len),

232 pane_id, p); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_external_const	,
		COM_SET_EXTERNAL_CONST
	)		const

Definition at line 234 of file roccom_f.C.

References COM_get_roccom().

236 { COM_get_roccom()->set_array( std::string(wa_str,len),

237 pane_id, p, true); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

int COM_F_FUNC2	(	com_call_system	,
		COM_CALL_SYSTEM
	)		const

Definition at line 240 of file roccom_f.C.

References cimg_library::cimg::system().

242 { std::string command(com, len); return system( command.c_str()); }

cimg_library::cimg::system

int system(const char *const command, const char *const module_name=0)

Definition: CImg.h:4491

Here is the call graph for this function:

void COM_F_FUNC2	(	com_call_exit	,
		COM_CALL_EXIT
	)		const

Definition at line 245 of file roccom_f.C.

247 { exit(ierr); }

void COM_F_FUNC2	(	com_call_atexit	,
		COM_CALL_ATEXIT
	)

Definition at line 250 of file roccom_f.C.

252 { atexit(func); }

void COM_F_FUNC2	(	com_alloc_array_win	,
		COM_ALLOC_ARRAY_WIN
	)		const

Definition at line 716 of file roccom_f.C.

References COM_get_roccom().

718 { COM_get_roccom()->allocate_array( std::string( wa_str, len)); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_alloc_array_pane	,
		COM_ALLOC_ARRAY_PANE
	)		const

Definition at line 720 of file roccom_f.C.

References COM_get_roccom().

722 { COM_get_roccom()->allocate_array( std::string( wa_str, len), pane_id); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_resize_array_win	,
		COM_RESIZE_ARRAY_WIN
	)		const

Definition at line 816 of file roccom_f.C.

References COM_get_roccom().

818 { COM_get_roccom()->resize_array( std::string( wa_str, len)); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_resize_array_pane	,
		COM_RESIZE_ARRAY_PANE
	)		const

Definition at line 820 of file roccom_f.C.

References COM_get_roccom().

822 { COM_get_roccom()->resize_array( std::string( wa_str, len), pane_id); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

int COM_F_FUNC2	(	com_check_bounds	,
		COM_CHECK_BOUNDS
	)		const

Definition at line 1194 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 { 
   CHKLEN(len);
   return COM_get_roccom()->check_bounds( string(wa_str,len), pane_id); 
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_use_attr	,
		COM_USE_ATTR
	)		const

Definition at line 1201 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(w_len); CHKLEN(a_len);
   COM_get_roccom()->
     use_attribute( string(wname, w_len), string(attr, a_len));
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_clone_attr	,
		COM_CLONE_ATTR
	)		const

Definition at line 1209 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(w_len); CHKLEN(a_len);
   COM_get_roccom()->
     clone_attribute( string(wname, w_len), string(attr, a_len));
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_copy_attr	,
		COM_COPY_ATTR
	)		const

Definition at line 1217 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(w_len); CHKLEN(a_len);
   COM_get_roccom()->
     copy_attribute( string(wname, w_len), string(attr, a_len));
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_copy_attr_hdls	,
		COM_COPY_ATTR_HDLS
	)		const

Definition at line 1225 of file roccom_f.C.

References COM_get_roccom().

 {
   COM_get_roccom()->copy_attribute( trg_hdl, src_hdl);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_use_attr_ghost	,
		COM_USE_ATTR_GHOST
	)		const

Definition at line 1231 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(w_len); CHKLEN(a_len);
   COM_get_roccom()->
     use_attribute( string(wname, w_len), string(attr, a_len), with_ghost);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_clone_attr_ghost	,
		COM_CLONE_ATTR_GHOST
	)		const

Definition at line 1240 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(w_len); CHKLEN(a_len);
   COM_get_roccom()->
     clone_attribute( string(wname, w_len), string(attr, a_len), with_ghost);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_copy_attr_ghost	,
		COM_COPY_ATTR_GHOST
	)		const

Definition at line 1249 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(w_len); CHKLEN(a_len);
   COM_get_roccom()->
     copy_attribute( string(wname, w_len), string(attr, a_len), with_ghost);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_copy_attr_ghost_hdls	,
		COM_COPY_ATTR_GHOST_HDLS
	)		const

Definition at line 1258 of file roccom_f.C.

References COM_get_roccom().

 {
   COM_get_roccom()->copy_attribute( trg_hdl, src_hdl, with_ghost);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_use_attr_sub	,
		COM_USE_ATTR_SUB
	)		const

Definition at line 1264 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(w_len); CHKLEN(a_len);
   COM_get_roccom()->
     use_attribute( string(wname, w_len), string(attr, a_len), 
                    with_ghost, string(ptnname, p_len).c_str(), val);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_clone_attr_sub	,
		COM_CLONE_ATTR_sub
	)		const

Definition at line 1275 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(w_len); CHKLEN(a_len);
   COM_get_roccom()->
     clone_attribute( string(wname, w_len), string(attr, a_len), 
                      with_ghost, string(ptnname, p_len).c_str(), val);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_copy_attr_sub	,
		COM_COPY_ATTR_sub
	)		const

Definition at line 1286 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(w_len); CHKLEN(a_len);
   COM_get_roccom()->
     copy_attribute( string(wname, w_len), string(attr, a_len), 
                     with_ghost, string(ptnname, p_len).c_str(), val);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_copy_attr_ghost_sub_hdls	,
		COM_COPY_ATTR_GHOST_SUB_HDLS
	)		const

Definition at line 1297 of file roccom_f.C.

References COM_get_roccom().

 {
   COM_get_roccom()->copy_attribute( trg_hdl, src_hdl, with_ghost, 
                                     pnt_hdl, val);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_deallocate_win	,
		COM_DEALLOCATE_WIN
	)		const

Definition at line 1306 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(wa_len); 
   COM_get_roccom()->deallocate_array( string( wa_str, wa_len), 0);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_deallocate_pane	,
		COM_DEALLOCATE_PANE
	)		const

Definition at line 1313 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(wa_len); 
   COM_get_roccom()->deallocate_array(string(wa_str, wa_len), pid);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_get_size1	,
		COM_GET_SIZE1
	)		const

Definition at line 1320 of file roccom_f.C.

References COM_get_roccom().

1322 { COM_get_roccom()->get_size( std::string(wa_str,len), pane_id, size); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_get_size2	,
		COM_GET_SIZE2
	)		const

Definition at line 1324 of file roccom_f.C.

References COM_get_roccom().

1326 { COM_get_roccom()->get_size( std::string(wa_str,len), pane_id, size, ng); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_get_attribute	,
		COM_GET_ATTRIBUTE
	)		const

Definition at line 1328 of file roccom_f.C.

References CHKLEN, com_copy_string(), COM_F_FUNC2, COM_get_roccom(), min(), and n.

 {
   CHKLEN(wa_len); CHKLEN(l_len); CHKLEN(u_len);
   std::string unit;
   COM_get_roccom()->get_attribute( string( wa_str,wa_len), loc, type, 
                                    size, &unit);
 
   int len=unit.size(), n=std::min(len, int(u_len));
 
   int u_len_int = u_len;
   COM_F_FUNC2( com_copy_string, COM_COPY_STRING) 
     ( unit.c_str(), &n, u_str, &u_len_int, n, u_len);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_function	,
		COM_SET_FUNCTION
	)		const

Definition at line 1344 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(wf_len); CHKLEN(i_len);
   COM_get_roccom()->set_function( string(wf_str,wf_len), func,
                                   string(intents,i_len), types, true);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_member_function	,
		COM_SET_MEMBER_FUNCTION
	)		const

Definition at line 1353 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(wf_len); CHKLEN(a_len); CHKLEN(i_len);
   COM_get_roccom()->set_member_function( string(wf_str,wf_len), func,
                                          string(wa_str,a_len),
                                          string(intents,i_len), 
                                          types, true);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_get_communicator	,
		COM_GET_COMMUNICATOR
	)		const

Definition at line 1364 of file roccom_f.C.

References CHKLEN, COM_get_roccom(), and COMMPI_Comm_c2f().

 {
   CHKLEN(w_len); 
   *comm = COMMPI_Comm_c2f(COM_get_roccom()->
                           get_communicator( string(wname, w_len))); 
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_get_pane_ids_on_rank	,
		COM_GET_PANE_IDS_ON_RANK
	)		const

Definition at line 1372 of file roccom_f.C.

References CHKLEN, COM_F_FUNC2, COM_get_roccom(), com_mapptr_int1d(), Roccom_base::FPTR_APPEND, Roccom_base::FPTR_INSERT, and rank.

 {
   int f90ptr_treat = get_f90ptr_treat();
   int w_len=(f90ptr_treat==Roccom_base::FPTR_INSERT)?l2:l1; CHKLEN(w_len);
 
   std::vector<int> vec;
   int *pids;
   COM_get_roccom()->get_panes( string(wname, w_len), vec, rank, &pids);
   *npanes = vec.size();
   
   if ( f90ptr_treat == Roccom_base::FPTR_INSERT) {
     int tonull = *npanes == 0;
     typedef void(*Func)(void*,int*,void*,void*,int);
     (*(Func)COM_F_FUNC2(com_mapptr_int1d,COM_MAPPTR_INT1D))
       ( panes_ids, &tonull, pids, npanes, l1);
   }
   else {
     int tonull = *npanes == 0;
 
     if  ( f90ptr_treat == Roccom_base::FPTR_APPEND) {
       typedef void(*Func)(void*,int*,void*,void*,int);
       (*(Func)COM_F_FUNC2(com_mapptr_int1d,COM_MAPPTR_INT1D))
         ( panes_ids, &tonull, pids, npanes, l2);
     }
     else {
       typedef void(*Func)(void*,int*,void*,void*);
       (*(Func)COM_F_FUNC2(com_mapptr_int1d,COM_MAPPTR_INT1D))
         ( panes_ids, &tonull, pids, npanes);
     }
   }
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_get_pane_ids	,
		COM_GET_PANE_IDS
	)		const

Definition at line 1406 of file roccom_f.C.

References COM_F_FUNC2.

 {
   COM_F_FUNC2(com_get_pane_ids_on_rank,COM_GET_PANE_IDS_ON_RANK)
     ( wname, npanes, panes_ids, -2, l1, l2);
 }

void COM_F_FUNC2	(	com_get_npanes	,
		COM_GET_NPANES
	)		const

Definition at line 1414 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(w_len);
   std::vector<int> vec;
   COM_get_roccom()->get_panes( string(wname, w_len), vec); 
   *npanes = vec.size();
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_get_attributes	,
		COM_GET_ATTRIBUTES
	)		const

Definition at line 1447 of file roccom_f.C.

References CHKLEN, COM_get_roccom(), Roccom_base::FPTR_INSERT, and mapcharptr().

 {
   int f90ptr_treat = get_f90ptr_treat();
   int w_len=(f90ptr_treat==Roccom_base::FPTR_INSERT)?l2:l1; CHKLEN(w_len);
 
   std::string str;
   char *atts;
   COM_get_roccom()->get_attributes( string(wname, w_len), na, str, &atts); 
     
   mapcharptr( atts, names, f90ptr_treat, l1, l2);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_get_connectivities	,
		COM_GET_CONNECTIVITIES
	)		const

Definition at line 1461 of file roccom_f.C.

References CHKLEN, COM_get_roccom(), Roccom_base::FPTR_INSERT, and mapcharptr().

 {
   int f90ptr_treat = get_f90ptr_treat();
 
   int w_len=(f90ptr_treat==Roccom_base::FPTR_INSERT)?l2:l1; CHKLEN(w_len);
 
   std::string str;
   char *conns;
   COM_get_roccom()->get_connectivities( string(wname, w_len), pane_id,
                                         nc, str, &conns); 
     
   mapcharptr( conns, names, f90ptr_treat, l1, l2);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_get_parent	,
		COM_GET_PARENT
	)		const

Definition at line 1477 of file roccom_f.C.

References CHKLEN, COM_get_roccom(), Roccom_base::FPTR_INSERT, and mapcharptr().

 { 
   int f90ptr_treat = get_f90ptr_treat();
   int w_len=(f90ptr_treat==Roccom_base::FPTR_INSERT)?l2:l1; CHKLEN(w_len);
 
   std::string str;
   char *name;
   COM_get_roccom()->get_parent( string(waname, w_len), pane_id, str, &name); 
 
   mapcharptr( name, parent, f90ptr_treat, l1, l2);
 }

Here is the call graph for this function:

int COM_F_FUNC2	(	com_get_status	,
		COM_GET_STATUS
	)		const

Definition at line 1491 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 { 
   CHKLEN(len); 
   return COM_get_roccom()->get_status( std::string(waname,len), pane_id); 
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_free_buffer_char	,
		COM_FREE_BUFFER_CHAR
	)

Definition at line 1498 of file roccom_f.C.

References COM_F_FUNC2, COM_get_roccom(), com_getptr_chr1d(), and com_mapptr_chr1d().

 {
   char *ptr=NULL;
   typedef void(*Func)(void*,void**);
   (*(Func)COM_F_FUNC2(com_getptr_chr1d,COM_GETPTR_CHR1D))
     ( buf, &(void*&)ptr);
 
   COM_get_roccom()->free_buffer( &ptr);
 
   { // Nullify pointer
     int one=1, zero = 0;
     typedef void(*Func)(void*,int*,void*,void*);
     
     (*(Func)COM_F_FUNC2(com_mapptr_chr1d,COM_GETPTR_CHR1D))
       ( buf, &one, ptr, &zero);
   }
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_free_buffer_int	,
		COM_FREE_BUFFER_INT
	)

Definition at line 1517 of file roccom_f.C.

References COM_F_FUNC2, COM_get_roccom(), com_getptr_int1d(), and com_mapptr_int1d().

 {
   int *ptr=NULL;
   typedef void(*Func)(void*,void**);
   (*(Func)COM_F_FUNC2(com_getptr_int1d,COM_GETPTR_INT1D))
     ( buf, &(void*&)ptr);
 
   COM_get_roccom()->free_buffer( &ptr);
 
   { // Nullify pointer
     int one=1, zero = 0;
     typedef void(*Func)(void*,int*,void*,void*);
     
     (*(Func)COM_F_FUNC2(com_mapptr_int1d,COM_GETPTR_INT1D))
       ( buf, &one, ptr, &zero);
   }
 }

Here is the call graph for this function:

int COM_F_FUNC2	(	com_get_window_handle	,
		COM_GET_WINDOW_HANDLE
	)		const

Definition at line 1536 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(len); 
   return COM_get_roccom()->get_window_handle( std::string(wname,len)); 
 }

Here is the call graph for this function:

int COM_F_FUNC2	(	com_get_attribute_handle	,
		COM_GET_ATTRIBUTE_HANDLE
	)		const

Definition at line 1543 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 { 
   CHKLEN(len); 
   return COM_get_roccom()->get_attribute_handle( std::string(waname,len)); 
 }

Here is the call graph for this function:

int COM_F_FUNC2	(	com_get_attribute_handle_const	,
		COM_GET_ATTRIBUTE_HANDLE_CONST
	)		const

Definition at line 1550 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

                                  {
  
   CHKLEN(len); 
   return COM_get_roccom()->get_attribute_handle_const( std::string(waname,len)); 
 }

Here is the call graph for this function:

int COM_F_FUNC2	(	com_get_function_handle	,
		COM_GET_FUNCTION_HANDLE
	)		const

Definition at line 1557 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(len); 
   return COM_get_roccom()->get_function_handle( std::string(wfname,len)); 
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_call_function	,
		COM_CALL_FUNCTION
	)		const

Definition at line 1564 of file roccom_f.C.

References COM_get_roccom(), i, and Function::MAX_NUMARG.

                                                       {
   void *args[] = {a1, a2, a3, a4, a5, a6, a7, a8, a9, aa, ab, ac, ad, ae};
   int lens[ Function::MAX_NUMARG];
   for ( int i=0; i<argc; ++i) 
     lens[i] = (unsigned int)((char *)(args[argc+i])-(char *)(0));
   COM_get_roccom()->call_function(wf, argc, args, lens, false);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_icall_function	,
		COM_ICALL_FUNCTION
	)		const

Definition at line 1575 of file roccom_f.C.

References COM_get_roccom(), i, and Function::MAX_NUMARG.

                                                                 {
   void *args[] = {a1, a2, a3, a4, a5, a6, a7, a8, a9, aa, ab, ac, ad, ae};
 
   int lens[Function::MAX_NUMARG];
   for ( int i=0; i<argc-1; ++i) 
     lens[i] = (unsigned int)((char *)(args[argc+i])-(char *)(0));
 
   COM_get_roccom()->icall_function(wf, argc, args, lens, false);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_test	,
		COM_TEST
	)		const

Definition at line 1588 of file roccom_f.C.

References COM_assertion, COM_F_FUNC2, COM_get_roccom(), com_set_false(), and com_set_true().

 {
 
   *status = COM_get_roccom()->test( reqid);
   if ( *status == true)
     COM_F_FUNC2(com_set_true, COM_SET_TRUE)( status);
   else {
     COM_F_FUNC2(com_set_false, COM_SET_FALSE)( status);
     COM_assertion( *status == 0);
   }
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_wait	,
		COM_WAIT
	)		const

Definition at line 1601 of file roccom_f.C.

References COM_get_roccom().

1603 { COM_get_roccom()->wait( reqid); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_pointer	,
		COM_SET_POINTER
	)		const

Definition at line 1605 of file roccom_f.C.

References CHKLEN, COM_get_roccom(), and Roccom_base::FPTR_INSERT.

                     {
 
   if ( get_f90ptr_treat() == Roccom_base::FPTR_INSERT) {
     // Note: For Portland Group F90 compiler, l1 is the end-address of
     //       the pointer and l2 is the length of the character string.
     int len=l2; CHKLEN( len);
     COM_get_roccom()->set_f90pointer( std::string(waname,len), ptr, func, l1); 
   }
   else {
     int len=l1; CHKLEN( len);
     COM_get_roccom()->set_f90pointer( std::string(waname,len), ptr, func, l2);
   }
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_get_pointer	,
		COM_GET_POINTER
	)		const

Definition at line 1621 of file roccom_f.C.

References CHKLEN, COM_get_roccom(), and Roccom_base::FPTR_INSERT.

                     {
 
   int f90ptr_treat = get_f90ptr_treat();
     
   if ( f90ptr_treat == Roccom_base::FPTR_INSERT) {
     // Note: For Portland Group F90 compiler, l1 is the end-address of
     //       the pointer and l2 is the length of the character string.
     int len=l2; CHKLEN( len);
     COM_get_roccom()->get_f90pointer( std::string(waname,len), ptr, func, l1); 
   }
   else {
     int len=l1; CHKLEN( len);
     COM_get_roccom()->get_f90pointer( std::string(waname,len), ptr, func, l2);
   }
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_object	,
		COM_SET_OBJECT
	)		const

Definition at line 1639 of file roccom_f.C.

References COM_F_FUNC2.

                     {
 
   COM_F_FUNC2( com_set_pointer, COM_SET_POINTER)( waname, ptr, func, l1, l2); 
 }

void COM_F_FUNC2	(	com_get_object	,
		COM_GET_OBJECT
	)		const

Definition at line 1646 of file roccom_f.C.

References COM_F_FUNC2.

                     {
 
   COM_F_FUNC2( com_get_pointer, COM_GET_POINTER)( waname, ptr, func, l1, l2); 
 }

void COM_F_FUNC2	(	com_set_verbose	,
		COM_SET_VERBOSE
	)		const

Definition at line 1658 of file roccom_f.C.

References COM_get_roccom(), and i.

1659 { COM_get_roccom()->set_verbose( i); }

i

blockLoc i

Definition: read.cpp:79

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_debug	,
		COM_SET_DEBUG
	)		const

Definition at line 1661 of file roccom_f.C.

References COM_get_roccom().

1662 { COM_get_roccom()->set_debug( debug); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_profiling_barrier	,
		COM_SET_PROFILING_BARRIER
	)		const

Definition at line 1664 of file roccom_f.C.

References COM_get_roccom(), and COMMPI_Comm_f2c().

 {
   COM_get_roccom()->set_profiling_barrier
     ( hdl, COMMPI_Comm_f2c(comm, MPI_Comm()));
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_set_profiling	,
		COM_SET_PROFILING
	)		const

Definition at line 1671 of file roccom_f.C.

References COM_get_roccom(), and i.

 {
   COM_get_roccom()->set_profiling( i);
 }

Here is the call graph for this function:

void COM_F_FUNC2	(	com_print_profile	,
		COM_PRINT_PROFILE
	)		const

Definition at line 1676 of file roccom_f.C.

References CHKLEN, and COM_get_roccom().

 {
   CHKLEN(len); CHKLEN(hlen);
   COM_get_roccom()->print_profile( std::string(fname,len),
                                    std::string(header,hlen));
 }

Here is the call graph for this function:

int COM_F_FUNC2	(	com_get_sizeof	,
		COM_GET_SIZEOF
	)		const

Definition at line 1685 of file roccom_f.C.

References COM_get_roccom().

1687 { return COM_get_roccom()->get_sizeof( *type, *c); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

int COM_F_FUNC2	(	com_get_error_code	,
		COM_GET_ERROR_CODE
	)

Definition at line 1689 of file roccom_f.C.

References COM_get_roccom().

1690 { return COM_get_roccom()->get_error_code(); }

COM_get_roccom

COM_END_NAME_SPACE COM::Roccom_base * COM_get_roccom()

Definition: Roccom_base.h:537

Here is the call graph for this function:

void COM_F_FUNC2	(	com_settypeinfo	,
		COM_SETTYPEINFO
	)

Definition at line 1699 of file roccom_f.C.

References Big_array::a, COM_F_FUNC2, com_settypeinfo(), and i.

                             {
   Big_array w;
 
   COM_F_FUNC2( com_settypeinfo, COM_SETTYPEINFO)(&w);  
 
   if (w.a[0] != 333331) {
     return -1;
   }
   else {
     for (int i = 0; i < 512; i++) {
       if (w.a[i] == 333332) {
         return (i-1)*sizeof(int);
       }
     }
   }
   return -1;
 }

Here is the call graph for this function:

COM_END_NAME_SPACE int COM_F_FUNC2	(	com_get_sizeof_f90pointer	,
		COM_GET_SIZEOF_F90POINTER
	)

Definition at line 1721 of file roccom_f.C.

1722 { return get_sizeof_f90pointer(); }

void COM_F_FUNC2	(	com_chkptr_begin	,
		COM_CHKPTR_BEGIN
	)

void COM_F_FUNC2	(	com_chkptr_end	,
		COM_CHKPTR_END
	)		const

Definition at line 1726 of file roccom_f.C.

References COM_assertion_msg, com_chkptr_begin(), com_chkptr_end(), COM_F_FUNC2, COM_get_roccom(), Roccom_base::FPTR_APPEND, Roccom_base::FPTR_INSERT, Roccom_base::FPTR_NONE, len1, and len2.

                                             {
 
   static int insert_or_append;
   static int ptrinfo1, ptrinfo2;
 
   switch ( stage) {
   case 0: // Being called from COM_init
     insert_or_append = Roccom_base::FPTR_NONE;
     ptrinfo1 = ptrinfo2 = 0;
 
     COM_F_FUNC2( com_chkptr_begin, COM_CHKPTR_BEGIN)();
     break;
   case 1:
     if ( (int)len3 == 17 && (int)len4 == 33) 
       insert_or_append = Roccom_base::FPTR_INSERT;
     else 
       COM_assertion_msg( len1 == 17 && len2 == 33, 
                          "Incorrect handling of Fortran 90 pointers");
 
     if ( insert_or_append == Roccom_base::FPTR_INSERT) {
       ptrinfo1 = len1 - ((char*)ptr1-(char*)NULL);
       ptrinfo2 = len2 - ((char*)ptr2-(char*)NULL);
     }
     else {
       ptrinfo1 = len3 - ((char*)ptr1-(char*)NULL);
       ptrinfo2 = len4 - ((char*)ptr2-(char*)NULL);
     }
     
     COM_F_FUNC2( com_chkptr_end, COM_CHKPTR_END)
       ( str1, ptr1, str2, ptr2, len1, len2, len3, len4);
     break;
   case 2: { // This stage, the arguments are switched
     int verb = COM_get_roccom()->get_verbose();
     bool debug = COM_get_roccom()->get_debug();
     if ( insert_or_append == Roccom_base::FPTR_INSERT) {
       COM_assertion_msg( ptrinfo1 == len2-((char*)ptr2-(char*)NULL) &&
                          ptrinfo2 == len1-((char*)ptr1-(char*)NULL),
                          "Incorrect handling of Fortran 90 pointers");
       if (debug) 
         std::cerr << "Roccom: Setting f90 pointer treatment to INSERT" << std::endl;
     }
     else {
       if ( ptrinfo1 != 0 && ptrinfo1 == len4-((char*)ptr2-(char*)NULL) && 
            ptrinfo2 != 0 && ptrinfo2 == len3-((char*)ptr1-(char*)NULL)) {
         if (debug) 
           std::cerr << "Roccom: Setting f90 pointer treatment to APPEND. \n";
         insert_or_append = Roccom_base::FPTR_APPEND;
       }
       else if (debug) 
         std::cerr << "Roccom: Setting f90 pointer treatment to NONE.\n";
       
       if ( verb && (verb|1)==0) 
         std::cerr << "\tAt pass 1, " << "ptrinfo1 is " << ptrinfo1 
                   << " and ptrinfo2 is " << ptrinfo2
                   << " and\n\tat pass 2, ptrinfo1 is " 
                   << len3-((char*)ptr1-(char*)NULL) 
                   << " and ptrinfo2 is " 
                   << len4-((char*)ptr2-(char*)NULL) << std::endl;
       
       break;
     }
   }
   default: ;
   }
   return insert_or_append;
 }

Here is the call graph for this function:

void* com_get_address_f	(	void *	addr,
		int	l = `0`
	)

Definition at line 256 of file roccom_f.C.

References COM_assertion, COM_DOUBLE, COM_F_FUNC2, com_getptr_dbl0d(), com_getptr_dbl1d(), com_getptr_dbl2d(), com_getptr_dbl3d(), com_getptr_flt0d(), com_getptr_flt1d(), com_getptr_flt2d(), com_getptr_flt3d(), com_getptr_int0d(), com_getptr_int1d(), com_getptr_int2d(), com_getptr_int3d(), COM_INTEGER, and COM_REAL.

                                         {
   Func_ptr f;
   
   if ( dim==0) {
     if (type==COM_INTEGER)
       f = COM_F_FUNC2(com_getptr_int0d,COM_GETPTR_INT0D);
     else if ( type==COM_REAL)
       f = COM_F_FUNC2(com_getptr_flt0d,COM_GETPTR_FLT0D);
     else if ( type==COM_DOUBLE)
       f = COM_F_FUNC2(com_getptr_dbl0d,COM_GETPTR_DBL0D);
     else
       COM_assertion(false);
   }
   else if ( dim==1) {
     if (type==COM_INTEGER)
       f = COM_F_FUNC2(com_getptr_int1d,COM_GETPTR_INT1D);
     else if ( type==COM_REAL)                  
       f = COM_F_FUNC2(com_getptr_flt1d,COM_GETPTR_FLT1D);
     else if ( type==COM_DOUBLE)                
       f = COM_F_FUNC2(com_getptr_dbl1d,COM_GETPTR_DBL1D); 
     else
       COM_assertion(false);
   }
   else if (dim==2) {
     if (type==COM_INTEGER)
       f = COM_F_FUNC2(com_getptr_int2d,COM_GETPTR_INT2D);
     else if ( type==COM_REAL)                  
       f = COM_F_FUNC2(com_getptr_flt2d,COM_GETPTR_FLT2D);
     else if ( type==COM_DOUBLE)                
       f = COM_F_FUNC2(com_getptr_dbl2d,COM_GETPTR_DBL2D);
     else
       COM_assertion(false);
   }
   else if (dim==3) {
     if (type==COM_INTEGER)
       f = COM_F_FUNC2(com_getptr_int3d,COM_GETPTR_INT3D);
     else if ( type==COM_REAL)                  
       f = COM_F_FUNC2(com_getptr_flt3d,COM_GETPTR_FLT3D);
     else if ( type==COM_DOUBLE)                
       f = COM_F_FUNC2(com_getptr_dbl3d,COM_GETPTR_DBL3D);
     else
       COM_assertion(false);
   }
   else
     COM_assertion(false);
 
   void *ptr=NULL;
   if ( l==0) {
     typedef void(*Func)(void*,void**);
     (*(Func)f)( addr, &ptr);
   }
   else {
     typedef void(*Func)(void*,void**, int);
     (*(Func)f)( addr, &ptr, l);
   }
 
   return ptr;
 }

Here is the call graph for this function:

COM_GET_BOUNDS	(	com_get_bounds_int	,
		COM_GET_BOUNDS_INT
	)

COM_GET_BOUNDS	(	com_get_bounds_flt	,
		COM_GET_BOUNDS_FLT
	)

COM_GET_BOUNDS	(	com_get_bounds_dbl	,
		COM_GET_BOUNDS_DBL
	)

COM_OBTAIN_ARRAY	(	com_alloc_array_int	,
		COM_ALLOC_ARRAY_INT	,
		0	,
		COM_INTEGER	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY	(	com_alloc_array_int1d	,
		COM_ALLOC_ARRAY_INT1D	,
		1	,
		COM_INTEGER	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY	(	com_alloc_array_int2d	,
		COM_ALLOC_ARRAY_INT2D	,
		2	,
		COM_INTEGER	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY	(	com_alloc_array_flt	,
		COM_ALLOC_ARRAY_FLT	,
		0	,
		COM_REAL	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY	(	com_alloc_array_flt1d	,
		COM_ALLOC_ARRAY_FLT1D	,
		1	,
		COM_REAL	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY	(	com_alloc_array_flt2d	,
		COM_ALLOC_ARRAY_FLT2D	,
		2	,
		COM_REAL	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY	(	com_alloc_array_dbl	,
		COM_ALLOC_ARRAY_DBL	,
		0	,
		COM_DOUBLE	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY	(	com_alloc_array_dbl1d	,
		COM_ALLOC_ARRAY_DBL1D	,
		1	,
		COM_DOUBLE	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY	(	com_alloc_array_dbl2d	,
		COM_ALLOC_ARRAY_DBL2D	,
		2	,
		COM_DOUBLE	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY	(	com_resize_array_int	,
		COM_RESIZE_ARRAY_INT	,
		0	,
		COM_INTEGER	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY	(	com_resize_array_int1d	,
		COM_RESIZE_ARRAY_INT1D	,
		1	,
		COM_INTEGER	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY	(	com_resize_array_int2d	,
		COM_RESIZE_ARRAY_INT2D	,
		2	,
		COM_INTEGER	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY	(	com_resize_array_flt	,
		COM_RESIZE_ARRAY_FLT	,
		0	,
		COM_REAL	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY	(	com_resize_array_flt1d	,
		COM_RESIZE_ARRAY_FLT1D	,
		1	,
		COM_REAL	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY	(	com_resize_array_flt2d	,
		COM_RESIZE_ARRAY_FLT2D	,
		2	,
		COM_REAL	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY	(	com_resize_array_dbl	,
		COM_RESIZE_ARRAY_DBL	,
		0	,
		COM_DOUBLE	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY	(	com_resize_array_dbl1d	,
		COM_RESIZE_ARRAY_DBL1D	,
		1	,
		COM_DOUBLE	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY	(	com_resize_array_dbl2d	,
		COM_RESIZE_ARRAY_DBL2D	,
		2	,
		COM_DOUBLE	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY	(	com_get_array_int	,
		COM_GET_ARRAY_INT	,
		0	,
		COM_INTEGER	,
		AM_GET
	)

COM_OBTAIN_ARRAY	(	com_get_array_int1d	,
		COM_GET_ARRAY_INT1D	,
		1	,
		COM_INTEGER	,
		AM_GET
	)

COM_OBTAIN_ARRAY	(	com_get_array_int2d	,
		COM_GET_ARRAY_INT2D	,
		2	,
		COM_INTEGER	,
		AM_GET
	)

COM_OBTAIN_ARRAY	(	com_get_array_flt	,
		COM_GET_ARRAY_FLT	,
		0	,
		COM_REAL	,
		AM_GET
	)

COM_OBTAIN_ARRAY	(	com_get_array_flt1d	,
		COM_GET_ARRAY_FLT1D	,
		1	,
		COM_REAL	,
		AM_GET
	)

COM_OBTAIN_ARRAY	(	com_get_array_flt2d	,
		COM_GET_ARRAY_FLT2D	,
		2	,
		COM_REAL	,
		AM_GET
	)

COM_OBTAIN_ARRAY	(	com_get_array_dbl	,
		COM_GET_ARRAY_DBL	,
		0	,
		COM_DOUBLE	,
		AM_GET
	)

COM_OBTAIN_ARRAY	(	com_get_array_dbl1d	,
		COM_GET_ARRAY_DBL1D	,
		1	,
		COM_DOUBLE	,
		AM_GET
	)

COM_OBTAIN_ARRAY	(	com_get_array_dbl2d	,
		COM_GET_ARRAY_DBL2D	,
		2	,
		COM_DOUBLE	,
		AM_GET
	)

COM_OBTAIN_ARRAY	(	com_get_array_const_int	,
		COM_GET_ARRAY_CONST_INT	,
		0	,
		COM_INTEGER	,
		AM_GETC
	)

COM_OBTAIN_ARRAY	(	com_get_array_const_int1d	,
		COM_GET_ARRAY_CONST_INT1D	,
		1	,
		COM_INTEGER	,
		AM_GETC
	)

COM_OBTAIN_ARRAY	(	com_get_array_const_int2d	,
		COM_GET_ARRAY_CONST_INT2D	,
		2	,
		COM_INTEGER	,
		AM_GETC
	)

COM_OBTAIN_ARRAY	(	com_get_array_const_flt	,
		COM_GET_ARRAY_CONST_FLT	,
		0	,
		COM_REAL	,
		AM_GETC
	)

COM_OBTAIN_ARRAY	(	com_get_array_const_flt1d	,
		COM_GET_ARRAY_CONST_FLT1D	,
		1	,
		COM_REAL	,
		AM_GETC
	)

COM_OBTAIN_ARRAY	(	com_get_array_const_flt2d	,
		COM_GET_ARRAY_CONST_FLT2D	,
		2	,
		COM_REAL	,
		AM_GETC
	)

COM_OBTAIN_ARRAY	(	com_get_array_const_dbl	,
		COM_GET_ARRAY_CONST_DBL	,
		0	,
		COM_DOUBLE	,
		AM_GETC
	)

COM_OBTAIN_ARRAY	(	com_get_array_const_dbl1d	,
		COM_GET_ARRAY_CONST_DBL1D	,
		1	,
		COM_DOUBLE	,
		AM_GETC
	)

COM_OBTAIN_ARRAY	(	com_get_array_const_dbl2d	,
		COM_GET_ARRAY_CONST_DBL2D	,
		2	,
		COM_DOUBLE	,
		AM_GETC
	)

COM_OBTAIN_ARRAY	(	com_copy_array_int	,
		COM_COPY_ARRAY_INT	,
		0	,
		COM_INTEGER	,
		AM_COPY
	)

COM_OBTAIN_ARRAY	(	com_copy_array_int1d	,
		COM_COPY_ARRAY_INT1D	,
		1	,
		COM_INTEGER	,
		AM_COPY
	)

COM_OBTAIN_ARRAY	(	com_copy_array_int2d	,
		COM_COPY_ARRAY_INT2D	,
		2	,
		COM_INTEGER	,
		AM_COPY
	)

COM_OBTAIN_ARRAY	(	com_copy_array_int3d	,
		COM_COPY_ARRAY_INT3D	,
		3	,
		COM_INTEGER	,
		AM_COPY
	)

COM_OBTAIN_ARRAY	(	com_copy_array_flt	,
		COM_COPY_ARRAY_FLT	,
		0	,
		COM_REAL	,
		AM_COPY
	)

COM_OBTAIN_ARRAY	(	com_copy_array_flt1d	,
		COM_COPY_ARRAY_FLT1D	,
		1	,
		COM_REAL	,
		AM_COPY
	)

COM_OBTAIN_ARRAY	(	com_copy_array_flt2d	,
		COM_COPY_ARRAY_FLT2D	,
		2	,
		COM_REAL	,
		AM_COPY
	)

COM_OBTAIN_ARRAY	(	com_copy_array_flt3d	,
		COM_COPY_ARRAY_FLT3D	,
		3	,
		COM_REAL	,
		AM_COPY
	)

COM_OBTAIN_ARRAY	(	com_copy_array_dbl	,
		COM_COPY_ARRAY_DBL	,
		0	,
		COM_DOUBLE	,
		AM_COPY
	)

COM_OBTAIN_ARRAY	(	com_copy_array_dbl1d	,
		COM_COPY_ARRAY_DBL1D	,
		1	,
		COM_DOUBLE	,
		AM_COPY
	)

COM_OBTAIN_ARRAY	(	com_copy_array_dbl2d	,
		COM_COPY_ARRAY_DBL2D	,
		2	,
		COM_DOUBLE	,
		AM_COPY
	)

COM_OBTAIN_ARRAY	(	com_copy_array_dbl3d	,
		COM_COPY_ARRAY_DBL3D	,
		3	,
		COM_DOUBLE	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_DYN	(	com_alloc_array_int1d_dyn	,
		COM_ALLOC_ARRAY_INT1D_DYN	,
		1	,
		COM_INTEGER	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY_DYN	(	com_alloc_array_int2d_dyn	,
		COM_ALLOC_ARRAY_INT2D_DYN	,
		2	,
		COM_INTEGER	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY_DYN	(	com_alloc_array_flt1d_dyn	,
		COM_ALLOC_ARRAY_FLT1D_DYN	,
		1	,
		COM_REAL	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY_DYN	(	com_alloc_array_flt2d_dyn	,
		COM_ALLOC_ARRAY_FLT2D_DYN	,
		2	,
		COM_REAL	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY_DYN	(	com_alloc_array_dbl1d_dyn	,
		COM_ALLOC_ARRAY_DBL1D_DYN	,
		1	,
		COM_DOUBLE	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY_DYN	(	com_alloc_array_dbl2d_dyn	,
		COM_ALLOC_ARRAY_DBL2D_DYN	,
		2	,
		COM_DOUBLE	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY_DYN	(	com_resize_array_int1d_dyn	,
		COM_RESIZE_ARRAY_INT1D_DYN	,
		1	,
		COM_INTEGER	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY_DYN	(	com_resize_array_int2d_dyn	,
		COM_RESIZE_ARRAY_INT2D_DYN	,
		2	,
		COM_INTEGER	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY_DYN	(	com_resize_array_flt1d_dyn	,
		COM_RESIZE_ARRAY_FLT1D_DYN	,
		1	,
		COM_REAL	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY_DYN	(	com_resize_array_flt2d_dyn	,
		COM_RESIZE_ARRAY_FLT2D_DYN	,
		2	,
		COM_REAL	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY_DYN	(	com_resize_array_dbl1d_dyn	,
		COM_RESIZE_ARRAY_DBL1D_DYN	,
		1	,
		COM_DOUBLE	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY_DYN	(	com_resize_array_dbl2d_dyn	,
		COM_RESIZE_ARRAY_DBL2D_DYN	,
		2	,
		COM_DOUBLE	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY_DYN	(	com_get_array_int1d_dyn	,
		COM_GET_ARRAY_INT1D_DYN	,
		1	,
		COM_INTEGER	,
		AM_GET
	)

COM_OBTAIN_ARRAY_DYN	(	com_get_array_int2d_dyn	,
		COM_GET_ARRAY_INT2D_DYN	,
		2	,
		COM_INTEGER	,
		AM_GET
	)

COM_OBTAIN_ARRAY_DYN	(	com_get_array_flt1d_dyn	,
		COM_GET_ARRAY_FLT1D_DYN	,
		1	,
		COM_REAL	,
		AM_GET
	)

COM_OBTAIN_ARRAY_DYN	(	com_get_array_flt2d_dyn	,
		COM_GET_ARRAY_FLT2D_DYN	,
		2	,
		COM_REAL	,
		AM_GET
	)

COM_OBTAIN_ARRAY_DYN	(	com_get_array_dbl1d_dyn	,
		COM_GET_ARRAY_DBL1D_DYN	,
		1	,
		COM_DOUBLE	,
		AM_GET
	)

COM_OBTAIN_ARRAY_DYN	(	com_get_array_dbl2d_dyn	,
		COM_GET_ARRAY_DBL2D_DYN	,
		2	,
		COM_DOUBLE	,
		AM_GET
	)

COM_OBTAIN_ARRAY_DYN	(	com_get_array_const_int1d_dyn	,
		COM_GET_ARRAY_CONST_INT1D_DYN	,
		1	,
		COM_INTEGER	,
		AM_GETC
	)

COM_OBTAIN_ARRAY_DYN	(	com_get_array_const_int2d_dyn	,
		COM_GET_ARRAY_CONST_INT2D_DYN	,
		2	,
		COM_INTEGER	,
		AM_GETC
	)

COM_OBTAIN_ARRAY_DYN	(	com_get_array_const_flt1d_dyn	,
		COM_GET_ARRAY_CONST_FLT1D_DYN	,
		1	,
		COM_REAL	,
		AM_GETC
	)

COM_OBTAIN_ARRAY_DYN	(	com_get_array_const_flt2d_dyn	,
		COM_GET_ARRAY_CONST_FLT2D_DYN	,
		2	,
		COM_REAL	,
		AM_GETC
	)

COM_OBTAIN_ARRAY_DYN	(	com_get_array_const_dbl1d_dyn	,
		COM_GET_ARRAY_CONST_DBL1D_DYN	,
		1	,
		COM_DOUBLE	,
		AM_GETC
	)

COM_OBTAIN_ARRAY_DYN	(	com_get_array_const_dbl2d_dyn	,
		COM_GET_ARRAY_CONST_DBL2D_DYN	,
		2	,
		COM_DOUBLE	,
		AM_GETC
	)

COM_OBTAIN_ARRAY_DYN	(	com_copy_array_int_dyn	,
		COM_COPY_ARRAY_INT_DYN	,
		0	,
		COM_INTEGER	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_DYN	(	com_copy_array_int1d_dyn	,
		COM_COPY_ARRAY_INT1D_DYN	,
		1	,
		COM_INTEGER	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_DYN	(	com_copy_array_int2d_dyn	,
		COM_COPY_ARRAY_INT2D_DYN	,
		2	,
		COM_INTEGER	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_DYN	(	com_copy_array_int3d_dyn	,
		COM_COPY_ARRAY_INT3D_DYN	,
		3	,
		COM_INTEGER	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_DYN	(	com_copy_array_flt_dyn	,
		COM_COPY_ARRAY_FLT_DYN	,
		0	,
		COM_REAL	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_DYN	(	com_copy_array_flt1d_dyn	,
		COM_COPY_ARRAY_FLT1D_DYN	,
		1	,
		COM_REAL	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_DYN	(	com_copy_array_flt2d_dyn	,
		COM_COPY_ARRAY_FLT2D_DYN	,
		2	,
		COM_REAL	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_DYN	(	com_copy_array_flt3d_dyn	,
		COM_COPY_ARRAY_FLT3D_DYN	,
		3	,
		COM_REAL	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_DYN	(	com_copy_array_dbl_dyn	,
		COM_COPY_ARRAY_DBL_DYN	,
		0	,
		COM_DOUBLE	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_DYN	(	com_copy_array_dbl1d_dyn	,
		COM_COPY_ARRAY_DBL1D_DYN	,
		1	,
		COM_DOUBLE	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_DYN	(	com_copy_array_dbl2d_dyn	,
		COM_COPY_ARRAY_DBL2D_DYN	,
		2	,
		COM_DOUBLE	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_DYN	(	com_copy_array_dbl3d_dyn	,
		COM_COPY_ARRAY_DBL3D_DYN	,
		3	,
		COM_DOUBLE	,
		AM_COPY
	)

void com_obtain_array_f	(	const char *	waname,
		int	pane_id,
		void *	addr,
		int &	strd,
		int &	cap,
		int	offset,
		int	l1,
		int	l2
	)

Definition at line 758 of file roccom_f.C.

References AM_COPY, CHKLEN, Roccom_base::FPTR_APPEND, Roccom_base::FPTR_INSERT, and offset().

                                     {
 
   if ( dim==0 && mode==AM_COPY) { // Not a Fortran pointer
     int wa_len=l1; CHKLEN(wa_len);
     com_obtain_array_helper<dim,type,mode>( string(waname, wa_len), pane_id, 
                                             addr, strd, cap, offset);
   }
   else {
     int f90ptr_treat = get_f90ptr_treat();
     
     if ( f90ptr_treat == Roccom_base::FPTR_INSERT) {
       int wa_len=l2; CHKLEN(wa_len);
       com_obtain_array_helper<dim,type,mode>( string(waname, wa_len), pane_id,
                                               addr, strd, cap, offset, l1);
     }
     else {
       int wa_len=l1; CHKLEN(wa_len);
       if ( f90ptr_treat == Roccom_base::FPTR_APPEND) 
         com_obtain_array_helper<dim,type,mode>( string(waname, wa_len), pane_id, 
                                                 addr, strd, cap, offset, l2);
       else 
         com_obtain_array_helper<dim,type,mode>( string(waname, wa_len), pane_id, 
                                                 addr, strd, cap, offset);
     }
   }
 }

Here is the call graph for this function:

void com_obtain_array_helper	(	const std::string &	waname,
		int	pane_id,
		void *	addr,
		int &	strd,
		int &	cap,
		int	offset,
		int	l = `0`
	)

Definition at line 726 of file roccom_f.C.

References AM_ALLOC, AM_COPY, AM_GETC, AM_RESIZE, COM_get_roccom(), and Window::Pointer_descriptor::ptr.

                                                                    {
 
   if ( mode != AM_RESIZE && strd<0) strd=0;
 
   Roccom_base::Pointer_descriptor ptr(NULL, dim);
   if ( mode==AM_ALLOC) {
     COM_get_roccom()->allocate_array( waname, pane_id, NULL, strd, cap);
     COM_get_roccom()->get_array( waname, pane_id, ptr);
   }
   else if ( mode==AM_RESIZE) {
     COM_get_roccom()->resize_array( waname, pane_id, NULL, strd, cap);
     COM_get_roccom()->get_array( waname, pane_id, ptr);
   }
   else if ( mode == AM_COPY) {
     if ( dim==0) ptr.ptr = addr; // If dim==0, it is not a pointer
     else ptr.ptr = com_get_address_f<dim,type>( addr, l);
 
     COM_get_roccom()->copy_array( waname, pane_id, ptr.ptr,
                                   strd, cap, offset);
   }
   else {
     COM_get_roccom()->get_array( waname, pane_id, ptr, &strd, 
                                  &cap, mode==AM_GETC);
   }
   
   if ( mode != AM_COPY) 
     com_set_address_f<dim, type>( ptr, addr, l);
 }

Here is the call graph for this function:

COM_OBTAIN_ARRAY_STRD	(	com_alloc_array_int1d_strd	,
		COM_ALLOC_ARRAY_INT1D_STRD	,
		1	,
		COM_INTEGER	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY_STRD	(	com_alloc_array_int2d_strd	,
		COM_ALLOC_ARRAY_INT2D_STRD	,
		2	,
		COM_INTEGER	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY_STRD	(	com_alloc_array_flt1d_strd	,
		COM_ALLOC_ARRAY_FLT1D_STRD	,
		1	,
		COM_REAL	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY_STRD	(	com_alloc_array_flt2d_strd	,
		COM_ALLOC_ARRAY_FLT2D_STRD	,
		2	,
		COM_REAL	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY_STRD	(	com_alloc_array_dbl1d_strd	,
		COM_ALLOC_ARRAY_DBL1D_STRD	,
		1	,
		COM_DOUBLE	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY_STRD	(	com_alloc_array_dbl2d_strd	,
		COM_ALLOC_ARRAY_DBL2D_STRD	,
		2	,
		COM_DOUBLE	,
		AM_ALLOC
	)

COM_OBTAIN_ARRAY_STRD	(	com_resize_array_int1d_strd	,
		COM_RESIZE_ARRAY_INT1D_STRD	,
		1	,
		COM_INTEGER	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY_STRD	(	com_resize_array_int2d_strd	,
		COM_RESIZE_ARRAY_INT2D_STRD	,
		2	,
		COM_INTEGER	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY_STRD	(	com_resize_array_flt1d_strd	,
		COM_RESIZE_ARRAY_FLT1D_STRD	,
		1	,
		COM_REAL	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY_STRD	(	com_resize_array_flt2d_strd	,
		COM_RESIZE_ARRAY_FLT2D_STRD	,
		2	,
		COM_REAL	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY_STRD	(	com_resize_array_dbl1d_strd	,
		COM_RESIZE_ARRAY_DBL1D_STRD	,
		1	,
		COM_DOUBLE	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY_STRD	(	com_resize_array_dbl2d_strd	,
		COM_RESIZE_ARRAY_DBL2D_STRD	,
		2	,
		COM_DOUBLE	,
		AM_RESIZE
	)

COM_OBTAIN_ARRAY_STRD	(	com_get_array_int1d_strd	,
		COM_GET_ARRAY_INT1D_STRD	,
		1	,
		COM_INTEGER	,
		AM_GET
	)

COM_OBTAIN_ARRAY_STRD	(	com_get_array_int2d_strd	,
		COM_GET_ARRAY_INT2D_STRD	,
		2	,
		COM_INTEGER	,
		AM_GET
	)

COM_OBTAIN_ARRAY_STRD	(	com_get_array_flt1d_strd	,
		COM_GET_ARRAY_FLT1D_STRD	,
		1	,
		COM_REAL	,
		AM_GET
	)

COM_OBTAIN_ARRAY_STRD	(	com_get_array_flt2d_strd	,
		COM_GET_ARRAY_FLT2D_STRD	,
		2	,
		COM_REAL	,
		AM_GET
	)

COM_OBTAIN_ARRAY_STRD	(	com_get_array_dbl1d_strd	,
		COM_GET_ARRAY_DBL1D_STRD	,
		1	,
		COM_DOUBLE	,
		AM_GET
	)

COM_OBTAIN_ARRAY_STRD	(	com_get_array_dbl2d_strd	,
		COM_GET_ARRAY_DBL2D_STRD	,
		2	,
		COM_DOUBLE	,
		AM_GET
	)

COM_OBTAIN_ARRAY_STRD	(	com_get_array_const_int1d_strd	,
		COM_GET_ARRAY_CONST_INT1D_STRD	,
		1	,
		COM_INTEGER	,
		AM_GETC
	)

COM_OBTAIN_ARRAY_STRD	(	com_get_array_const_int2d_strd	,
		COM_GET_ARRAY_CONST_INT2D_STRD	,
		2	,
		COM_INTEGER	,
		AM_GETC
	)

COM_OBTAIN_ARRAY_STRD	(	com_get_array_const_flt1d_strd	,
		COM_GET_ARRAY_CONST_FLT1D_STRD	,
		1	,
		COM_REAL	,
		AM_GETC
	)

COM_OBTAIN_ARRAY_STRD	(	com_get_array_const_flt2d_strd	,
		COM_GET_ARRAY_CONST_FLT2D_STRD	,
		2	,
		COM_REAL	,
		AM_GETC
	)

COM_OBTAIN_ARRAY_STRD	(	com_get_array_const_dbl1d_strd	,
		COM_GET_ARRAY_CONST_DBL1D_STRD	,
		1	,
		COM_DOUBLE	,
		AM_GETC
	)

COM_OBTAIN_ARRAY_STRD	(	com_get_array_const_dbl2d_strd	,
		COM_GET_ARRAY_CONST_DBL2D_STRD	,
		2	,
		COM_DOUBLE	,
		AM_GETC
	)

COM_OBTAIN_ARRAY_STRD	(	com_copy_array_int_strd	,
		COM_COPY_ARRAY_INT_STRD	,
		0	,
		COM_INTEGER	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_STRD	(	com_copy_array_int1d_strd	,
		COM_COPY_ARRAY_INT1D_STRD	,
		1	,
		COM_INTEGER	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_STRD	(	com_copy_array_int2d_strd	,
		COM_COPY_ARRAY_INT2D_STRD	,
		2	,
		COM_INTEGER	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_STRD	(	com_copy_array_int3d_strd	,
		COM_COPY_ARRAY_INT3D_STRD	,
		3	,
		COM_INTEGER	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_STRD	(	com_copy_array_flt_strd	,
		COM_COPY_ARRAY_FLT_STRD	,
		0	,
		COM_REAL	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_STRD	(	com_copy_array_flt1d_strd	,
		COM_COPY_ARRAY_FLT1D_STRD	,
		1	,
		COM_REAL	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_STRD	(	com_copy_array_flt2d_strd	,
		COM_COPY_ARRAY_FLT2D_STRD	,
		2	,
		COM_REAL	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_STRD	(	com_copy_array_flt3d_strd	,
		COM_COPY_ARRAY_FLT3D_STRD	,
		3	,
		COM_REAL	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_STRD	(	com_copy_array_dbl_strd	,
		COM_COPY_ARRAY_DBL_STRD	,
		0	,
		COM_DOUBLE	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_STRD	(	com_copy_array_dbl1d_strd	,
		COM_COPY_ARRAY_DBL1D_STRD	,
		1	,
		COM_DOUBLE	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_STRD	(	com_copy_array_dbl2d_strd	,
		COM_COPY_ARRAY_DBL2D_STRD	,
		2	,
		COM_DOUBLE	,
		AM_COPY
	)

COM_OBTAIN_ARRAY_STRD	(	com_copy_array_dbl3d_strd	,
		COM_COPY_ARRAY_DBL3D_STRD	,
		3	,
		COM_DOUBLE	,
		AM_COPY
	)

void com_set_address_f	(	Roccom_base::Pointer_descriptor &	ptr,
		void *	addr,
		int	l = `0`
	)

Definition at line 317 of file roccom_f.C.

References Window::Pointer_descriptor::at(), COM_assertion, COM_DOUBLE, COM_F_FUNC2, COM_INTEGER, com_mapptr_dbl0d(), com_mapptr_dbl1d(), com_mapptr_dbl2d(), com_mapptr_flt0d(), com_mapptr_flt1d(), com_mapptr_flt2d(), com_mapptr_int0d(), com_mapptr_int1d(), com_mapptr_int2d(), COM_REAL, Window::Pointer_descriptor::n1, and Window::Pointer_descriptor::n2.

                                         {
   Func_ptr f;
 
   if ( dim==0) {
     if (type==COM_INTEGER)
       f = COM_F_FUNC2(com_mapptr_int0d,COM_MAPPTR_INT0D);
     else if ( type==COM_REAL)
       f = COM_F_FUNC2(com_mapptr_flt0d,COM_MAPPTR_FLT0D); 
     else if ( type==COM_DOUBLE)
       f = COM_F_FUNC2(com_mapptr_dbl0d,COM_MAPPTR_DBL0D);
     else
       COM_assertion(false);
     int tonull=(ptr.at()==NULL);
 
     if ( l) {
       typedef void(*Func)(void*,int*,void*, int);
       (*(Func)f)( addr, &tonull, ptr.at(), l);
     }
     else {
       typedef void(*Func)(void*,int*,void*);
       (*(Func)f)( addr, &tonull, ptr.at());
     }
   }
   else if ( dim==1) {
     if (type==COM_INTEGER)
       f = COM_F_FUNC2(com_mapptr_int1d,COM_MAPPTR_INT1D);
     else if ( type==COM_REAL)
       f = COM_F_FUNC2(com_mapptr_flt1d,COM_MAPPTR_FLT1D); 
     else if ( type==COM_DOUBLE)
       f = COM_F_FUNC2(com_mapptr_dbl1d,COM_MAPPTR_DBL1D);
     else
       COM_assertion(false);
 
     int tonull=(ptr.at()==NULL);
     if ( l) {
       typedef void(*Func)(void*,int*,void*,void*,int);
       (*(Func)f)( addr, &tonull, ptr.at(), &ptr.n1, l);
     }
     else {
       typedef void(*Func)(void*,int*,void*,void*);
       (*(Func)f)( addr, &tonull,ptr.at(), &ptr.n1);
     }
   }
   else if (dim==2) {
     if (type==COM_INTEGER)
       f = COM_F_FUNC2(com_mapptr_int2d,COM_MAPPTR_INT2D);
     else if ( type==COM_REAL)
       f = COM_F_FUNC2(com_mapptr_flt2d,COM_MAPPTR_FLT2D); 
     else if ( type==COM_DOUBLE)
       f = COM_F_FUNC2(com_mapptr_dbl2d,COM_MAPPTR_DBL2D);
     else
       COM_assertion(false);
 
     int tonull=(ptr.at()==NULL);
     if ( l) {
       typedef void(*Func)(void*,int*,void*,void*,void*,int);
       (*(Func)f)( addr, &tonull, ptr.at(), &ptr.n1, &ptr.n2, l);
     }
     else {
       typedef void(*Func)(void*,int*,void*,void*,void*);
       (*(Func)f)( addr, &tonull,ptr.at(), &ptr.n1, &ptr.n2);
     }
   }
   else
     COM_assertion(false);
 }

Here is the call graph for this function:

COM_SET_ARRAY_CONST_DYN_PTR	(	com_set_array_const_int1d_dyn	,
		COM_SET_ARRAY_CONST_INT1D_DYN	,
		1	,
		COM_INTEGER
	)

COM_SET_ARRAY_CONST_DYN_PTR	(	com_set_array_const_flt1d_dyn	,
		COM_SET_ARRAY_CONST_FLT1D_DYN	,
		1	,
		COM_REAL
	)

COM_SET_ARRAY_CONST_DYN_PTR	(	com_set_array_const_dbl1d_dyn	,
		COM_SET_ARRAY_CONST_DBL1D_DYN	,
		1	,
		COM_DOUBLE
	)

COM_SET_ARRAY_CONST_DYN_PTR	(	com_set_array_const_int2d_dyn	,
		COM_SET_ARRAY_CONST_INT2D_DYN	,
		2	,
		COM_INTEGER
	)

COM_SET_ARRAY_CONST_DYN_PTR	(	com_set_array_const_flt2d_dyn	,
		COM_SET_ARRAY_CONST_FLT2D_DYN	,
		2	,
		COM_REAL
	)

COM_SET_ARRAY_CONST_DYN_PTR	(	com_set_array_const_dbl2d_dyn	,
		COM_SET_ARRAY_CONST_DBL2D_DYN	,
		2	,
		COM_DOUBLE
	)

COM_SET_ARRAY_CONST_DYN_PTR	(	com_set_array_const_int3d_dyn	,
		COM_SET_ARRAY_CONST_INT3D_DYN	,
		3	,
		COM_INTEGER
	)

COM_SET_ARRAY_CONST_DYN_PTR	(	com_set_array_const_flt3d_dyn	,
		COM_SET_ARRAY_CONST_FLT3D_DYN	,
		3	,
		COM_REAL
	)

COM_SET_ARRAY_CONST_DYN_PTR	(	com_set_array_const_dbl3d_dyn	,
		COM_SET_ARRAY_CONST_DBL3D_DYN	,
		3	,
		COM_DOUBLE
	)

COM_SET_ARRAY_CONST_DYN_SCALAR	(	com_set_array_const_int_dyn	,
		COM_SET_ARRAY_CONST_INT_DYN
	)

COM_SET_ARRAY_CONST_DYN_SCALAR	(	com_set_array_const_flt_dyn	,
		COM_SET_ARRAY_CONST_FLT_DYN
	)

COM_SET_ARRAY_CONST_DYN_SCALAR	(	com_set_array_const_dbl_dyn	,
		COM_SET_ARRAY_CONST_DBL_DYN
	)

void com_set_array_const_f	(	const char *	waname,
		int	pane_id,
		void *	addr,
		int	strd,
		int	cap,
		int	l1,
		int	l2
	)

Definition at line 564 of file roccom_f.C.

References CHKLEN, Roccom_base::FPTR_APPEND, and Roccom_base::FPTR_INSERT.

                                                           {
   int f90ptr_treat = get_f90ptr_treat();
 
   if ( f90ptr_treat == Roccom_base::FPTR_INSERT) {
     int wa_len=l2; CHKLEN(wa_len);
     com_set_array_const_helper<dim,type>( string(waname, wa_len), pane_id, 
                                           addr, strd, cap, l1);
   }
   else {
     int wa_len=l1; CHKLEN(wa_len);
     if ( f90ptr_treat == Roccom_base::FPTR_APPEND)
       com_set_array_const_helper<dim,type>( string(waname, wa_len), pane_id, 
                                             addr, strd, cap, l2);
     else
       com_set_array_const_helper<dim,type>( string(waname, wa_len), pane_id, 
                                             addr, strd, cap);
   }
 }

void com_set_array_const_helper	(	const std::string &	waname,
		int	pane_id,
		void *	addr,
		int	strd,
		int	cap,
		int	l = `0`
	)

Definition at line 538 of file roccom_f.C.

References COM_get_roccom().

                                                        {
 
   void *ptr=com_get_address_f<dim,type>( addr, l);
 
   COM_get_roccom()->set_array( waname, pane_id, ptr, strd, cap, true);
 }

Here is the call graph for this function:

COM_SET_ARRAY_CONST_PTR	(	com_set_array_const_int1d	,
		COM_SET_ARRAY_CONST_INT1D	,
		1	,
		COM_INTEGER
	)

COM_SET_ARRAY_CONST_PTR	(	com_set_array_const_flt1d	,
		COM_SET_ARRAY_CONST_FLT1D	,
		1	,
		COM_REAL
	)

COM_SET_ARRAY_CONST_PTR	(	com_set_array_const_dbl1d	,
		COM_SET_ARRAY_CONST_DBL1D	,
		1	,
		COM_DOUBLE
	)

COM_SET_ARRAY_CONST_PTR	(	com_set_array_const_int2d	,
		COM_SET_ARRAY_CONST_INT2D	,
		2	,
		COM_INTEGER
	)

COM_SET_ARRAY_CONST_PTR	(	com_set_array_const_flt2d	,
		COM_SET_ARRAY_CONST_FLT2D	,
		2	,
		COM_REAL
	)

COM_SET_ARRAY_CONST_PTR	(	com_set_array_const_dbl2d	,
		COM_SET_ARRAY_CONST_DBL2D	,
		2	,
		COM_DOUBLE
	)

COM_SET_ARRAY_CONST_PTR	(	com_set_array_const_int3d	,
		COM_SET_ARRAY_CONST_INT3D	,
		3	,
		COM_INTEGER
	)

COM_SET_ARRAY_CONST_PTR	(	com_set_array_const_flt3d	,
		COM_SET_ARRAY_CONST_FLT3D	,
		3	,
		COM_REAL
	)

COM_SET_ARRAY_CONST_PTR	(	com_set_array_const_dbl3d	,
		COM_SET_ARRAY_CONST_DBL3D	,
		3	,
		COM_DOUBLE
	)

COM_SET_ARRAY_CONST_SCALAR	(	com_set_array_const_chr	,
		COM_SET_ARRAY_CONST_CHR
	)

COM_SET_ARRAY_CONST_SCALAR	(	com_set_array_const_int	,
		COM_SET_ARRAY_CONST_INT
	)

COM_SET_ARRAY_CONST_SCALAR	(	com_set_array_const_flt	,
		COM_SET_ARRAY_CONST_FLT
	)

COM_SET_ARRAY_CONST_SCALAR	(	com_set_array_const_dbl	,
		COM_SET_ARRAY_CONST_DBL
	)

COM_SET_ARRAY_CONST_STRD_PTR	(	com_set_array_const_int1d_strd	,
		COM_SET_ARRAY_CONST_INT1D_STRD	,
		1	,
		COM_INTEGER
	)

COM_SET_ARRAY_CONST_STRD_PTR	(	com_set_array_const_flt1d_strd	,
		COM_SET_ARRAY_CONST_FLT1D_STRD	,
		1	,
		COM_REAL
	)

COM_SET_ARRAY_CONST_STRD_PTR	(	com_set_array_const_dbl1d_strd	,
		COM_SET_ARRAY_CONST_DBL1D_STRD	,
		1	,
		COM_DOUBLE
	)

COM_SET_ARRAY_CONST_STRD_PTR	(	com_set_array_const_int2d_strd	,
		COM_SET_ARRAY_CONST_INT2D_STRD	,
		2	,
		COM_INTEGER
	)

COM_SET_ARRAY_CONST_STRD_PTR	(	com_set_array_const_flt2d_strd	,
		COM_SET_ARRAY_CONST_FLT2D_STRD	,
		2	,
		COM_REAL
	)

COM_SET_ARRAY_CONST_STRD_PTR	(	com_set_array_const_dbl2d_strd	,
		COM_SET_ARRAY_CONST_DBL2D_STRD	,
		2	,
		COM_DOUBLE
	)

COM_SET_ARRAY_CONST_STRD_PTR	(	com_set_array_const_int3d_strd	,
		COM_SET_ARRAY_CONST_INT3D_STRD	,
		3	,
		COM_INTEGER
	)

COM_SET_ARRAY_CONST_STRD_PTR	(	com_set_array_const_flt3d_strd	,
		COM_SET_ARRAY_CONST_FLT3D_STRD	,
		3	,
		COM_REAL
	)

COM_SET_ARRAY_CONST_STRD_PTR	(	com_set_array_const_dbl3d_strd	,
		COM_SET_ARRAY_CONST_DBL3D_STRD	,
		3	,
		COM_DOUBLE
	)

COM_SET_ARRAY_CONST_STRD_SCALAR	(	com_set_array_const_int_strd	,
		COM_SET_ARRAY_CONST_INT_STRD
	)

COM_SET_ARRAY_CONST_STRD_SCALAR	(	com_set_array_const_flt_strd	,
		COM_SET_ARRAY_CONST_FLT_STRD
	)

COM_SET_ARRAY_CONST_STRD_SCALAR	(	com_set_array_const_dbl_strd	,
		COM_SET_ARRAY_CONST_DBL_STRD
	)

COM_SET_ARRAY_DYN_PTR	(	com_set_array_int1d_dyn	,
		COM_SET_ARRAY_INT1D_DYN	,
		1	,
		COM_INTEGER
	)

COM_SET_ARRAY_DYN_PTR	(	com_set_array_flt1d_dyn	,
		COM_SET_ARRAY_FLT1D_DYN	,
		1	,
		COM_REAL
	)

COM_SET_ARRAY_DYN_PTR	(	com_set_array_dbl1d_dyn	,
		COM_SET_ARRAY_DBL1D_DYN	,
		1	,
		COM_DOUBLE
	)

COM_SET_ARRAY_DYN_PTR	(	com_set_array_int2d_dyn	,
		COM_SET_ARRAY_INT2D_DYN	,
		2	,
		COM_INTEGER
	)

COM_SET_ARRAY_DYN_PTR	(	com_set_array_flt2d_dyn	,
		COM_SET_ARRAY_FLT2D_DYN	,
		2	,
		COM_REAL
	)

COM_SET_ARRAY_DYN_PTR	(	com_set_array_dbl2d_dyn	,
		COM_SET_ARRAY_DBL2D_DYN	,
		2	,
		COM_DOUBLE
	)

COM_SET_ARRAY_DYN_PTR	(	com_set_array_int3d_dyn	,
		COM_SET_ARRAY_INT3D_DYN	,
		3	,
		COM_INTEGER
	)

COM_SET_ARRAY_DYN_PTR	(	com_set_array_flt3d_dyn	,
		COM_SET_ARRAY_FLT3D_DYN	,
		3	,
		COM_REAL
	)

COM_SET_ARRAY_DYN_PTR	(	com_set_array_dbl3d_dyn	,
		COM_SET_ARRAY_DBL3D_DYN	,
		3	,
		COM_DOUBLE
	)

COM_SET_ARRAY_DYN_SCALAR	(	com_set_array_int_dyn	,
		COM_SET_ARRAY_INT_DYN
	)

COM_SET_ARRAY_DYN_SCALAR	(	com_set_array_flt_dyn	,
		COM_SET_ARRAY_FLT_DYN
	)

COM_SET_ARRAY_DYN_SCALAR	(	com_set_array_dbl_dyn	,
		COM_SET_ARRAY_DBL_DYN
	)

void com_set_array_f	(	const char *	waname,
		int	pane_id,
		void *	addr,
		int	strd,
		int	cap,
		int	l1,
		int	l2
	)

Definition at line 412 of file roccom_f.C.

References CHKLEN, Roccom_base::FPTR_APPEND, and Roccom_base::FPTR_INSERT.

                                                     {
   int f90ptr_treat = get_f90ptr_treat();
   
   if ( f90ptr_treat == Roccom_base::FPTR_INSERT) {
     int wa_len=l2; CHKLEN(wa_len);
     com_set_array_helper<dim,type>( string(waname, wa_len), pane_id, addr, 
                                     strd, cap, l1);
   }
   else { 
     int wa_len=l1; CHKLEN(wa_len);
     if ( f90ptr_treat == Roccom_base::FPTR_APPEND) {
       com_set_array_helper<dim,type>( string(waname, wa_len), pane_id, addr, 
                                       strd, cap, l2);
     }
     else {
       com_set_array_helper<dim,type>( string(waname, wa_len), pane_id, addr, 
                                       strd, cap);
     }
   }
 }

void com_set_array_helper	(	const std::string &	waname,
		int	pane_id,
		void *	addr,
		int	strd,
		int	cap,
		int	l = `0`
	)

Definition at line 387 of file roccom_f.C.

References COM_get_roccom().

                                                   {
   void *ptr=com_get_address_f<dim, type>( addr, l);
 
   COM_get_roccom()->set_array( waname, pane_id, ptr, strd, cap);
 }

Here is the call graph for this function:

COM_SET_ARRAY_PTR	(	com_set_array_int1d	,
		COM_SET_ARRAY_INT1D	,
		1	,
		COM_INTEGER
	)

COM_SET_ARRAY_PTR	(	com_set_array_flt1d	,
		COM_SET_ARRAY_FLT1D	,
		1	,
		COM_REAL
	)

COM_SET_ARRAY_PTR	(	com_set_array_dbl1d	,
		COM_SET_ARRAY_DBL1D	,
		1	,
		COM_DOUBLE
	)

COM_SET_ARRAY_PTR	(	com_set_array_int2d	,
		COM_SET_ARRAY_INT2D	,
		2	,
		COM_INTEGER
	)

COM_SET_ARRAY_PTR	(	com_set_array_flt2d	,
		COM_SET_ARRAY_FLT2D	,
		2	,
		COM_REAL
	)

COM_SET_ARRAY_PTR	(	com_set_array_dbl2d	,
		COM_SET_ARRAY_DBL2D	,
		2	,
		COM_DOUBLE
	)

COM_SET_ARRAY_PTR	(	com_set_array_int3d	,
		COM_SET_ARRAY_INT3D	,
		3	,
		COM_INTEGER
	)

COM_SET_ARRAY_PTR	(	com_set_array_flt3d	,
		COM_SET_ARRAY_FLT3D	,
		3	,
		COM_REAL
	)

COM_SET_ARRAY_PTR	(	com_set_array_dbl3d	,
		COM_SET_ARRAY_DBL3D	,
		3	,
		COM_DOUBLE
	)

COM_SET_ARRAY_SCALAR	(	com_set_array_chr	,
		COM_SET_ARRAY_CHR
	)

COM_SET_ARRAY_SCALAR	(	com_set_array_int	,
		COM_SET_ARRAY_INT
	)

COM_SET_ARRAY_SCALAR	(	com_set_array_flt	,
		COM_SET_ARRAY_FLT
	)

COM_SET_ARRAY_SCALAR	(	com_set_array_dbl	,
		COM_SET_ARRAY_DBL
	)

COM_SET_ARRAY_STRD_PTR	(	com_set_array_int1d_strd	,
		COM_SET_ARRAY_INT1D_STRD	,
		1	,
		COM_INTEGER
	)

COM_SET_ARRAY_STRD_PTR	(	com_set_array_flt1d_strd	,
		COM_SET_ARRAY_FLT1D_STRD	,
		1	,
		COM_REAL
	)

COM_SET_ARRAY_STRD_PTR	(	com_set_array_dbl1d_strd	,
		COM_SET_ARRAY_DBL1D_STRD	,
		1	,
		COM_DOUBLE
	)

COM_SET_ARRAY_STRD_PTR	(	com_set_array_int2d_strd	,
		COM_SET_ARRAY_INT2D_STRD	,
		2	,
		COM_INTEGER
	)

COM_SET_ARRAY_STRD_PTR	(	com_set_array_flt2d_strd	,
		COM_SET_ARRAY_FLT2D_STRD	,
		2	,
		COM_REAL
	)

COM_SET_ARRAY_STRD_PTR	(	com_set_array_dbl2d_strd	,
		COM_SET_ARRAY_DBL2D_STRD	,
		2	,
		COM_DOUBLE
	)

COM_SET_ARRAY_STRD_PTR	(	com_set_array_int3d_strd	,
		COM_SET_ARRAY_INT3D_STRD	,
		3	,
		COM_INTEGER
	)

COM_SET_ARRAY_STRD_PTR	(	com_set_array_flt3d_strd	,
		COM_SET_ARRAY_FLT3D_STRD	,
		3	,
		COM_REAL
	)

COM_SET_ARRAY_STRD_PTR	(	com_set_array_dbl3d_strd	,
		COM_SET_ARRAY_DBL3D_STRD	,
		3	,
		COM_DOUBLE
	)

COM_SET_ARRAY_STRD_SCALAR	(	com_set_array_int_strd	,
		COM_SET_ARRAY_INT_STRD
	)

COM_SET_ARRAY_STRD_SCALAR	(	com_set_array_flt_strd	,
		COM_SET_ARRAY_FLT_STRD
	)

COM_SET_ARRAY_STRD_SCALAR	(	com_set_array_dbl_strd	,
		COM_SET_ARRAY_DBL_STRD
	)

COM_SET_BOUNDS	(	com_set_bounds_int	,
		COM_SET_BOUNDS_INT
	)

COM_SET_BOUNDS	(	com_set_bounds_flt	,
		COM_SET_BOUNDS_FLT
	)

COM_SET_BOUNDS	(	com_set_bounds_dbl	,
		COM_SET_BOUNDS_DBL
	)

static void mapcharptr	(	char *	str,
		void *	names,
		int	f90ptr_treat,
		int	l1,
		int	l2
	)

static

Definition at line 1423 of file roccom_f.C.

References COM_F_FUNC2, com_mapptr_chr1d(), Roccom_base::FPTR_APPEND, and Roccom_base::FPTR_INSERT.

Referenced by COM_F_FUNC2().

                                         {
   if ( f90ptr_treat == Roccom_base::FPTR_INSERT) {
     int len = std::strlen( str), tonull=(len==0);
     typedef void(*Func)(void*,int*,void*,void*, int);
     (*(Func)COM_F_FUNC2(com_mapptr_chr1d,COM_MAPPTR_CHR1D))
       ( names, &tonull, str, &len, l1);
   }
   else {
     int len = std::strlen( str), tonull=(len==0);
     
     if ( f90ptr_treat == Roccom_base::FPTR_APPEND) {
       typedef void(*Func)(void*,int*,void*,void*, int);
       (*(Func)COM_F_FUNC2(com_mapptr_chr1d,COM_MAPPTR_CHR1D))
         ( names, &tonull, str, &len, l2);
     }
     else {
       typedef void(*Func)(void*,int*,void*,void*);
       (*(Func)COM_F_FUNC2(com_mapptr_chr1d,COM_MAPPTR_CHR1D))
         ( names, &tonull, str, &len);
     }
   }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

Classes

Macros

Enumerations

Functions

Detailed Description

Macro Definition Documentation

Enumeration Type Documentation

Function Documentation