Back to home page

EIC code displayed by LXR

 
 

    


Warning, /include/comis/cstab.inc is written in an unsupported language. File is not indexed.

0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1  1996/02/26 17:16:34  mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_COMIS_CSTAB_INC
0010 #define CERNLIB_COMIS_CSTAB_INC
0011 *
0012 *
0013 * cstab.inc
0014 *
0015         DOUBLE PRECISION DVPAR
0016         COMPLEX          CXVPAR
0017       COMMON/CSTCGB/NCIDGB,IADGB,ICGB,LENGB,IDGB(8)
0018 *
0019      + /CSTGP/NCIDGP,IADGP,ITYPGP,IFCS,IDESGP,IDGP(8)
0020 *
0021      + /CSTGLI/NCIDGI,ISHGI,NUMGI,MODEGI,ITYPGI,LENEGI,LEQUGI,IOFSGI
0022      +      ,  LXXGLI,IDGI(8)
0023 *
0024      + /CSTLL/LABLL,LABST,LABADR
0025 *
0026         EQUIVALENCE (DVPAR,CXVPAR,RVPAR,IVPAR,LEQUGI)
0027 
0028 #endif