//      f01vf Example Program Text
//      C# version, NAG Copyright 2012

using System;
using NagLibrary;
namespace NagDotNetExamples
{
    public class F01VFE
    {

        static string datafile = "ExampleData/f01vfe.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);
//      f01vf 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 i=0,
                   ifail=0,
                   info=0,
                   lda=0,
                   lenarf=0,
                   n=0;

string title="";

string transr="",
                   uplo="";



string[] clabs = new string[1];

string[] rlabs = new string[1];

Console.WriteLine(" {0}","F01VFF 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();


lda = (int)n;

lenarf = n*(n+1)/2;

Complex[,] a = new Complex[lda, n];

Complex[] arf = new Complex[lenarf];

// allocate
  sr.Reset();
//      Read a triangular matrix of order n into array A
 for (i = 1 ; i <= n ; i++)
 {
      for (int j= 1 ; j <= n ; j++)
 {


    a[i - 1 , j -1] = Complex.Parse(sr.Next());

      }
}

//      Print the unpacked array
title = "Unpacked Matrix A:   ";

ifail = 0;
X04.x04db(uplo, diag, n, n, a, brac, form, title, intlabel, rlabs, intlabel, clabs, ncols, indent, out ifail);

Console.WriteLine("");

//      Convert to Rectangular Full Packed form
info = 0;

//      The NAG name equivalent of ztrttf is f01vff
     F01.f01vf(transr, uplo, n, a, arf, out info);

//      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);



     }

     catch (Exception e)
    {
      Console.WriteLine(e.Message);
      Console.WriteLine( "Exception Raised");
    }
  }
    }
}