Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <math.h>
#include <signal.h>
#include <errno.h>
#include <setjmp.h>
#include <stdio.h>
#include "arith.internal.h"
#include "int64.h"
Go to the source code of this file.
Functions | |
int | AR_index (AR_DATA *result, const AR_TYPE *resulttype, const char *str1, const AR_DATA *str1len, const AR_TYPE *str1lentype, const char *str2, const AR_DATA *str2len, const AR_TYPE *str2lentype, const AR_DATA *backward, const AR_TYPE *backwardtype) |
int | AR_scan (AR_DATA *result, const AR_TYPE *resulttype, const char *str1, const AR_DATA *str1len, const AR_TYPE *str1lentype, const char *str2, const AR_DATA *str2len, const AR_TYPE *str2lentype, const AR_DATA *backward, const AR_TYPE *backwardtype) |
int | AR_verify (AR_DATA *result, const AR_TYPE *resulttype, const char *str1, const AR_DATA *str1len, const AR_TYPE *str1lentype, const char *str2, const AR_DATA *str2len, const AR_TYPE *str2lentype, const AR_DATA *backward, const AR_TYPE *backwardtype) |
int | AR_reshape (void *result, const void *source, const void *shape, const void *pad, const void *order) |
int | AR_transfer (void *result, const void *source, const void *mold, const AR_DATA *size, const AR_TYPE *sizetype) |
int | AR_Modulo (AR_DATA *result, const AR_TYPE *resulttype, const AR_DATA *opnd1, const AR_TYPE *opnd1type, const AR_DATA *opnd2, const AR_TYPE *opnd2type) |
int | AR_selected_real_kind (AR_DATA *result, const AR_TYPE *resulttype, const AR_DATA *opnd1, const AR_TYPE *opnd1type, const AR_DATA *opnd2, const AR_TYPE *opnd2type) |
int | AR_sqrt (AR_DATA *result, const AR_TYPE *resulttype, const AR_DATA *opnd, const AR_TYPE *opndtype) |
int | AR_log (AR_DATA *result, const AR_TYPE *resulttype, const AR_DATA *opnd, const AR_TYPE *opndtype) |
int | AR_exp (AR_DATA *result, const AR_TYPE *resulttype, const AR_DATA *opnd, const AR_TYPE *opndtype) |
int | AR_cabs (AR_DATA *result, const AR_TYPE *resulttype, const AR_DATA *opnd, const AR_TYPE *opndtype) |
int | AR_power (AR_DATA *result, const AR_TYPE *resulttype, const AR_DATA *base, const AR_TYPE *basetype, const AR_DATA *power, const AR_TYPE *powertype) |
int | AR_convert_str_to_float (AR_DATA *result, const AR_TYPE *resulttype, const char *str) |
Variables | |
static char | USMID [] = "\n%Z%%M% %I% %G% %U%\n" |
static char | rcsid [] = "$Id: intrin.c,v 1.1.1.1 2002-05-22 20:06:19 dsystem Exp $" |
int AR_cabs | ( | AR_DATA * | result, |
const AR_TYPE * | resulttype, | ||
const AR_DATA * | opnd, | ||
const AR_TYPE * | opndtype | ||
) |
Definition at line 321 of file intrin.c.
References ar_cabs(), AR_CLASS, AR_CLASS_FLOAT, AR_FLOAT_COMPLEX, AR_FLOAT_IS_COMPLEX, ar_set_invalid_result(), AR_STAT_INVALID_TYPE, AR_STAT_OVERFLOW, AR_status(), and IS_ERROR_STATUS.
int AR_convert_str_to_float | ( | AR_DATA * | result, |
const AR_TYPE * | resulttype, | ||
const char * | str | ||
) |
Definition at line 366 of file intrin.c.
References AR_CLASS, AR_CLASS_FLOAT, ar_convert_str_to_float(), AR_FLOAT_COMPLEX, AR_FLOAT_IS_COMPLEX, ar_set_invalid_result(), AR_STAT_INVALID_TYPE, and IS_ERROR_STATUS.
int AR_exp | ( | AR_DATA * | result, |
const AR_TYPE * | resulttype, | ||
const AR_DATA * | opnd, | ||
const AR_TYPE * | opndtype | ||
) |
Definition at line 299 of file intrin.c.
References AR_CLASS, AR_CLASS_FLOAT, ar_exp(), ar_set_invalid_result(), AR_STAT_INVALID_TYPE, AR_status(), and IS_ERROR_STATUS.
Referenced by AR_INTRIN1(), and main().
int AR_index | ( | AR_DATA * | result, |
const AR_TYPE * | resulttype, | ||
const char * | str1, | ||
const AR_DATA * | str1len, | ||
const AR_TYPE * | str1lentype, | ||
const char * | str2, | ||
const AR_DATA * | str2len, | ||
const AR_TYPE * | str2lentype, | ||
const AR_DATA * | backward, | ||
const AR_TYPE * | backwardtype | ||
) |
Definition at line 50 of file intrin.c.
References AR_CLASS, AR_CLASS_INT, ar_index(), AR_Int_16_S, AR_Int_32_S, AR_Int_64_S, AR_Int_8_S, AR_INT_SIZE, AR_DATA::ar_internal_data_item1, AR_Logical, ar_set_invalid_result(), AR_STAT_INVALID_TYPE, AR_STAT_UNDEFINED, AR_STAT_ZERO, AR_status(), IS_ERROR_STATUS, and NULL.
Referenced by folder_driver(), and t_index().
int AR_log | ( | AR_DATA * | result, |
const AR_TYPE * | resulttype, | ||
const AR_DATA * | opnd, | ||
const AR_TYPE * | opndtype | ||
) |
Definition at line 277 of file intrin.c.
References AR_CLASS, AR_CLASS_FLOAT, ar_log(), ar_set_invalid_result(), AR_STAT_INVALID_TYPE, AR_status(), and IS_ERROR_STATUS.
Referenced by AR_INTRIN1(), and main().
int AR_Modulo | ( | AR_DATA * | result, |
const AR_TYPE * | resulttype, | ||
const AR_DATA * | opnd1, | ||
const AR_TYPE * | opnd1type, | ||
const AR_DATA * | opnd2, | ||
const AR_TYPE * | opnd2type | ||
) |
Definition at line 206 of file intrin.c.
References ar_modulo(), ar_set_invalid_result(), AR_STAT_INVALID_TYPE, AR_status(), and IS_ERROR_STATUS.
Referenced by folder_driver(), and main().
int AR_power | ( | AR_DATA * | result, |
const AR_TYPE * | resulttype, | ||
const AR_DATA * | base, | ||
const AR_TYPE * | basetype, | ||
const AR_DATA * | power, | ||
const AR_TYPE * | powertype | ||
) |
Definition at line 343 of file intrin.c.
References AR_CLASS, AR_CLASS_INT, ar_power(), ar_set_invalid_result(), AR_STAT_INVALID_TYPE, and IS_ERROR_STATUS.
Referenced by AR_INTRIN2(), folder_driver(), and main().
int AR_reshape | ( | void * | result, |
const void * | source, | ||
const void * | shape, | ||
const void * | pad, | ||
const void * | order | ||
) |
Definition at line 167 of file intrin.c.
References ar_reshape(), AR_STAT_UNDEFINED, and NULL.
Referenced by folder_driver().
int AR_scan | ( | AR_DATA * | result, |
const AR_TYPE * | resulttype, | ||
const char * | str1, | ||
const AR_DATA * | str1len, | ||
const AR_TYPE * | str1lentype, | ||
const char * | str2, | ||
const AR_DATA * | str2len, | ||
const AR_TYPE * | str2lentype, | ||
const AR_DATA * | backward, | ||
const AR_TYPE * | backwardtype | ||
) |
Definition at line 89 of file intrin.c.
References AR_CLASS, AR_CLASS_INT, AR_Int_16_S, AR_Int_32_S, AR_Int_64_S, AR_Int_8_S, AR_INT_SIZE, AR_DATA::ar_internal_data_item1, AR_Logical, ar_scan(), ar_set_invalid_result(), AR_STAT_INVALID_TYPE, AR_STAT_UNDEFINED, AR_STAT_ZERO, AR_status(), IS_ERROR_STATUS, and NULL.
Referenced by folder_driver(), and t_scan().
int AR_selected_real_kind | ( | AR_DATA * | result, |
const AR_TYPE * | resulttype, | ||
const AR_DATA * | opnd1, | ||
const AR_TYPE * | opnd1type, | ||
const AR_DATA * | opnd2, | ||
const AR_TYPE * | opnd2type | ||
) |
Definition at line 229 of file intrin.c.
References AR_CLASS, AR_CLASS_INT, AR_Int_16_S, AR_Int_32_S, AR_Int_64_S, AR_Int_8_S, AR_INT_SIZE, ar_selected_real_kind(), ar_set_invalid_result(), AR_STAT_INVALID_TYPE, and IS_ERROR_STATUS.
Referenced by folder_driver(), main(), and misc_tests().
int AR_sqrt | ( | AR_DATA * | result, |
const AR_TYPE * | resulttype, | ||
const AR_DATA * | opnd, | ||
const AR_TYPE * | opndtype | ||
) |
Definition at line 255 of file intrin.c.
References AR_CLASS, AR_CLASS_FLOAT, ar_set_invalid_result(), ar_sqrt(), AR_STAT_INVALID_TYPE, AR_status(), and IS_ERROR_STATUS.
Referenced by ar_cabs(), AR_INTRIN1(), and main().
int AR_transfer | ( | void * | result, |
const void * | source, | ||
const void * | mold, | ||
const AR_DATA * | size, | ||
const AR_TYPE * | sizetype | ||
) |
Definition at line 179 of file intrin.c.
References AR_Int_16_S, AR_Int_32_S, AR_Int_64_S, AR_Int_8_S, AR_INT_SIZE, AR_DATA::ar_internal_data_item1, AR_STAT_INVALID_TYPE, AR_STAT_UNDEFINED, ar_transfer(), and NULL.
Referenced by folder_driver().
int AR_verify | ( | AR_DATA * | result, |
const AR_TYPE * | resulttype, | ||
const char * | str1, | ||
const AR_DATA * | str1len, | ||
const AR_TYPE * | str1lentype, | ||
const char * | str2, | ||
const AR_DATA * | str2len, | ||
const AR_TYPE * | str2lentype, | ||
const AR_DATA * | backward, | ||
const AR_TYPE * | backwardtype | ||
) |
Definition at line 128 of file intrin.c.
References AR_CLASS, AR_CLASS_INT, AR_Int_16_S, AR_Int_32_S, AR_Int_64_S, AR_Int_8_S, AR_INT_SIZE, AR_DATA::ar_internal_data_item1, AR_Logical, ar_set_invalid_result(), AR_STAT_INVALID_TYPE, AR_STAT_UNDEFINED, AR_STAT_ZERO, AR_status(), ar_verify(), IS_ERROR_STATUS, and NULL.
Referenced by folder_driver(), and t_verify().