1 /*
2 Copyright (C) 1998 Dennis Roddeman
3 email: dennis.roddeman@feat.nl
4
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
14
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software Foundation
18 59 Temple Place, Suite 330, Boston, MA, 02111-1307, USA
19 */
20
21 #include "tochnog.h"
22
23 // this routine is only meant to initialize static variables
24
25 long int
26 echo=0, ndim=-1, derivatives=0,
27 beam_rotation=0, condif_temperature=0,
28 groundflow_velocity=0, groundflow_pressure=0,
29 materi_history_variables=0, materi_damage=0, materi_density=0,
30 materi_displacement=0, materi_diffusion=0, materi_maxwell_stress=0,
31 materi_plasti_incremental_substeps=0,
32 materi_plasti_kappa=0, materi_strain_intergranular=0,
33 materi_plasti_rho=0, materi_plasti_f=0, materi_plasti_f_nonlocal=0,
34 materi_plasti_softvar_local=0,
35 materi_plasti_softvar_nonlocal=0,
36 materi_strainenergy=0, materi_strain_elasti=0,
37 materi_strain_plasti=0, materi_strain_total=0,
38 materi_stress=0, materi_velocity=0, materi_velocity_integrated=0,
39 materi_void_fraction=0, materi_work=0,
40 maxwell_e=0, maxwell_fe=0, maxwell_er=0, maxwell_ei=0,
41 residue=0, wave_scalar=0, wave_fscalar=0,
42 find_local_softvar=0, find_nonlocal_weights=0, nonlocal_first_set=0;
43 long int
44 any_runtime=0, nder=1, npuknwn=0, nuknwn=0, npointmax=6, nprinc=0, dam_indx=-1,
45 dens_indx=-1, diff_indx=-1, dis_indx=-1, ener_indx=-1,
46 epe_indx=-1, epi_indx=-1, epp_indx=-1, ept_indx=-1,
47 maxfe_indx=-1, maxe_indx=-1, maxer_indx=-1, maxei_indx=0,
48 gvel_indx=-1, hisv_indx=-1, kap_indx=-1, f_indx=-1, fn_indx=-1,
49 mstres_indx=-1, pres_indx=-1, res_indx=-1, rho_indx=-1,
50 rot_indx=-1, scal_indx=-1, stres_indx=-1, substeps_indx=-1,
51 svloc_indx=-1, svnonloc_indx=-1,
52 temp_indx=-1, fscal_indx=-1, vel_indx=-1,
53 veli_indx=-1, void_indx=-1, work_indx=-1;
54 char
55 data_file[MCHAR],
56 data_file_base[MCHAR],
57 post_calcul_names[DATA_ITEM_SIZE][MCHAR],
58 post_calcul_names_without_extension[DATA_ITEM_SIZE][MCHAR],
59 initialization_names[DATA_ITEM_SIZE][MCHAR];
60 long int
61 map_version_from=0, map_version_to=0, map_always=0;
62 long int
63 post_found=0, post_node[4], post_node_length=0, npost_node=0;
64 double
65 post_point[MDIM], post_point_dof[MUKNWN], post_node_result[DATA_ITEM_SIZE];
66 long int
67 calcul_matrix=0, calcul_vector=0, calcul_ecomplex=0, calcul_scalar_indx=0,
68 calcul_operat=0, calcul_mat_indx=0, calcul_vec_indx=0;
69 long int
70 geometry_ent[2], *nodes_in_geometry=NULL;
71 long int
72 parallel_active=0;
73 long int
74 eigen_active=0;
75 long int
76 hyper_active=0;
77 long int
78 timestep_decrease=0;
79 long int
80 *solve_global_local, solve_nlocal, solve_options_matrix_group;
81 double
82 *solve_b, *solve_x;
83 long int
84 swit_element_stack=-1, swit_node_stack=-1;
85 char
86 swit_routine_stack[MSTACK][MCHAR];
87 // added for options_element_dof
88 long int options_element_dof=-YES;
89 double options_nonlocal_softvar=0;
90
91
initialize(void)92 void initialize( void )
93
94 {
95 long int i=0;
96
97 strcpy( data_file, "" );
98 strcpy( data_file_base, "" );
99 for ( i=0; i<DATA_ITEM_SIZE; i++ ) {
100 strcpy( post_calcul_names[i], "" );
101 strcpy( post_calcul_names_without_extension[i], "" );
102 strcpy( initialization_names[i], "" );
103 }
104 for ( i=0; i<MSTACK; i++ ) {
105 strcpy( swit_routine_stack[i], "" );
106 }
107
108 }
109