//      LAPACK++ (V. 1.1 Beta)
//      (C) 1992-1996 All Rights Reserved.

#ifdef HAVE_CONFIG_H
# include <config.h>
#endif

#include "arch.h"
#include "lafnames.h"
#include LA_LOWER_TRIANG_MAT_DOUBLE_H

DLLIMPORT double LaLowerTriangMatDouble::outofbounds_ = 0;// initialize outofbounds.

DLLIMPORT int LaLowerTriangMatDouble::debug_ = 0;  // initialize debug to off.

DLLIMPORT int* LaLowerTriangMatDouble::info_= new int;  // turn off info print flag.

LaLowerTriangMatDouble& LaLowerTriangMatDouble::copy(
        const LaLowerTriangMatDouble &ob)
{

  if (debug())
  {
      std::cout << " ob: " << ob.info() << std::endl;
  }


  int M = ob.size(0);
  int N = ob.size(1);
  int i,j;

  resize(ob);

  for (i=0; i<M; i++)
    for (j=0; j<N; j++)
      if (i>=j)
        (*this)(i,j) = ob(i,j);

  if (debug())
  {
    std::cout << " *this: " << this->info() << std::endl;
  }

  return *this;
}


std::ostream &operator<<(std::ostream &s, const LaLowerTriangMatDouble &ob)
{
  if (*(ob.info_))     // print out only matrix info, not actual values
  {
      *(ob.info_) = 0; // reset the flag
      s << "(" << ob.size(0) << "x" << ob.size(1) << ") " ;
      s << "Indices: " << ob.index(0) << " " << ob.index(1);
      s << " #ref: " << ob.ref_count() ;
      s << " sa:" << ob.shallow();
  }
  else
  {
    int M = ob.size(0);
    int N = ob.size(1);
    int i,j;

    for (i=0; i<M; i++)
    {
     for (j=0;j<N;j++)
     {
       if (i>=j)
       s << ob(i,j) << "  ";
     }
     s << std::endl;
    }
  }
  return s;
}

 LaLowerTriangMatDouble& LaLowerTriangMatDouble::operator=(double s)
{

  int M = (*this).size(0);
  int N = (*this).size(1);
  int i,j;
  
  for (j=0; j<N; j++)
    for (i=0; i<M; i++)
      if (i>=j)
        (*this)(i,j) = s;

  return *this;
}