//      f06pj Example Program Text
//      C# version, NAG Copyright 2008
using System;
using NagLibrary;
using System.Globalization;
namespace NagDotNetExamples
{
  public class F06PJE
  {

    static void Main(String[] args)
    {
      StartExample();
    }
    public static void StartExample()
    {
      try
      {
        double[,] a = { { 1, 2 , 3}, { 4, 5, 6 }, { 7, 8, 9}};
	double[] x = {1, 2, 3};
	
	int lda =3;
	int n = 3;
    int incx = 1;

        int ifail;
	string uplo = "U";
        string trans = "N";
	string diag = "N";
	
        F06.f06pj(uplo, trans, diag, n, a, x, incx, out ifail);

	for (int i=0; i< lda; i++){
			Console.WriteLine("x[{0}] = {1}", i, x[i]);
	}
      
      }
      catch (Exception e)
      {
        Console.WriteLine(e.Message);
        Console.WriteLine("Exception Raised");
      }
    }
  }
}