mod_fem_viewer/include/external_utils.h
Go to the documentation of this file.00001 /* This is necessary for Approx(DG|STD|STDhybrid) modules 00002 * because of linking external adequate modules 00003 */ 00004 00005 #ifndef _EXTERNAL_STUFF_H_ 00006 #define _EXTERNAL_STUFF_H_ 00007 00008 /* Here are imported functions */ 00009 00010 /* For mesh modules */ 00011 #include "mmh_intf.h" 00012 00013 /* For approximation module */ 00014 #include "aph_intf.h" 00015 00016 /* Some additonal functions */ 00017 extern "C" int apr_create_constr_data( /* returns: >=0 - success code, <0 - error code */ 00018 int Field_id /* in: approximation field ID */ 00019 ); 00020 00021 /* This are unused functions but have to be implemented simply */ 00022 00023 /* LINPACK */ 00024 extern "C" void dgetrf_(int *m,int *n,double *a,int *lda,int *ipiv,int *info){} 00025 extern "C" void dgetrs_(char *trans,int *n,int *nrhs,double *a,int *lda,int *ipiv,double *b,int *ldb,int *info){} 00026 00027 /* Provblem dependend */ 00028 extern "C" double* pdr_select_el_coeff( /* returns: pointer !=NULL to indicate selection */ 00029 double** Mval, /* out: mass matrix coefficient */ 00030 double** Axx, /* out: diffusion coefficients */ 00031 double** Axy, 00032 double** Axz, 00033 double** Ayx, 00034 double** Ayy, 00035 double** Ayz, 00036 double** Azx, 00037 double** Azy, 00038 double** Azz, 00039 double** Bx, /* out: convection coefficients */ 00040 double** By, 00041 double** Bz, 00042 double** Cval, /* out: reaction coefficients */ 00043 double** Lval, /* out: rhs coefficient for time term */ 00044 double** Qx, /* out: rhs coefficients with derivatives */ 00045 double** Qy, /* out: rhs coefficients with derivatives */ 00046 double** Qz, /* out: rhs coefficients with derivatives */ 00047 double** Sval /* out: rhs coefficients without derivatives */ 00048 ){return(NULL);} 00049 00050 extern "C" int pdr_el_coeff( 00051 int Elem, /* in: element number */ 00052 int Mat_num, /* in: material number */ 00053 double Hsize, /* in: size of an element */ 00054 int Pdeg, /* in: local degree of polynomial */ 00055 double* Xcoor, /* in: global coordinates of a point */ 00056 double* U_val, /* in: computed solution */ 00057 double* U_x, /* in: gradient of computed solution */ 00058 double* U_y, /* in: gradient of computed solution */ 00059 double* U_z, /* in: gradient of computed solution */ 00060 double* Mval, /* out: mass matrix coefficient */ 00061 double* Axx, /* out: diffusion coefficients */ 00062 double* Axy, 00063 double* Axz, 00064 double* Ayx, 00065 double* Ayy, 00066 double* Ayz, 00067 double* Azx, 00068 double* Azy, 00069 double* Azz, 00070 double* Bx, /* out: convection coefficients */ 00071 double* By, 00072 double* Bz, 00073 double* Cval, /* out: reaction coefficients */ 00074 double* Lval, /* out: rhs coefficient for time term */ 00075 double* Qx, /* out: rhs coefficients with derivatives */ 00076 double* Qy, /* out: rhs coefficients with derivatives */ 00077 double* Qz, /* out: rhs coefficients with derivatives */ 00078 double* Sval /* out: rhs coefficients without derivatives */ 00079 ) {return(0);} 00080 00081 00082 #endif /* _EXTERNAL_STUFF_H_ 00083 */
