#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#include <assert.h>
#include "mmh_intf.h"
#include "aph_intf.h"
#include "uth_intf.h"
#include "./aph_dg_prism.h"
Functions | |
int | pdr_select_el_coeff_vect (int Problem_id, int *Coeff_vect_ind) |
double * | pdr_select_el_coeff (int Problem_id, double **Mval, double **Axx, double **Axy, double **Axz, double **Ayx, double **Ayy, double **Ayz, double **Azx, double **Azy, double **Azz, double **Bx, double **By, double **Bz, double **Tx, double **Ty, double **Tz, double **Cval, double **Lval, double **Qx, double **Qy, double **Qz, double **Sval) |
int | pdr_el_coeff (int Problem_id, int Elem, int Mat_num, double Hsize, int Pdeg, double *X_loc, double *Base_phi, double *Base_dphix, double *Base_dphiy, double *Base_dphiz, double *Xcoor, double *Uk_val, double *Uk_x, double *Uk_y, double *Uk_z, double *Un_val, double *Un_x, double *Un_y, double *Un_z, double *Mval, double *Axx, double *Axy, double *Axz, double *Ayx, double *Ayy, double *Ayz, double *Azx, double *Azy, double *Azz, double *Bx, double *By, double *Bz, double *Tx, double *Ty, double *Tz, double *Cval, double *Lval, double *Qx, double *Qy, double *Qz, double *Sval) |
int | apr_module_introduce (char *Approx_name) |
int | apr_init_field (char Field_type, int Control, int Mesh_id, int Nreq, int Nr_sol, int Pdeg_in, char *Filename, double(*Fun_p)(int, double *, int)) |
int | apr_write_field (int Field_id, int Nreq, int Select, double Accuracy, char *Filename) |
int | apr_check_field (int Field_id) |
int | apr_get_mesh_id (int Field_id) |
int | apr_get_mixed_second_field_id (int Field_id) |
int | apr_get_nreq (int Field_id) |
int | apr_get_mixed_nreq (int Field_id) |
int | apr_get_nr_sol (int Field_id) |
int | apr_get_el_pdeg_numshap (int Field_id, int El_id, int *Pdeg_vec) |
int | apr_get_el_pdeg_numshap_related_with_dof_type (int Field_id, int El_id, int Dof_type, int *Pdeg) |
int | apr_get_el_dofs (int Field_id, int El_id, int Vect_id, double *El_dofs_std) |
int | apr_get_base_type (int Field_id, int El_id) |
int | apr_get_ent_pdeg (int Field_id, int Ent_type, int Ent_id) |
int | apr_set_ent_pdeg (int Field_id, int Ent_type, int Ent_id, int Pdeg) |
int | apr_get_el_pdeg (int Field_id, int Ent_id, int *Pdeg_vec) |
int | apr_set_el_pdeg (int Field_id, int Ent_id, int *Pdeg_vec) |
int | apr_get_mixed_pdeg (int Field_id, int *Pdeg_vec) |
int | apr_get_el_geo_pdeg (int Field_id, int El_id, int *Pdeg_vec) |
int | apr_set_el_geo_pdeg (int Field_id, int El_id, int *Pdeg_vec) |
int | apr_move_node (int Field_id, int Node_id, int Node_type, double *Shift_vec) |
int | apr_node_coor (int Field_id, int Node_id, int Node_type, double *coord) |
int | apr_get_ent_numshap (int Field_id, int Ent_type, int Ent_id) |
int | apr_get_ent_nrdofs (int Field_id, int Ent_type, int Ent_id) |
int | apr_get_el_geo_dofs (int Field_id, int El_id, int *GeoDofs_id, int *GeoDofs_type, double *GeoDofs) |
int | apr_get_nrdofs_glob (int Field_id) |
int | apr_read_ent_dofs (int Field_id, int Ent_type, int Ent_id, int Ent_nrdof, int Vect_id, double *Vect_dofs) |
int | apr_write_ent_dofs (int Field_id, int Ent_type, int Ent_id, int Ent_nrdof, int Vect_id, double *Vect_dofs) |
int | apr_create_ent_dofs (int Field_id, int Ent_type, int Ent_id, int Ent_nrdof, int Vect_id, double *Vect_dofs) |
int | apr_set_ini_con (int Field_id, double(*Fun_p)(int, double *, int)) |
int | apr_num_int_el (int Problem_id, int Field_id, int El_id, int Comp_sm, int *Pdeg_vec, double *Sol_dofs_k, double *Sol_dofs_n, int *diagonal, double *Stiff_mat, double *Rhs_vect) |
int | apr_num_int_fa () |
int | apr_proj_dof_ref (int Field_id, int El, int Max_elem_id, int Max_face_id, int Max_edge_id, int Max_vert_id) |
int | apr_rewr_sol (int Field_id, int Sol_from, int Sol_to) |
int | apr_free_field (int Field_id) |
int | apr_limit_deref (int Field_id, int El_id) |
int | apr_limit_ref (int Field_id, int El_id) |
int | apr_refine (int Field_id, int El) |
int | apr_derefine (int Field_id, int El) |
int | apr_get_stiff_mat_data (int Field_id, int El_id, int Comp_sm, char Transpose, int Pdeg_in, int Nreq_in, int *Nr_dof_ent, int *List_dof_ent_type, int *List_dof_ent_id, int *List_dof_ent_nrdofs, int *Nrdofs_loc, double *Stiff_mat, double *Rhs_vect) |
int | apr_get_constr_data (int Field_id, int Node_id, int Node_type, int *Constr, int *Constr_type) |
Variables | |
int | apv_nr_fields = 0 |
int | apv_cur_field_id |
apt_field | apv_fields [APC_MAX_NUM_FIELD] |
int apr_num_int_fa | ( | ) |
int pdr_el_coeff | ( | int | Problem_id, | |
int | Elem, | |||
int | Mat_num, | |||
double | Hsize, | |||
int | Pdeg, | |||
double * | X_loc, | |||
double * | Base_phi, | |||
double * | Base_dphix, | |||
double * | Base_dphiy, | |||
double * | Base_dphiz, | |||
double * | Xcoor, | |||
double * | Uk_val, | |||
double * | Uk_x, | |||
double * | Uk_y, | |||
double * | Uk_z, | |||
double * | Un_val, | |||
double * | Un_x, | |||
double * | Un_y, | |||
double * | Un_z, | |||
double * | Mval, | |||
double * | Axx, | |||
double * | Axy, | |||
double * | Axz, | |||
double * | Ayx, | |||
double * | Ayy, | |||
double * | Ayz, | |||
double * | Azx, | |||
double * | Azy, | |||
double * | Azz, | |||
double * | Bx, | |||
double * | By, | |||
double * | Bz, | |||
double * | Tx, | |||
double * | Ty, | |||
double * | Tz, | |||
double * | Cval, | |||
double * | Lval, | |||
double * | Qx, | |||
double * | Qy, | |||
double * | Qz, | |||
double * | Sval | |||
) |
----------------------------------------------------------------------!
-------------------- MATERIAL DATA AT GAUSS POINT ----------------- --!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
------------ CALCULATE BOUSINESSQUE FORCE AT GAUSS POINT -------------!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
-------------------- MATERIAL DATA AT GAUSS POINT ----------------- --!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
------------ CALCULATE BOUSINESSQUE FORCE AT GAUSS POINT -------------!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
-------------------- MATERIAL DATA AT GAUSS POINT ----------------- --!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
------------ CALCULATE BOUSINESSQUE FORCE AT GAUSS POINT -------------!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
-------------------- MATERIAL DATA AT GAUSS POINT ----------------- --!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
-------------------- MATERIAL DATA AT GAUSS POINT ----------------- --!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
------------ CALCULATE BOUSINESSQUE FORCE AT GAUSS POINT -------------!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
-------------------- MATERIAL DATA AT GAUSS POINT ----------------- --!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
------------ CALCULATE BOUSINESSQUE FORCE AT GAUSS POINT -------------!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
-------------------- MATERIAL DATA AT GAUSS POINT ----------------- --!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
------------ CALCULATE BOUSINESSQUE FORCE AT GAUSS POINT -------------!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
---- CALCULATE FRICTIONAL FORCE IN THE MUSHY ZONE AT GAUSS POINT -----!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
---------------------- CALCULATE TOTAL SOURCE TERMS ------------------!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
-------------------- MATERIAL DATA AT GAUSS POINT ----------------- --!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
-------------------- MATERIAL DATA AT GAUSS POINT ----------------- --!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
------------ CALCULATE BOUSINESSQUE FORCE AT GAUSS POINT -------------!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
-------------------- MATERIAL DATA AT GAUSS POINT ----------------- --!
----------------------------------------------------------------------!
----------------------------------------------------------------------!
------------ CALCULATE BOUSINESSQUE FORCE AT GAUSS POINT -------------!
----------------------------------------------------------------------!
double* pdr_select_el_coeff | ( | int | Problem_id, | |
double ** | Mval, | |||
double ** | Axx, | |||
double ** | Axy, | |||
double ** | Axz, | |||
double ** | Ayx, | |||
double ** | Ayy, | |||
double ** | Ayz, | |||
double ** | Azx, | |||
double ** | Azy, | |||
double ** | Azz, | |||
double ** | Bx, | |||
double ** | By, | |||
double ** | Bz, | |||
double ** | Tx, | |||
double ** | Ty, | |||
double ** | Tz, | |||
double ** | Cval, | |||
double ** | Lval, | |||
double ** | Qx, | |||
double ** | Qy, | |||
double ** | Qz, | |||
double ** | Sval | |||
) |
!!!!! OLD OBSOLETE VERSION !!!!!!
int pdr_select_el_coeff_vect | ( | int | Problem_id, | |
int * | Coeff_vect_ind | |||
) |