pml_aux.h

// copyright by benedikt oswald, all rights reserved, 2002-2006.
// project - aqhdes2003
// file name - pml_aux.h
// file type - C include file
// objective - defines markros and helpful functions
// creation - 2004 mar 11 by holger gerhards
// modified - 
// required software - UG 3.1 or higher
// rights for UG - cf. paper by Bastian et al., 1997
// file id -
// feature - 


#ifndef __PML_AUX__
#define __PML_AUX__

#include "all_pml.h"

/********* definition of constants ************/

/* return constants */
#define PROBLEM   1
#define ALL_RIGHT 0

/* special modi */
#define CENTER 0
#define NODES  1

#define ALLOCATE 2
#define SIMPLE   3

#define SURFACE 0
#define INNER   1
#define BREAK   2

#define LINEAR 4
#define CONSTANT 5

#define DIAG_ONE 1
#define DIAG_ZERO 0

/* for special debug-function */
#define POSITION 0
#define ALL      1


INT Get_pml_Parameter(NP_BASE *base, INT mode1, INT mode2, 
                      DOUBLE *global, DOUBLE *sig );

INT Get_Num_of_Elem_in_pml( NP_BASE *base ,
                            INT mode1, INT mode2 );

INT Build_Vec_of_pml_Elem_Id( NP_BASE *base ,
                              INT mode1, INT mode2 );

INT Get_Num_of_Points_in_pml( NP_BASE *base, 
                              INT mode );

INT Build_Vec_of_pml_Point_Id( NP_BASE *base );


INT Tet_Info_Function(NP_BASE *base, INT mode, INT timestep, DOUBLE *pos, char *name, char *zusatz);

INT Return_Maximum_Tet(NP_BASE *base, INT mode, INT timestep, char *name, char *zusatz);


INT Pec_Boundary_Condition_Matrix( MATDATA_DESC *M , INT mode);

INT Pec_Boundary_Condition_Vector( VECDATA_DESC *V );

INT Check_Condition_for_linear_pml( NP_BASE *base );

INT Check_Condition_for_constant_pml( NP_BASE *base );

INT Pml_Parameter_Output_2d( NP_BASE *base, INT timestep,
                         DOUBLE hx, DOUBLE hy, DOUBLE hz,
                         char *name , char *zusatz);

INT Pml_Parameter_Output_3d( NP_BASE *base, INT timestep,
                         DOUBLE hx, DOUBLE hy, DOUBLE hz,
                         char *name , char *zusatz );

INT Mathematica(NP_BASE *base, INT timestep, 
                DOUBLE *pos, char *name, char *zusatz);

#endif













 

---