For portability use F77 BLAS instead of CBLAS.