Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/ffread/ffmach.inc is written in an unsupported language. File is not indexed.

0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1  1996/03/08 11:50:39  mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_FFREAD_FFMACH_INC
0010 #define CERNLIB_FFREAD_FFMACH_INC
0011 *
0012 *
0013 * ffmach.inc
0014 *
0015 #if defined(CERNLIB_DOUBLE)
0016       PARAMETER (NCHWD  =   4,
0017      *           NBITCH =   8,
0018      *           NBITWD =  32,
0019      *           IQANIL = -77)
0020 #endif
0021 #if (defined(CERNLIB_SINGLE))&&(!defined(CERNLIB_CDC))
0022       PARAMETER (NCHWD  =   8,
0023      *           NBITCH =   8,
0024      *           NBITWD =  64,
0025      *           IQANIL = -77)
0026 #endif
0027 #if defined(CERNLIB_CDC)
0028       PARAMETER (NCHWD  =  10,
0029      *           NBITCH =   6,
0030      *           NBITWD =  60,
0031      *           IQANIL = -77)
0032 #endif
0033 #if defined(CERNLIB_UNIVAC)
0034       PARAMETER (NCHWD  =   4,
0035      *           NBITCH =   9,
0036      *           NBITWD =  36,
0037      *           IQANIL = -77)
0038 #endif
0039 C
0040 C     NCHWD  - # of characters per word
0041 C     NBITCH - # of bits per character
0042 C     NBITWD - # of bits per word
0043 C     IQANIL - # weard address for the user routine
0044 C
0045 
0046 #endif