// f01vm Example Program Text // C# version, NAG Copyright 2012 using System; using NagLibrary; namespace NagDotNetExamples { public class F01VME { static string datafile = "ExampleData/f01vme.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); // f01vm Example Program Text // Mark 25 Release. NAG Copyright 2013. int inc1 = 1, indent = 0, ncols = 80; string brac = "B", 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=""; Complex[] ap; Complex[] arf; string[] clabs = new string[1]; string[] rlabs = new string[1]; Console.WriteLine(" {0}","F01VMF 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 Complex[lenap]; arf = new Complex[lenarf]; // allocate // Read an RFP matrix into array ARF sr.Reset(); for (int i = 1; i < lenarf; i++) { arf[i-1] = Complex.Parse(sr.Next()); } // Print the Rectangular Full Packed array title = "RFP Packed Array ARF:"; ifail = 0; X04.x04db(matrix, diag, lenarf, inc1, arf, brac, form, title, intlabel, rlabs, nolabel, clabs, ncols, indent, out ifail); Console.WriteLine(""); // Convert to packed vector form info = 0; // The NAG name equivalent of ztfttp is f01vmf F01.f01vm(transr, uplo, n, arf, ap, out info); // Print the packed vector title = "Packed Array AP: "; ifail = 0; X04.x04db(matrix, diag, lenap, inc1, ap, brac, form, title, intlabel, rlabs, nolabel, clabs, ncols, indent, out ifail); } catch (Exception e) { Console.WriteLine(e.Message); Console.WriteLine( "Exception Raised"); } } } }