Warning, /include/cspack/szchopt.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:17 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_CSPACK_SZCHOPT_INC
0010 #define CERNLIB_CSPACK_SZCHOPT_INC
0011 *
0012 *
0013 * szchopt.inc
0014 *
0015 IL = INDEX(CHMAIL,'/')
0016 IR = INDEXB(CHMAIL,'/')
0017 IF((IL.NE.0).AND.(IR.GT.IL)) THEN
0018 CHOPT = CHMAIL(IL+1:IR-1)
0019 ELSE
0020 CHOPT = ' '
0021 ENDIF
0022 *
0023
0024 #endif
