44 #include <osl/vector.h> 45 #include <clan/macros.h> 68 char* identifier,
int precision) {
72 size = CLAN_MAX_DEPTH + CLAN_MAX_LOCAL_DIMS + CLAN_MAX_PARAMETERS + 2 ;
73 vector = osl_vector_pmalloc(precision, size);
75 if (identifier == NULL) {
77 osl_int_set_si(precision, &vector->v[size - 1], coefficient);
83 osl_int_set_si(precision, &vector->v[rank], coefficient);
85 osl_int_set_si(precision,
86 &vector->v[CLAN_MAX_DEPTH + CLAN_MAX_LOCAL_DIMS + rank],
osl_vector_p clan_vector_term(clan_symbol_p symbol, int coefficient, char *identifier, int precision)
int clan_symbol_get_rank(clan_symbol_p symbol, char *identifier)
int clan_symbol_get_type(clan_symbol_p symbol, char *identifier)