PB_Cprnt()

void PB_Cprnt	(	Int	TYPE,
		Int	SIZE,
		Int	USIZ,
		Int	N,
		char *	A,
		Int	IA,
		Int	JA,
		char *	CMATNM
	)

Definition at line 497 of file PB_Cplaprnt.c.

{
/*
*  .. Local Scalars ..
*/
   Int            k;
/* ..
*  .. Executable Statements ..
*
*/
   if( TYPE == INT )
      for( k = 0; k < N; k++ )
         (void) fprintf( stdout, "%s(%6d,%6d)=%8d\n",      CMATNM, IA+k, JA,
                         *((Int *)(&A[k*SIZE])) );
   else if( TYPE == SREAL )
      for( k = 0; k < N; k++ )
         (void) fprintf( stdout, "%s(%6d,%6d)=%16.8f\n",   CMATNM, IA+k, JA,
                         *((float *)(&A[k*SIZE])) );
   else if( TYPE == DREAL )
      for( k = 0; k < N; k++ )
         (void) fprintf( stdout, "%s(%6d,%6d)=%30.18f\n",  CMATNM, IA+k, JA,
                         *((double *)(&A[k*SIZE])) );
   else if( TYPE == SCPLX )
      for( k = 0; k < N; k++ )
         (void) fprintf( stdout, "%s(%6d,%6d)=%16.8f+i*(%16.8f)\n",   CMATNM,
                         IA+k, JA, *((float *)(&A[k*SIZE])),
                         *((float *)(&A[k*SIZE+USIZ])) );
   else if( TYPE == DCPLX )
      for( k = 0; k < N; k++ )
         (void) fprintf( stdout, "%s(%6d,%6d)=%30.18f+i*(%30.18f)\n", CMATNM,
                         IA+k, JA, *((double *)(&A[k*SIZE])),
                         *((double *)(&A[k*SIZE+USIZ])) );
/*
*  End of PB_Cprnt
*/
}