Warning, /include/cspack/czsock.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_CZSOCK_INC
0010 #define CERNLIB_CSPACK_CZSOCK_INC
0011 *
0012 *
0013 * czsock.inc
0014 *
0015 COMMON/CZSOCK/LUNCZ,IADTCP,LBUF,ISKIN,ISKOUT,IPROT,
0016 + JUNIT(99),JSKIN(99),JSKOUT(99),CUNODE,
0017 + CHNODE(99),CHUSER(99)
0018 CHARACTER*12 CHNODE,CUNODE,CHUSER
0019 PARAMETER (LNODE=12)
0020 PARAMETER (LUSER=12)
0021 PARAMETER (MAXSOC=99)
0022 *
0023 * IPROT: 0 - TCP/IP (TCPAW)
0024 * 1 - DECnet (included in CZ)
0025 * CHNODE & CHUSER store the node and user names that correspond
0026 * to JUNIT
0027 *
0028
0029 #endif
