Esempi in C++ (Cpp) per _is_shared_pointer

Esempio n. 1

void
_CSHIFT_CS7 (
		DopeVectorType  *result,
		DopeVectorType  *source,
		DopeVectorType  *shift,
		int		*dim)

{
#include "cshift_s.h"

/*
 *      Call the Fortran work routine
 */

        if (_is_shared_pointer(source->base_addr.a.ptr)) {
	    CSHIFT_WD2_S7@ ( result_base_ptr, source_sdd_ptr, shift_sdd_ptr,
		&dim_val, src_extents, shft_extents, &shflag, &shftval);
	}
}

Esempio n. 2

File: eoshift_s_wd1_5.c Progetto: sharugupta/OpenUH

void
_EOSHIFT_JS5 (
		DopeVectorType  *result,
		DopeVectorType  *source,
		DopeVectorType  *shift,
		DopeVectorType  *boundary,
		int		*dim)

{
#include "eoshift_s.h"

/*
 *      Call the Fortran work routine
 */

        if (_is_shared_pointer(source->base_addr.a.ptr)) {
	    EOSHIFT_WD1_S5@ ( result_base_ptr, source_sdd_ptr, shift_sdd_ptr,
		bound_sdd_ptr, &dim_val, src_extents, shft_extents,
		bnd_extents, &shflag, &shftval, &bndflag, &bndval);
	}
}