Sophie

Sophie

distrib > Fedora > 14 > x86_64 > by-pkgid > 6ba95eb068aab5480bfe9a9a0d0fa03c > files > 193

blitz-devel-0.9-13.fc13.x86_64.rpm

#include <blitz/tinymat.h>
#include <blitz/tinyvec-et.h>

using namespace blitz;

template<typename T> void sink(T&) { }

int main()
{
   TinyMatrix<complex<double>,4,4> gamma1, gamma3;
   TinyVector<complex<double>,4> Psi;

   complex<double> i(0,1);

   gamma1 = 0, i, 0, 0,
            i, 0, 0, 0,
            0, 0, 0, -i,
            0, 0, -i, 0;

   gamma3 = 0, 1, 0, 0,
            -1, 0, 0, 0,
            0, 0, 0, 1,
            0, 0, -1, 0;

   sink(Psi);

   TinyVector<complex<double>,4> tmp, result;
   tmp = product(gamma3,Psi);
   result = product(gamma1,tmp);

   sink(result);
   return 0;
}