NAME

sgebak - form the right or left eigenvectors of a real general matrix by backward transformation on the computed eigenvectors of the balanced matrix output by SGEBAL


SYNOPSIS

  SUBROUTINE SGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, INFO)
  CHARACTER * 1 JOB, SIDE
  INTEGER N, ILO, IHI, M, LDV, INFO
  REAL SCALE(*), V(LDV,*)
  SUBROUTINE SGEBAK_64( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, 
 *      INFO)
  CHARACTER * 1 JOB, SIDE
  INTEGER*8 N, ILO, IHI, M, LDV, INFO
  REAL SCALE(*), V(LDV,*)

F95 INTERFACE

  SUBROUTINE GEBAK( JOB, SIDE, [N], ILO, IHI, SCALE, [M], V, [LDV], 
 *       [INFO])
  CHARACTER(LEN=1) :: JOB, SIDE
  INTEGER :: N, ILO, IHI, M, LDV, INFO
  REAL, DIMENSION(:) :: SCALE
  REAL, DIMENSION(:,:) :: V
  SUBROUTINE GEBAK_64( JOB, SIDE, [N], ILO, IHI, SCALE, [M], V, [LDV], 
 *       [INFO])
  CHARACTER(LEN=1) :: JOB, SIDE
  INTEGER(8) :: N, ILO, IHI, M, LDV, INFO
  REAL, DIMENSION(:) :: SCALE
  REAL, DIMENSION(:,:) :: V

C INTERFACE

#include <sunperf.h>

void sgebak(char job, char side, int n, int ilo, int ihi, float *scale, int m, float *v, int ldv, int *info);

void sgebak_64(char job, char side, long n, long ilo, long ihi, float *scale, long m, float *v, long ldv, long *info);


PURPOSE

sgebak forms the right or left eigenvectors of a real general matrix by backward transformation on the computed eigenvectors of the balanced matrix output by SGEBAL.


ARGUMENTS