_f_log4
_ALL0_4 (DopeVectorType * mask,
_f_int *dimension)
{
void __all();
_f_log4 log4res;
DopeVectorType result, *res_ptr;
res_ptr = (DopeVectorType *) &result;
res_ptr->base_addr.a.ptr = &log4res;
res_ptr->base_addr.a.el_len = sizeof(_f_log4) * BITS_PER_BYTE;
res_ptr->assoc = 1;
res_ptr->ptr_alloc = 0;
res_ptr->p_or_a = NOT_P_OR_A;
res_ptr->n_dim = 0;
res_ptr->type_lens.type = DVTYPE_LOGICAL;
res_ptr->type_lens.dpflag = 0;
res_ptr->type_lens.kind_or_star = DVD_DEFAULT;
res_ptr->type_lens.int_len = sizeof(_f_log4) * BITS_PER_BYTE;
res_ptr->type_lens.dec_len = 0;
res_ptr->orig_base = res_ptr->base_addr.a.ptr;
res_ptr->orig_size = 0;
__all (res_ptr, mask, dimension);
return(*(_f_log4 *) res_ptr->base_addr.a.ptr);
}
void
_ALL_4 (DopeVectorType * result,
DopeVectorType * mask,
_f_int *dimension)
{
void __all();
(void) __all (result, mask, dimension);
}
__global__ void
warpvote(hipLaunchParm lp, int* device_any, int* device_all , int Num_Warps_per_Block, int pshift)
{
int tid = hipThreadIdx_x + hipBlockIdx_x * hipBlockDim_x;
device_any[hipThreadIdx_x>>pshift] = __any(tid -77);
device_all[hipThreadIdx_x>>pshift] = __all(tid -77);
}
__DEVICE_ATOMIC_FUNCTIONS_DECL__ bool all(bool cond)
{
return (bool)__all((int)cond);
}
