Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/ffread/ffcomm.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:40  mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_FFREAD_FFCOMM_INC
0010 #define CERNLIB_FFREAD_FFCOMM_INC
0011 *
0012 *
0013 * ffcomm.inc
0014 *
0015       PARAMETER (NFJUMP=99)
0016       COMMON /FFCOMM/ FFFLAG, KUJUMP, KFJUMP(NFJUMP)
0017 #if defined(CERNLIB_SAVE)
0018 #include "ffread/ffcommsv.inc"
0019 #endif
0020 C
0021 C     FFFLAG gives the number of errors that occured during reading of
0022 C     the data cards.
0023 C
0024 
0025 #endif