Warning, /include/cspack/szmess.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.4 1996/12/12 16:47:43 jamie
0006 * CPP on IBM seems to pass C comments to Fortran?
0007 *
0008 * Revision 1.3 1996/11/18 07:32:51 jamie
0009 * forgot #endif
0010 *
0011 * Revision 1.2 1996/11/15 08:07:09 jamie
0012 * szmess must be includable multiple times
0013 *
0014 * Revision 1.1.1.1 1996/03/08 15:44:18 mclareni
0015 * Cspack
0016 *
0017 *
0018 * #ifndef CERNLIB_CSPACK_SZMESS_INC
0019 * #define CERNLIB_CSPACK_SZMESS_INC
0020 *
0021 *
0022 * szmess.inc
0023 *
0024 *
0025 * Send message to client indicating success/failure
0026 *
0027 LEND = INDEX(CHM(1:4),' ')
0028 IF(LEND.EQ.0) LEND = 4
0029 IF(IRC.EQ.0) THEN
0030 WRITE(CHMAIL,8001) CHM(1:LEND),IRC
0031 ELSEIF(IRC.GT.0) THEN
0032 WRITE(CHMAIL,8002) CHM(1:LEND),IRC
0033 ELSEIF(IRC.LT.0) THEN
0034 WRITE(CHMAIL,8003) CHM(1:LEND),IRC
0035 ENDIF
0036
0037 CALL CZPUTA(CHMAIL,ISTAT)
0038 *
0039
0040 * #endif
