// f01vl Example Program Text // C# version, NAG Copyright 2012 using System; using NagLibrary; using System.Globalization; namespace NagDotNetExamples { public class F01VLE { static string datafile = "ExampleData/f01vle.d"; // Specify data file as a command line argument. // It defaults to the named file specified below otherwise. static void Main(String[] args) { if (args.Length == 1) { datafile = args[0]; } StartExample(); } public static void StartExample() { try { DataReader sr = new DataReader(datafile); // f01vl Example Program Text // Mark 25 Release. NAG Copyright 2013. int inc1 = 1, indent = 0, ncols = 80; string diag = "N", intlabel = "I", matrix = "G", nolabel = "N"; string form = "F5.2"; int ifail=0, info=0, lenap=0, lenarf=0, n=0; string title=""; string transr="", uplo=""; double[] ap; double[] arf; string[] clabs = new string[1]; string[] rlabs = new string[1]; Console.WriteLine(" {0}","F01VLF Example Program Results"); // Skip heading in data file sr.Reset(); Console.WriteLine(""); sr.Reset(); n = int.Parse(sr.Next()); uplo = sr.Next(); transr = sr.Next(); lenap = (n * (n + 1)) / 2; lenarf = (int)lenap; ap = new double[lenap]; arf = new double[lenarf]; // allocate // Read an RFP matrix into array ARF sr.Reset(); for (int j = 1; j<=lenarf; j++){ arf[j - 1] = double.Parse(sr.Next(), CultureInfo.InvariantCulture); } // Print the Rectangular Full Packed array title = "RFP Packed Array ARF:"; ifail = 0; X04.x04cb(matrix, diag, lenarf, inc1, arf, form, title, intlabel, rlabs, nolabel, clabs, ncols, indent, out ifail); Console.WriteLine(""); // Convert to packed vector form info = 0; // The NAG name equivalent of dtfttp is f01vlf F01.f01vl(transr, uplo, n, arf, ap, out info); // Print the packed vector title = "Packed Array AP: "; ifail = 0; X04.x04cb(matrix, diag, lenap, inc1, ap, form, title, intlabel, rlabs, nolabel, clabs, ncols, indent, out ifail); } catch (Exception e) { Console.WriteLine(e.Message); Console.WriteLine( "Exception Raised"); } } } }