/* ------------------------------------ */
/*  Save as :   wpall.h                 */
/* ------------------------------------ */
double **pall_mZ(
double **A,
int er,
int dr,
int ei,
int di
)
{
int r;
int c;
    printf("\n");

 	for(r=0; r<A[R_SIZE][C0]; r++)

         {

 	      for (c=0; c<(A[C_SIZE][C0]); c+=C2)

               if(c==0){ printf("%+5.0f ", A[r][c]); c--;}

               else if(r==0) printf("%+*.*f% *.*f  ",
                            er,dr,A[r][c],
                            ei,di,A[r][c+C1]);

                    else printf("%+*.*f%+*.*fi ",
                            er,dr,A[r][c],
                            ei,di,A[r][c+C1]);

          if(!r) printf("\n\n");
          else   printf("\n");
          }
    printf("\n");
    
return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */