#include <stdlib.h>#include <stdio.h>#include <math.h>#include "mod_fem.h"#include "../include/aph_intf.h"
Defines | |
| #define | APC_MAXEQ 5 |
| #define | SMALL 1e-10 |
| #define | ut_max(x, y) ((x)>(y)?(x):(y)) |
| #define | ut_min(x, y) ((x)<(y)?(x):(y)) |
| #define | ut_abs(x) ((x)<0?-(x):(x)) |
Functions | |
| double | ut_mat3_inv (double *mat,double *mat_inv) |
| * local variables */ | |
| void | ut_vec3_prod (double *vec_a, double *vec_b, double *vec_c) |
| double | ut_vec3_mxpr (double *vec_a, double *vec_b, double *vec_c) |
| void | ut_mat3vec (double *m1, double *v1, double *v2) |
| void | ut_mat3mat (double *m1, double *m2, double *m3) |
| int | ut_chk_list (int Num, int *List, int Ll) |
| int | apr_get_base_type (int Field_id) |
| *++++++++++++++++ executable statements ++++++++++++++++*/ | |
| int | apr_shape_fun_3D_std_lin (double *Eta, double *Base_phi, double *Base_dphix, double *Base_dphiy, double *Base_dphiz) |
| double | apr_elem_calc_3D_std_lin (int Control, int Nreq, int Pdeg, int Base_type, double *Eta, double *Node_coor, double *Sol_dofs, double *Base_phi, double *Base_dphix, double *Base_dphiy, double *Base_dphiz, double *Xcoor, double *Sol, double *Dsolx, double *Dsoly, double *Dsolz, double *Vec_nor) |
| #define APC_MAXEQ 5 |
| #define SMALL 1e-10 |
| #define ut_abs | ( | x | ) | ((x)<0?-(x):(x)) |
| #define ut_max | ( | x, | |||
| y | ) | ((x)>(y)?(x):(y)) |
| #define ut_min | ( | x, | |||
| y | ) | ((x)<(y)?(x):(y)) |
| double apr_elem_calc_3D_std_lin | ( | int | Control, | |
| int | Nreq, | |||
| int | Pdeg, | |||
| int | Base_type, | |||
| double * | Eta, | |||
| double * | Node_coor, | |||
| double * | Sol_dofs, | |||
| double * | Base_phi, | |||
| double * | Base_dphix, | |||
| double * | Base_dphiy, | |||
| double * | Base_dphiz, | |||
| double * | Xcoor, | |||
| double * | Sol, | |||
| double * | Dsolx, | |||
| double * | Dsoly, | |||
| double * | Dsolz, | |||
| double * | Vec_nor | |||
| ) |

| int apr_get_base_type | ( | int | Field_id | ) |
*++++++++++++++++ executable statements ++++++++++++++++*/
* for linear prisms - always 6 */
| int apr_shape_fun_3D_std_lin | ( | double * | Eta, | |
| double * | Base_phi, | |||
| double * | Base_dphix, | |||
| double * | Base_dphiy, | |||
| double * | Base_dphiz | |||
| ) |

| int ut_chk_list | ( | int | Num, | |
| int * | List, | |||
| int | Ll | |||
| ) |
| void ut_mat3mat | ( | double * | m1, | |
| double * | m2, | |||
| double * | m3 | |||
| ) |
| void ut_mat3vec | ( | double * | m1, | |
| double * | v1, | |||
| double * | v2 | |||
| ) |
| double ut_vec3_mxpr | ( | double * | vec_a, | |
| double * | vec_b, | |||
| double * | vec_c | |||
| ) |
| void ut_vec3_prod | ( | double * | vec_a, | |
| double * | vec_b, | |||
| double * | vec_c | |||
| ) |
1.6.1