test.cpp

Go to the documentation of this file.

#include<complex>
#include<iostream>
#include"blas_wrapper.h"

using namespace std;

int main()
{
complex<double> pippo[2];

pippo[0]=dcmplx(24,3);
pippo[1]=dcmplx(4,3);
cout << pippo[0] << endl;
int i=1,b=2;
cout << " norma " << F77_FUNC(dznrm2,DZNRM2)(&i,(double*)pippo,&b) << endl;
}

---