PB_Cconjg.c File Reference

#include "../pblas.h"
#include "../PBpblas.h"
#include "../PBtools.h"
#include "../PBblacs.h"
#include "../PBblas.h"

Go to the source code of this file.

Functions
void	PB_Cconjg (PBTYP_T *TYPE, char *ALPHA, char *CALPHA)

Function Documentation

PB_Cconjg()

void PB_Cconjg	(	PBTYP_T *	TYPE,
		char *	ALPHA,
		char *	CALPHA )

Definition at line 22 of file PB_Cconjg.c.

{
/*
*  Purpose
*  =======
*
*  PB_Cconjg conjugates of the scalar alpha.
*
*  Arguments
*  =========
*
*  TYPE    (local input) pointer to a PBTYP_T structure
*          On entry,  TYPE  is a pointer to a structure of type PBTYP_T,
*          that contains type information (See pblas.h).
*
*  ALPHA   (local input) pointer to CHAR
*          On entry, ALPHA specifies the scalar alpha.
*
*  CALPHA  (local output) pointer to CHAR
*          On exit, CALPHA contains the conjugate of the scalar alpha.
*
*  -- Written on April 1, 1998 by
*     Antoine Petitet, University of Tennessee, Knoxville 37996, USA.
*
*  ---------------------------------------------------------------------
*/
/* ..
*  .. Executable Statements ..
*
*/
  switch( TYPE->type )
  {
     case SCPLX:
        ((float*)(CALPHA))[REAL_PART]  =  ((float*)(ALPHA))[REAL_PART];
        ((float*)(CALPHA))[IMAG_PART]  = -((float*)(ALPHA))[IMAG_PART];
        break;
     case DCPLX:
        ((double*)(CALPHA))[REAL_PART] =  ((double*)(ALPHA))[REAL_PART];
        ((double*)(CALPHA))[IMAG_PART] = -((double*)(ALPHA))[IMAG_PART];
        break;
     case SREAL:
        ((float*)(CALPHA))[REAL_PART]  =  ((float*)(ALPHA))[REAL_PART];
        break;
     case DREAL:
        ((double*)(CALPHA))[REAL_PART] =  ((double*)(ALPHA))[REAL_PART];
        break;
     case INT:
        *((Int*)(CALPHA))              = *((Int*)(ALPHA));
        break;
     default: ;
  }
/*
*  End of PB_Cconjg
*/
}