ypmzf.h

[[ Complex Matrices : Language c]]

/* .h                          free ware                   [e-mail]  */

/* --------------------------------- FUNCTION ------------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
void p_mzF0(
PmzF mA)
{
 int i;
 int j;

 for (i = 0 ; i < mA->rows ; i++)
  {
   printf("\n");
   for ( j = 0 ; j < mA->cols ; j += C4)
     printf("(/%.0f/%.0f,%.0f/%.0f)",
                              *(mA->pb+i *mA->cols+j  ),
                              *(mA->pb+i *mA->cols+j+1),
                              *(mA->pb+i *mA->cols+j+2),
                              *(mA->pb+i *mA->cols+j+3) );
  }
  printf("\n");
}

/* --------------------------------- FUNCTION ------------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
void p_mzF3(
PmzF mA)
{
 int i;
 int j;

 for (i = 0 ; i < mA->rows ; i++)
  {
   printf("\n");
   for ( j = 0 ; j < mA->cols ; j += C4)
     printf("%3.0f/%.0f,%.0f/%.0f",
                              *(mA->pb+i *mA->cols+j  ),
                              *(mA->pb+i *mA->cols+j+1),
                              *(mA->pb+i *mA->cols+j+2),
                              *(mA->pb+i *mA->cols+j+3) );
  }
  printf("\n");
}



/* --------------------------------- FUNCTION ------------------------------  */
/* Do    :                                                                    */
/*                                                                            */
/* -------------------------------------------------------------------------- */
void p_mzF8(
PmzF mA)
{
 int i;
 int j;

 for (i = 0 ; i < mA->rows ; i++)
  {
   printf("\n");
   for ( j = 0 ; j < mA->cols ; j += C4)
     printf("%8.0f/%.0f,%.0f/%.0f",
                              *(mA->pb+i *mA->cols+j  ),
                              *(mA->pb+i *mA->cols+j+1),
                              *(mA->pb+i *mA->cols+j+2),
                              *(mA->pb+i *mA->cols+j+3) );
  }
  printf("\n");
}