Warning, /include/hepdb/cdopen.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/02/28 16:24:02 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_HEPDB_CDOPEN_INC
0010 #define CERNLIB_HEPDB_CDOPEN_INC
0011 *
0012 *
0013 * cdopen.inc
0014 *
0015 CALL CDCOUN(NFILES)
0016 IF(NFILES.EQ.0) THEN
0017 IF(LLOGCD.GT.-3) WRITE(LPRTCD,*) 'No files currently ',
0018 + 'open - use the OPEN command to open a file'
0019 RETURN
0020 ENDIF
0021
0022 #endif
