NAME

zgebak - form the right or left eigenvectors of a complex general matrix by backward transformation on the computed eigenvectors of the balanced matrix output by CGEBAL


SYNOPSIS

  SUBROUTINE ZGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, INFO)
  CHARACTER * 1 JOB, SIDE
  DOUBLE COMPLEX V(LDV,*)
  INTEGER N, ILO, IHI, M, LDV, INFO
  DOUBLE PRECISION SCALE(*)
  SUBROUTINE ZGEBAK_64( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, 
 *      INFO)
  CHARACTER * 1 JOB, SIDE
  DOUBLE COMPLEX V(LDV,*)
  INTEGER*8 N, ILO, IHI, M, LDV, INFO
  DOUBLE PRECISION SCALE(*)

F95 INTERFACE

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

C INTERFACE

#include <sunperf.h>

void zgebak(char job, char side, int n, int ilo, int ihi, double *scale, int m, doublecomplex *v, int ldv, int *info);

void zgebak_64(char job, char side, long n, long ilo, long ihi, double *scale, long m, doublecomplex *v, long ldv, long *info);


PURPOSE

zgebak forms the right or left eigenvectors of a complex general matrix by backward transformation on the computed eigenvectors of the balanced matrix output by CGEBAL.


ARGUMENTS