/*

 *     Written by D.P. Manley, Digital Equipment Corporation.

 *     Prefixed "C_" to BLAS routines and their declarations.

 *

 *     Modified by T. H. Do, 4/15/98, SGI/CRAY Research.

 */

#include <stdlib.h></stdlib.h>

#include "common.h"

#include "cblas_test.h"

#define  TEST_COL_MJR	0

#define  TEST_ROW_MJR	1

#define  UNDEFINED     -1

void F77_zgemm(int *order, char *transpa, char *transpb, int *m, int *n, 

     int *k, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,

     CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta, 

     CBLAS_TEST_ZOMPLEX *c, int *ldc ) {

  CBLAS_TEST_ZOMPLEX *A, *B, *C;

  int i,j,LDA, LDB, LDC;

  enum CBLAS_TRANSPOSE transa, transb;

  get_transpose_type(transpa, &transa);

  get_transpose_type(transpb, &transb);

  if (*order == TEST_ROW_MJR) {

     if (transa == CblasNoTrans) {

        LDA = *k+1;

        A=(CBLAS_TEST_ZOMPLEX*)malloc((*m)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));

        for( i=0; i<*m; i++ )

           for( j=0; j<*k; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

           }

     }

     else {

        LDA = *m+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc(LDA*(*k)*sizeof(CBLAS_TEST_ZOMPLEX));

        for( i=0; i<*k; i++ )

           for( j=0; j<*m; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

           }

     }

     if (transb == CblasNoTrans) {

        LDB = *n+1;

        B=(CBLAS_TEST_ZOMPLEX* )malloc((*k)*LDB*sizeof(CBLAS_TEST_ZOMPLEX) );

        for( i=0; i<*k; i++ )

           for( j=0; j<*n; j++ ) {

              B[i*LDB+j].real=b[j*(*ldb)+i].real;

              B[i*LDB+j].imag=b[j*(*ldb)+i].imag;

           }

     }

     else {

        LDB = *k+1;

        B=(CBLAS_TEST_ZOMPLEX* )malloc(LDB*(*n)*sizeof(CBLAS_TEST_ZOMPLEX));

        for( i=0; i<*n; i++ )

           for( j=0; j<*k; j++ ) {

              B[i*LDB+j].real=b[j*(*ldb)+i].real;

              B[i*LDB+j].imag=b[j*(*ldb)+i].imag;

           }

     }

     LDC = *n+1;

     C=(CBLAS_TEST_ZOMPLEX* )malloc((*m)*LDC*sizeof(CBLAS_TEST_ZOMPLEX));

     for( j=0; j<*n; j++ )

        for( i=0; i<*m; i++ ) {

           C[i*LDC+j].real=c[j*(*ldc)+i].real;

           C[i*LDC+j].imag=c[j*(*ldc)+i].imag;

        }

     cblas_zgemm( CblasRowMajor, transa, transb, *m, *n, *k, alpha, A, LDA,

                  B, LDB, beta, C, LDC );

     for( j=0; j<*n; j++ )

        for( i=0; i<*m; i++ ) {

           c[j*(*ldc)+i].real=C[i*LDC+j].real;

           c[j*(*ldc)+i].imag=C[i*LDC+j].imag;

        }

     free(A);

     free(B);

     free(C);

  }

  else if (*order == TEST_COL_MJR)

     cblas_zgemm( CblasColMajor, transa, transb, *m, *n, *k, alpha, a, *lda,

                  b, *ldb, beta, c, *ldc );

  else

     cblas_zgemm( UNDEFINED, transa, transb, *m, *n, *k, alpha, a, *lda,

                  b, *ldb, beta, c, *ldc );

}

void F77_zhemm(int *order, char *rtlf, char *uplow, int *m, int *n,

        CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,

	CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta,

        CBLAS_TEST_ZOMPLEX *c, int *ldc ) {

  CBLAS_TEST_ZOMPLEX *A, *B, *C;

  int i,j,LDA, LDB, LDC;

  enum CBLAS_UPLO uplo;

  enum CBLAS_SIDE side;

  get_uplo_type(uplow,&uplo);

  get_side_type(rtlf,&side);

  if (*order == TEST_ROW_MJR) {

     if (side == CblasLeft) {

        LDA = *m+1;

        A= (CBLAS_TEST_ZOMPLEX* )malloc((*m)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));

        for( i=0; i<*m; i++ )

           for( j=0; j<*m; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

           }

     }

     else{

        LDA = *n+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );

        for( i=0; i<*n; i++ )

           for( j=0; j<*n; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

           }

     }

     LDB = *n+1;

     B=(CBLAS_TEST_ZOMPLEX* )malloc( (*m)*LDB*sizeof(CBLAS_TEST_ZOMPLEX ) );

     for( i=0; i<*m; i++ )

        for( j=0; j<*n; j++ ) {

           B[i*LDB+j].real=b[j*(*ldb)+i].real;

           B[i*LDB+j].imag=b[j*(*ldb)+i].imag;

        }

     LDC = *n+1;

     C=(CBLAS_TEST_ZOMPLEX* )malloc((*m)*LDC*sizeof(CBLAS_TEST_ZOMPLEX ) );

     for( j=0; j<*n; j++ )

        for( i=0; i<*m; i++ ) {

           C[i*LDC+j].real=c[j*(*ldc)+i].real;

           C[i*LDC+j].imag=c[j*(*ldc)+i].imag;

        }

     cblas_zhemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, 

                  beta, C, LDC );

     for( j=0; j<*n; j++ )

        for( i=0; i<*m; i++ ) {

           c[j*(*ldc)+i].real=C[i*LDC+j].real;

           c[j*(*ldc)+i].imag=C[i*LDC+j].imag;

        }

     free(A);

     free(B);

     free(C);

  }

  else if (*order == TEST_COL_MJR)

     cblas_zhemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, 

                  beta, c, *ldc );

  else

     cblas_zhemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, 

                  beta, c, *ldc );

}

void F77_zsymm(int *order, char *rtlf, char *uplow, int *m, int *n,

          CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,

	  CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta,

          CBLAS_TEST_ZOMPLEX *c, int *ldc ) {

  CBLAS_TEST_ZOMPLEX *A, *B, *C;

  int i,j,LDA, LDB, LDC;

  enum CBLAS_UPLO uplo;

  enum CBLAS_SIDE side;

  get_uplo_type(uplow,&uplo);

  get_side_type(rtlf,&side);

  if (*order == TEST_ROW_MJR) {

     if (side == CblasLeft) {

        LDA = *m+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc((*m)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));

        for( i=0; i<*m; i++ )

           for( j=0; j<*m; j++ )

              A[i*LDA+j]=a[j*(*lda)+i];

     }

     else{

        LDA = *n+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );

        for( i=0; i<*n; i++ )

           for( j=0; j<*n; j++ )

              A[i*LDA+j]=a[j*(*lda)+i];

     }

     LDB = *n+1;

     B=(CBLAS_TEST_ZOMPLEX* )malloc((*m)*LDB*sizeof(CBLAS_TEST_ZOMPLEX ));

     for( i=0; i<*m; i++ )

        for( j=0; j<*n; j++ )

           B[i*LDB+j]=b[j*(*ldb)+i];

     LDC = *n+1;

     C=(CBLAS_TEST_ZOMPLEX* )malloc((*m)*LDC*sizeof(CBLAS_TEST_ZOMPLEX));

     for( j=0; j<*n; j++ )

        for( i=0; i<*m; i++ )

           C[i*LDC+j]=c[j*(*ldc)+i];

     cblas_zsymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, 

                  beta, C, LDC );

     for( j=0; j<*n; j++ )

        for( i=0; i<*m; i++ )

           c[j*(*ldc)+i]=C[i*LDC+j];

     free(A);

     free(B);

     free(C);

  }

  else if (*order == TEST_COL_MJR)

     cblas_zsymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, 

                  beta, c, *ldc );

  else

     cblas_zsymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, 

                  beta, c, *ldc );

}

void F77_zherk(int *order, char *uplow, char *transp, int *n, int *k,

     double *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, 

     double *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) {

  int i,j,LDA,LDC;

  CBLAS_TEST_ZOMPLEX *A, *C;

  enum CBLAS_UPLO uplo;

  enum CBLAS_TRANSPOSE trans;

  get_uplo_type(uplow,&uplo);

  get_transpose_type(transp,&trans);

  if (*order == TEST_ROW_MJR) {

     if (trans == CblasNoTrans) {

        LDA = *k+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );

        for( i=0; i<*n; i++ )

           for( j=0; j<*k; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

           }

     }

     else{

        LDA = *n+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc((*k)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );

        for( i=0; i<*k; i++ )

           for( j=0; j<*n; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

           }

     }

     LDC = *n+1;

     C=(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDC*sizeof(CBLAS_TEST_ZOMPLEX ) );

     for( i=0; i<*n; i++ )

        for( j=0; j<*n; j++ ) {

           C[i*LDC+j].real=c[j*(*ldc)+i].real;

           C[i*LDC+j].imag=c[j*(*ldc)+i].imag;

        }

     cblas_zherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, 

	         C, LDC );

     for( j=0; j<*n; j++ )

        for( i=0; i<*n; i++ ) {

           c[j*(*ldc)+i].real=C[i*LDC+j].real;

           c[j*(*ldc)+i].imag=C[i*LDC+j].imag;

        }

     free(A);

     free(C);

  }

  else if (*order == TEST_COL_MJR)

     cblas_zherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, 

	         c, *ldc );

  else

     cblas_zherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, 

	         c, *ldc );

}

void F77_zsyrk(int *order, char *uplow, char *transp, int *n, int *k,

     CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, 

     CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) {

  int i,j,LDA,LDC;

  CBLAS_TEST_ZOMPLEX *A, *C;

  enum CBLAS_UPLO uplo;

  enum CBLAS_TRANSPOSE trans;

  get_uplo_type(uplow,&uplo);

  get_transpose_type(transp,&trans);

  if (*order == TEST_ROW_MJR) {

     if (trans == CblasNoTrans) {

        LDA = *k+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));

        for( i=0; i<*n; i++ )

           for( j=0; j<*k; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

           }

     }

     else{

        LDA = *n+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc((*k)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );

        for( i=0; i<*k; i++ )

           for( j=0; j<*n; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

           }

     }

     LDC = *n+1;

     C=(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDC*sizeof(CBLAS_TEST_ZOMPLEX ) );

     for( i=0; i<*n; i++ )

        for( j=0; j<*n; j++ ) {

           C[i*LDC+j].real=c[j*(*ldc)+i].real;

           C[i*LDC+j].imag=c[j*(*ldc)+i].imag;

        }

     cblas_zsyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, 

	         C, LDC );

     for( j=0; j<*n; j++ )

        for( i=0; i<*n; i++ ) {

           c[j*(*ldc)+i].real=C[i*LDC+j].real;

           c[j*(*ldc)+i].imag=C[i*LDC+j].imag;

        }

     free(A);

     free(C);

  }

  else if (*order == TEST_COL_MJR)

     cblas_zsyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, 

	         c, *ldc );

  else

     cblas_zsyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, 

	         c, *ldc );

}

void F77_zher2k(int *order, char *uplow, char *transp, int *n, int *k,

        CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,

	CBLAS_TEST_ZOMPLEX *b, int *ldb, double *beta,

        CBLAS_TEST_ZOMPLEX *c, int *ldc ) {

  int i,j,LDA,LDB,LDC;

  CBLAS_TEST_ZOMPLEX *A, *B, *C;

  enum CBLAS_UPLO uplo;

  enum CBLAS_TRANSPOSE trans;

  get_uplo_type(uplow,&uplo);

  get_transpose_type(transp,&trans);

  if (*order == TEST_ROW_MJR) {

     if (trans == CblasNoTrans) {

        LDA = *k+1;

        LDB = *k+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ));

        B=(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDB*sizeof(CBLAS_TEST_ZOMPLEX ));

        for( i=0; i<*n; i++ )

           for( j=0; j<*k; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

              B[i*LDB+j].real=b[j*(*ldb)+i].real;

              B[i*LDB+j].imag=b[j*(*ldb)+i].imag;

           }

     }

     else {

        LDA = *n+1;

        LDB = *n+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc( LDA*(*k)*sizeof(CBLAS_TEST_ZOMPLEX ) );

        B=(CBLAS_TEST_ZOMPLEX* )malloc( LDB*(*k)*sizeof(CBLAS_TEST_ZOMPLEX ) );

        for( i=0; i<*k; i++ )

           for( j=0; j<*n; j++ ){

	      A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

              B[i*LDB+j].real=b[j*(*ldb)+i].real;

              B[i*LDB+j].imag=b[j*(*ldb)+i].imag;

           }

     }

     LDC = *n+1;

     C=(CBLAS_TEST_ZOMPLEX* )malloc( (*n)*LDC*sizeof(CBLAS_TEST_ZOMPLEX ) );

     for( i=0; i<*n; i++ )

        for( j=0; j<*n; j++ ) {

           C[i*LDC+j].real=c[j*(*ldc)+i].real;

           C[i*LDC+j].imag=c[j*(*ldc)+i].imag;

        }

     cblas_zher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, 

		  B, LDB, *beta, C, LDC );

     for( j=0; j<*n; j++ )

        for( i=0; i<*n; i++ ) {

           c[j*(*ldc)+i].real=C[i*LDC+j].real;

           c[j*(*ldc)+i].imag=C[i*LDC+j].imag;

        }

     free(A);

     free(B);

     free(C);

  }

  else if (*order == TEST_COL_MJR)

     cblas_zher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, 

		   b, *ldb, *beta, c, *ldc );

  else

     cblas_zher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, 

		   b, *ldb, *beta, c, *ldc );

}

void F77_zsyr2k(int *order, char *uplow, char *transp, int *n, int *k,

         CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,

	 CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta,

         CBLAS_TEST_ZOMPLEX *c, int *ldc ) {

  int i,j,LDA,LDB,LDC;

  CBLAS_TEST_ZOMPLEX *A, *B, *C;

  enum CBLAS_UPLO uplo;

  enum CBLAS_TRANSPOSE trans;

  get_uplo_type(uplow,&uplo);

  get_transpose_type(transp,&trans);

  if (*order == TEST_ROW_MJR) {

     if (trans == CblasNoTrans) {

        LDA = *k+1;

        LDB = *k+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));

        B=(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDB*sizeof(CBLAS_TEST_ZOMPLEX));

        for( i=0; i<*n; i++ )

           for( j=0; j<*k; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

              B[i*LDB+j].real=b[j*(*ldb)+i].real;

              B[i*LDB+j].imag=b[j*(*ldb)+i].imag;

           }

     }

     else {

        LDA = *n+1;

        LDB = *n+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc(LDA*(*k)*sizeof(CBLAS_TEST_ZOMPLEX));

        B=(CBLAS_TEST_ZOMPLEX* )malloc(LDB*(*k)*sizeof(CBLAS_TEST_ZOMPLEX));

        for( i=0; i<*k; i++ )

           for( j=0; j<*n; j++ ){

	      A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

              B[i*LDB+j].real=b[j*(*ldb)+i].real;

              B[i*LDB+j].imag=b[j*(*ldb)+i].imag;

           }

     }

     LDC = *n+1;

     C=(CBLAS_TEST_ZOMPLEX* )malloc( (*n)*LDC*sizeof(CBLAS_TEST_ZOMPLEX));

     for( i=0; i<*n; i++ )

        for( j=0; j<*n; j++ ) {

           C[i*LDC+j].real=c[j*(*ldc)+i].real;

           C[i*LDC+j].imag=c[j*(*ldc)+i].imag;

        }

     cblas_zsyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, 

		  B, LDB, beta, C, LDC );

     for( j=0; j<*n; j++ )

        for( i=0; i<*n; i++ ) {

           c[j*(*ldc)+i].real=C[i*LDC+j].real;

           c[j*(*ldc)+i].imag=C[i*LDC+j].imag;

        }

     free(A);

     free(B);

     free(C);

  }

  else if (*order == TEST_COL_MJR)

     cblas_zsyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, 

		   b, *ldb, beta, c, *ldc );

  else

     cblas_zsyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, 

		   b, *ldb, beta, c, *ldc );

}

void F77_ztrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn,

       int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, 

       int *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) {

  int i,j,LDA,LDB;

  CBLAS_TEST_ZOMPLEX *A, *B;

  enum CBLAS_SIDE side;

  enum CBLAS_DIAG diag;

  enum CBLAS_UPLO uplo;

  enum CBLAS_TRANSPOSE trans;

  get_uplo_type(uplow,&uplo);

  get_transpose_type(transp,&trans);

  get_diag_type(diagn,&diag);

  get_side_type(rtlf,&side);

  if (*order == TEST_ROW_MJR) {

     if (side == CblasLeft) {

        LDA = *m+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc((*m)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));

        for( i=0; i<*m; i++ )

           for( j=0; j<*m; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

           }

     }

     else{

        LDA = *n+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));

        for( i=0; i<*n; i++ )

           for( j=0; j<*n; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

           }

     }

     LDB = *n+1;

     B=(CBLAS_TEST_ZOMPLEX* )malloc((*m)*LDB*sizeof(CBLAS_TEST_ZOMPLEX));

     for( i=0; i<*m; i++ )

        for( j=0; j<*n; j++ ) {

           B[i*LDB+j].real=b[j*(*ldb)+i].real;

           B[i*LDB+j].imag=b[j*(*ldb)+i].imag;

        }

     cblas_ztrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, 

		 A, LDA, B, LDB );

     for( j=0; j<*n; j++ )

        for( i=0; i<*m; i++ ) {

           b[j*(*ldb)+i].real=B[i*LDB+j].real;

           b[j*(*ldb)+i].imag=B[i*LDB+j].imag;

        }

     free(A);

     free(B);

  }

  else if (*order == TEST_COL_MJR)

     cblas_ztrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, 

		   a, *lda, b, *ldb);

  else

     cblas_ztrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, 

		   a, *lda, b, *ldb);

}

void F77_ztrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn,

         int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, 

         int *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) {

  int i,j,LDA,LDB;

  CBLAS_TEST_ZOMPLEX *A, *B;

  enum CBLAS_SIDE side;

  enum CBLAS_DIAG diag;

  enum CBLAS_UPLO uplo;

  enum CBLAS_TRANSPOSE trans;

  get_uplo_type(uplow,&uplo);

  get_transpose_type(transp,&trans);

  get_diag_type(diagn,&diag);

  get_side_type(rtlf,&side);

  if (*order == TEST_ROW_MJR) {

     if (side == CblasLeft) {

        LDA = *m+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc( (*m)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) );

        for( i=0; i<*m; i++ )

           for( j=0; j<*m; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

           }

     }

     else{

        LDA = *n+1;

        A=(CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX));

        for( i=0; i<*n; i++ )

           for( j=0; j<*n; j++ ) {

              A[i*LDA+j].real=a[j*(*lda)+i].real;

              A[i*LDA+j].imag=a[j*(*lda)+i].imag;

           }

     }

     LDB = *n+1;

     B=(CBLAS_TEST_ZOMPLEX* )malloc((*m)*LDB*sizeof(CBLAS_TEST_ZOMPLEX));

     for( i=0; i<*m; i++ )

        for( j=0; j<*n; j++ ) {

           B[i*LDB+j].real=b[j*(*ldb)+i].real;

           B[i*LDB+j].imag=b[j*(*ldb)+i].imag;

        }

     cblas_ztrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, 

		 A, LDA, B, LDB );

     for( j=0; j<*n; j++ )

        for( i=0; i<*m; i++ ) {

           b[j*(*ldb)+i].real=B[i*LDB+j].real;

           b[j*(*ldb)+i].imag=B[i*LDB+j].imag;

        }

     free(A);

     free(B);

  }

  else if (*order == TEST_COL_MJR)

     cblas_ztrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, 

		   a, *lda, b, *ldb);

  else

     cblas_ztrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, 

		   a, *lda, b, *ldb);

}