/*
    Copyright (C) 1998  Dennis Roddeman
    email: dennis.roddeman@uibk.ac.at

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.


    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software Foundation 
    59 Temple Place, Suite 330, Boston, MA, 02111-1307, USA
*/

#include "tochnog.h"

  // this routine is only meant to initialize static variables

long int 
  echo=0, ndim=-1, derivatives=0, condif_temperature=0, 
  groundflow_gvelocity=0, groundflow_pressure=0, 
  materi_history_variables=0, materi_damage=0, materi_density=0, 
  materi_displacement=0, materi_maxwell_stress=0, 
  materi_plasti_kappa=0, materi_plasti_rho=0, 
  materi_strain_elasti=0, materi_strain_plasti=0, materi_strain_total=0,
  materi_stress=0, materi_velocity=0, materi_void_fraction=0,
  residue=0, wave_scalar=0, wave_fscalar=0;
long int 
  nder=1, npuknwn=0, nuknwn=0, nprinc=0, dam_indx=-1,
  dens_indx=-1, dis_indx=-1, epe_indx=-1, epp_indx=-1, ept_indx=-1,
  gvel_indx=-1, hisv_indx=-1, kap_indx=-1, 
  mstres_indx=-1, pres_indx=-1, res_indx=-1, rho_indx=-1, 
  scal_indx=-1, stres_indx=-1, temp_indx=-1, fscal_indx=-1, vel_indx=-1,
  void_indx=-1;
char 
  data_file[MCHAR], 
  data_file_base[MCHAR], 
  last_routine[MCHAR],
  post_calcul_names[DATA_ITEM_SIZE][MCHAR],
  initialization_names[DATA_ITEM_SIZE][MCHAR];
long int 
  map_version_from=0, map_version_to=0, map_always=0;
long int 
  post_found=0, post_node[4], post_node_length=0, npost_node=0;
double 
  post_point[MDIM], post_point_dof[MUKNWN], post_node_result[DATA_ITEM_SIZE];
long int 
  calcul_matrix=0, calcul_vector=0, calcul_scalar_indx=0,
  calcul_operat=0, calcul_mat_indx=0, calcul_vec_indx=0;
long int 
  geometry_ent[2], *nodes_in_geometry=NULL;

void initialize( void )

{
  strcpy( data_file, "" );
  strcpy( last_routine, "" );
}
