CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C  File Name: cray1f.h
C
C  Functional Description: The header file cray1f.h defines macros
C      used by FORTRAN code on the CRAY-T90/SV1 when implementing
C      the bench11 multiple precision benchmark routines.
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
c  CVS Info
c  $Date: 2005/01/10 21:05:28 $
c  $Revision: 1.2 $
c  $RCSfile: cray1f.h,v $
c  $Name: rel_5 $

#define MPLONG		INTEGER(kind=8)

C  The total number of bits in an MPLONG
#define WORDLEN		64

C  The number of bits in each digit word used by the multiple
C  precision structure (normally WORDLEN/2).
#define BITSPERWORD	32

C  The number of usable bits in the mantissa of a double
C  (Look in the file /usr/include/float.h)
C  Also define a fudge factor so that for any values of rem and div:
C     floor(rem/div) > int(float(rem-DIVFUDGE*2^stuff)/float(div))
C     where float(x) is the double precision representation
C     of the top DBL_MANT_DIG-1 bits of x and stuff is chosen so
C     DIVFUDGE effects only the bottom bits of those chosen by float.
C 
#define DBL_MANT_DIG	53
#define DIVFUDGE	3

C  There are 64 bits in an INTEGER on the T90/SV1. This is important
C  because many functions in MPUTIL return an INTEGER, not an MPLONG.
C
#define INTEGER_BITS	64

#define VECTLEN		64

C  Define a string containing a single backslash
#define BACKSLASH "\\"