44int main(
int argc,
char* argv[])
46 if (argc>1 && !strcmp(argv[1],
"-v"))
os_ = &cout;
47 if (
os_) *
os_ <<
"TruncatedLorentzianTest\n";
49 if (
os_) *
os_ << setprecision(8);
51 ublas::vector<double> p(4);
53 p(TruncatedLorentzian::AlphaR) = 1;
54 p(TruncatedLorentzian::AlphaI) = 5;
55 p(TruncatedLorentzian::Tau) = 2;
56 p(TruncatedLorentzian::F0) = 0;
76 if (
os_) *
os_ <<
"L(0): " << L(0,p) << endl;