Warning, /include/comis/csdpvs.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_CSDPVS_INC
0010 #define CERNLIB_COMIS_CSDPVS_INC
0011 *
0012 *
0013 * csdpvs.inc
0014 *
0015 DOUBLE PRECISION D, D1, D2
0016 COMPLEX CX, CX1, CX2
0017 COMMON/CSDPVS/D,D1,D2
0018 EQUIVALENCE (D,CX), (D1,CX1), (D2,CX2)
0019 PARAMETER (KDLEN=2, KDLEN2=KDLEN*2)
0020
0021 #endif
