Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revision Previous revision
Next revision
Previous revision
wifd_pkshape [2009/08/06 12:11]
clare
wifd_pkshape [2009/12/14 08:02]
johnsoevans
Line 8: Line 8:
 Contributed by: Bill David Contributed by: Bill David
  
-<​code ​fortran>+<​code ​topas>
 macro wifd_pkshape(two_theta,​two_thetav,​aprm,​aprmv,​tauf_2,​tauf_2v,​tauf_1,​tauf_1v,​tauf_0,​tauf_0v,​taus_0,​taus_0v,​taus_1,​taus_1v,​t_eff,​t_effv,​hhh,​hhhv,​hhh_0,​hhh_0v) { macro wifd_pkshape(two_theta,​two_thetav,​aprm,​aprmv,​tauf_2,​tauf_2v,​tauf_1,​tauf_1v,​tauf_0,​tauf_0v,​taus_0,​taus_0v,​taus_1,​taus_1v,​t_eff,​t_effv,​hhh,​hhhv,​hhh_0,​hhh_0v) {
  local ​ !two_theta two_thetav  local ​ !two_theta two_thetav
Line 34: Line 34:
 } }
 </​code>​ </​code>​
 +
 +Some caveat emptor values to get you going are:
 +
 +<code topas>​wifd_pkshape(two_theta,​ 168.567, aprm, 2.50000`_0.62706,​ tauf_2, 9.80744`_5.89895,​ tauf_1, 0.43977`_0.10151,​ !tauf_0, 0.000, taus_0, 25.27420`_0.20815,​ taus_1, 2.66797`_0.09213,​ t_eff, 144.41296`_0.54047,​ hhh, 3.58595`_5.10736,​ hhh_0, 11.61348`_1.21068)   ​
 +wifd_pkshape(two_theta,​ 90.2481, aprm, 2.50000`_0.62706,​ tauf_2, 9.80744`_5.89895,​ tauf_1, 0.43977`_0.10151,​ !tauf_0, 0.000, taus_0, 25.27420`_0.20815,​ taus_1, 2.66797`_0.09213,​ t_eff, 144.41296`_0.54047,​ hhh, 3.58595`_5.10736,​ hhh_0, 11.61348`_1.21068)   ​
 +wifd_pkshape(two_theta,​ 29.9309, aprm, 2.50000`_0.62706,​ tauf_2, 9.80744`_5.89895,​ tauf_1, 0.43977`_0.10151,​ !tauf_0, 0.000, taus_0, 25.27420`_0.20815,​ taus_1, 2.66797`_0.09213,​ t_eff, 144.41296`_0.54047,​ hhh, 3.58595`_5.10736,​ hhh_0, 11.61348`_1.21068)</​code>​   ​
 +

Personal Tools