Warning, /include/cspack/czflush.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/08 15:44:16 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_CSPACK_CZFLUSH_INC
0010 #define CERNLIB_CSPACK_CZFLUSH_INC
0011 *
0012 *
0013 * czflush.inc
0014 *
0015 *
0016 * Flush server messages
0017 *
0018 10 CONTINUE
0019 CALL CZGETA(CHMAIL,ISTAT)
0020 LCH = LENOCC(CHMAIL)
0021 IF(CHMAIL(1:1).EQ.'0') THEN
0022 *
0023 * Nop
0024 *
0025 ELSEIF(CHMAIL(1:1).EQ.'1') THEN
0026 ELSEIF(CHMAIL(1:1).EQ.'2') THEN
0027 GOTO 10
0028 ELSEIF(CHMAIL(1:1).EQ.'3') THEN
0029 IQUEST(1) = 1
0030 IRC = 1
0031 ELSEIF(CHMAIL(1:1).EQ.'E') THEN
0032 IQUEST(1) = -1
0033 IRC = -1
0034 ELSEIF(CHMAIL(1:1).EQ.'V') THEN
0035 GOTO 10
0036 ELSE
0037 IQUEST(1) = 1
0038 IRC = 1
0039 ENDIF
0040 *
0041
0042 #endif
