#ifndef __CBLAS_H_
#define __CBLAS_H_

/* enumerated types */

enum blas_prec_type {
    blas_prec_single = 1,
    blas_prec_double = 2,
    blas_prec_indigenous = 3,
    blas_prec_extra = 4
};

enum blas_conjugate {
    blas_conj = 601,
    blas_no_conj = 602
};

enum type_prec {
    real_S = 1,
    real_D = 2,
    real_I = 3,
    real_E = 4,
    complex_S = 5,
    complex_D = 6,
    complex_I = 7,
    complex_E = 8
};

/* constants */

/* Split a double into 2 parts with at most 26 bits each. (2^27 + 1) */
#define split 	(134217729.0)


#define CBLAS_ERROR(routine) {                      \
    fprintf(stderr, "%s is erroneous\n", routine);  \
    exit(-1);                                       \
}

#endif /* __CBLAS_H_ */