libcruft/misc/machar.c File Reference

#include <float.h>
#include "f77-fcn.h"
#include <math.h>
#include <stdio.h>

Go to the source code of this file.

Defines

#define ABS(xxx)   ((xxx>ZERO)?(xxx):(-xxx))

Functions

void rmachar (int *ibeta, int *it, int *irnd, int *ngrd, int *machep, int *negep, int *iexp, int *minexp, int *maxexp, REAL *eps, REAL *epsneg, REAL *xmin, REAL *xmax)
F77_RET_T F77_FUNC (machar, MACHAR)


Define Documentation

#define ABS ( xxx   )     ((xxx>ZERO)?(xxx):(-xxx))

Definition at line 38 of file machar.c.

Referenced by rmachar().


Function Documentation

F77_RET_T F77_FUNC ( machar  ,
MACHAR   
)

Definition at line 372 of file machar.c.

References F77_RETURN, rmachar(), xmax(), and xmin().

void rmachar ( int *  ibeta,
int *  it,
int *  irnd,
int *  ngrd,
int *  machep,
int *  negep,
int *  iexp,
int *  minexp,
int *  maxexp,
REAL *  eps,
REAL *  epsneg,
REAL *  xmin,
REAL *  xmax 
)

Definition at line 41 of file machar.c.

References ABS.

Referenced by F77_FUNC().