Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/isajet/force.inc is written in an unsupported language. File is not indexed.

0001 #ifndef CERNLIB_ISAJET_FORCE_INC
0002 #define CERNLIB_ISAJET_FORCE_INC
0003 *
0004 *
0005 * force.inc
0006 *
0007       INTEGER   MXFORC
0008       PARAMETER (MXFORC=40)
0009       COMMON/FORCE/NFORCE,IFORCE(MXFORC),MFORCE(5,MXFORC)
0010      $,LOOK2(2,MXFORC),LOOKST(MXFORC),MEFORC(MXFORC)
0011       SAVE /FORCE/
0012       INTEGER   NFORCE,IFORCE,MFORCE,LOOK2,LOOKST,MEFORC
0013 
0014 #endif