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