dsymatrix-calc.hpp File Reference

Go to the source code of this file.

Functions
_dsymatrix	t (const dsymatrix &mat)
_dsymatrix	i (const dsymatrix &mat)
void	idamax (CPPL_INT &i, CPPL_INT &j, const dsymatrix &mat)
double	damax (const dsymatrix &mat)

Function Documentation

_dsymatrix t ( const dsymatrix &  mat )

inline

return transposed dgematrix

Definition at line 3 of file dsymatrix-calc.hpp.

References _().

{CPPL_VERBOSE_REPORT;
#ifdef  CPPL_DEBUG
  WARNING_REPORT;
  std::cerr << "This function call has no effect since the matrix is symmetric." << std::endl;
#endif//CPPL_DEBUG
  
  dsymatrix newmat(mat);
  return _(newmat);
}

_dsymatrix i ( const dsymatrix &  mat )

inline

return its inverse matrix

Definition at line 16 of file dsymatrix-calc.hpp.

References _(), dsymatrix::array, dsymatrix::complete(), dsymatrix::identity(), and dsymatrix::n.

Referenced by damax().

{CPPL_VERBOSE_REPORT;
  dsymatrix mat_cp =mat;
  dsymatrix mat_inv(mat.n);
  mat_inv.identity();
  mat_inv.complete();
  
  char UPLO('l');
  CPPL_INT NRHS(mat.n), LDA(mat.n), *IPIV(new CPPL_INT[mat.n]), LDB(mat.n), LWORK(-1), INFO(1);
  double *WORK( new double[1] );
  dsysv_(&UPLO, &mat.n, &NRHS, mat_cp.array, &LDA, IPIV, mat_inv.array, &LDB, WORK, &LWORK, &INFO);
  
  LWORK = CPPL_INT(WORK[0]);
  delete [] WORK;
  WORK = new double[LWORK];
  dsysv_(&UPLO, &mat.n, &NRHS, mat_cp.array, &LDA, IPIV, mat_inv.array, &LDB, WORK, &LWORK, &INFO);
  
  delete [] WORK;
  delete [] IPIV;
  if(INFO!=0){
    WARNING_REPORT;
    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
  }
  
  return _(mat_inv);
}

void idamax ( CPPL_INT &  i, CPPL_INT &  j, const dsymatrix &  mat  )

inline

search the index of element having the largest absolute value in 0-based numbering system

Definition at line 49 of file dsymatrix-calc.hpp.

References dsymatrix::darray, and dsymatrix::n.

Referenced by damax().

{CPPL_VERBOSE_REPORT;
  i=j=0;
  double val =0.;
  
  for(CPPL_INT J=0; J<mat.n; J++){
    for(CPPL_INT I=J; I<mat.n; I++){
      if(val<fabs(mat.darray[J][I]) ){
        val =fabs(mat.darray[J][I]);
        i=I;
        j=J;
      }
    }
  }
}

double damax ( const dsymatrix &  mat )

inline

return its largest absolute value

Definition at line 67 of file dsymatrix-calc.hpp.

References i(), and idamax().

{CPPL_VERBOSE_REPORT;
  CPPL_INT i,j;
  idamax(i, j, mat);
  return mat(i,j);
}