#ifdef dblprec
# define FLOAT double precision
# define FLoaT dble
# define COMPLEX complex*16
# define CMPLX dcmplx
# define ReaL dble
#else
# define FLOAT real
# define FLoaT float
# define COMPLEX complex
# define CMPLX cmplx
# define ReaL real
#endif