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
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(*)
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
#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);
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.
= 'R': V contains right eigenvectors;
= 'L': V contains left eigenvectors.
= 0: successful exit
< 0: if INFO = -i, the i-th argument had an illegal value.