public static void six_j_values_test()
//****************************************************************************80
//
// Purpose:
//
// SIX_J_VALUES_TEST tests SIX_J_VALUES.
//
// Licensing:
//
// This code is distributed under the GNU LGPL license.
//
// Modified:
//
// 07 February 2007
//
// Author:
//
// John Burkardt
//
{
double fx = 0;
double j1 = 0;
double j2 = 0;
double j3 = 0;
double j4 = 0;
double j5 = 0;
double j6 = 0;
Console.WriteLine("");
Console.WriteLine("SIX_J_VALUES_TEST:");
Console.WriteLine(" SIX_J_VALUES returns values of ");
Console.WriteLine(" the Wigner 6J coefficient.");
Console.WriteLine("");
Console.WriteLine(
" J1 J2 J3 J4 J5 J6 SIX_J");
Console.WriteLine("");
int n_data = 0;
for (;;)
{
Wigner.six_j_values(ref n_data, ref j1, ref j2, ref j3, ref j4, ref j5, ref j6, ref fx);
if (n_data == 0)
{
break;
}
Console.WriteLine(" " + j1.ToString(CultureInfo.InvariantCulture).PadLeft(6)
+ " " + j2.ToString(CultureInfo.InvariantCulture).PadLeft(6)
+ " " + j3.ToString(CultureInfo.InvariantCulture).PadLeft(6)
+ " " + j4.ToString(CultureInfo.InvariantCulture).PadLeft(6)
+ " " + j5.ToString(CultureInfo.InvariantCulture).PadLeft(6)
+ " " + j6.ToString(CultureInfo.InvariantCulture).PadLeft(6)
+ " " + fx.ToString("0.################").PadLeft(24) + "");
}
}
public static void three_j_values_test()
//****************************************************************************80
//
// Purpose:
//
// THREE_J_VALUES_TEST tests THREE_J_VALUES.
//
// Licensing:
//
// This code is distributed under the GNU LGPL license.
//
// Modified:
//
// 07 February 2007
//
// Author:
//
// John Burkardt
//
{
double fx = 0;
double j1 = 0;
double j2 = 0;
double j3 = 0;
double m1 = 0;
double m2 = 0;
double m3 = 0;
Console.WriteLine("");
Console.WriteLine("THREE_J_VALUES_TEST:");
Console.WriteLine(" THREE_J_VALUES returns values of");
Console.WriteLine(" the Wigner 3J coefficient.");
Console.WriteLine("");
Console.WriteLine(" J1 J2 J3 M1 M2 M3 THREE_J");
Console.WriteLine("");
int n_data = 0;
for (;;)
{
Wigner.three_j_values(ref n_data, ref j1, ref j2, ref j3, ref m1, ref m2, ref m3, ref fx);
if (n_data == 0)
{
break;
}
Console.WriteLine(" " + j1.ToString(CultureInfo.InvariantCulture).PadLeft(6)
+ " " + j2.ToString(CultureInfo.InvariantCulture).PadLeft(6)
+ " " + j3.ToString(CultureInfo.InvariantCulture).PadLeft(6)
+ " " + m1.ToString(CultureInfo.InvariantCulture).PadLeft(6)
+ " " + m2.ToString(CultureInfo.InvariantCulture).PadLeft(6)
+ " " + m3.ToString(CultureInfo.InvariantCulture).PadLeft(6)
+ " " + fx.ToString("0.################").PadLeft(24) + "");
}
}
