intrin.c File Reference

#include <math.h>
#include <signal.h>
#include <errno.h>
#include <setjmp.h>
#include <stdio.h>
#include "arith.internal.h"
#include "int64.h"
Include dependency graph for intrin.c:

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 $"

Function Documentation

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.

Here is the call graph for this function:

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.

Here is the call graph for this function:

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().

Here is the call graph for this function:

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().

Here is the call graph for this function:

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().

Here is the call graph for this function:

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().

Here is the call graph for this function:

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().

Here is the call graph for this function:

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().

Here is the call graph for this function:

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().

Here is the call graph for this function:

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().

Here is the call graph for this function:

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().

Here is the call graph for this function:

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().

Here is the call graph for this function:

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().

Here is the call graph for this function:

Variable Documentation

char rcsid[] = "$Id: intrin.c,v 1.1.1.1 2002-05-22 20:06:19 dsystem Exp $" [static]

Definition at line 385 of file intrin.c.

char USMID[] = "\n%Z%%M% %I% %G% %U%\n" [static]

Definition at line 384 of file intrin.c.

Generated on Tue Nov 17 05:55:49 2009 for Open64 (mfef90, whirl2f, and IR tools) by  doxygen 1.6.1