trp.c

[[ Complex Matrices : Language c]]

/*         .c                       freeware                   [e-mail]
*/
/* --------------------------------- INCLUDES ------------------------------- */
#include "y_ahfile.h"

/* --------------------------------- MAIN ----------------------------------- */
int main(void)
{
double pbA[2][3*C4]=
{
  1,1,2,1,   3,1,-4,1,   5,1, 6,1,
 -1,2,1,2,   3,2, 3,2,   5,2,-6,5,
};mzF mA={2,3*C4,&pbA[0][0]};

double pbTrpsA[3][2*C4];mzF mTrpsA={3,2*C4,&pbTrpsA[0][0]};
/*-------------------------------- PROGRAM ---------------------------------- */
  clrscrn();

  printf("\n A");
  p_mizF(&mA);

  cnj_transpose_mzF(&mA,&mTrpsA);
  printf("\n cnj_transpose(A)\n");
  p_mizF(&mTrpsA);

 printf("\nPress return to continue.\n");
 getchar();

 return 0;
}