NAME

SYNOPSIS

  SUBROUTINE DCHEX( A, LDA, N, K, L, Z, LDZ, NZ, COS, SIN, JOB)
  INTEGER LDA, N, K, L, LDZ, NZ, JOB
  DOUBLE PRECISION A(LDA,*), Z(LDZ,*), COS(*), SIN(*)
 
  SUBROUTINE DCHEX_64( A, LDA, N, K, L, Z, LDZ, NZ, COS, SIN, JOB)
  INTEGER*8 LDA, N, K, L, LDZ, NZ, JOB
  DOUBLE PRECISION A(LDA,*), Z(LDZ,*), COS(*), SIN(*)
 

C INTERFACE

void dchex(double *a, int lda, int n, int k, int l, double *z, int ldz, int nz, double *cos, double *sin, int job);

void dchex_64(double *a, long lda, long n, long k, long l, double *z, long ldz, long nz, double *cos, double *sin, long job);

ARGUMENTS

* A (input/output)

On entry, the upper triangle of the matrix A. On exit, the upper triangle of A contains the upper triangle of the updated factor. The strict lower triangle of A is not referenced.

* LDA (input)

Leading dimension of the array A as specified in a dimension or type statement. LDA >= max(1,N).

* N (input)

Order of the matrix A. N >= 0.

* K (input)

First column to be permuted. 1 <= K <= L.

* L (input)

Last column to be permuted; must be strictly greater than K. K <= L <= N.

* Z (input/output)

Array of vectors into which the transformation U is multiplied. Not used if NZ = 0.

* LDZ (input)

Leading dimension of the array Z as specified in a dimension or type statement. LDZ >= max(1,N).

* NZ (input)

Number of columns in the matrix Z. NZ >= 0.

* COS (input)

Cosines of the transforming rotations.

* SIN (output)

Sines of the transforming rotations.

* JOB (input)

Determines the type of permutation:

• 1 right circular shift

• 2 left circular shift