5 * Revision 1.1.2.1 2002/07/11 17:14:49 alibrary
8 * Revision 1.1.1.1 1999/05/18 15:55:36 fca
11 * Revision 1.1.1.1 1996/04/01 15:02:59 mclareni
18 #if (defined(CERNLIB_DOUBLE))&&(defined(CERNLIB_F90))
19 IMPLICIT COMPLEX(2) (A-H,I,O-Z)
21 #elif !defined(CERNLIB_DOUBLE)
22 IMPLICIT COMPLEX (A-H,I,O-Z)
25 IMPLICIT COMPLEX*16 (A-H,I,O-Z)