D:/Mis_Documentos/investigacion/proyectos/VT optimization project/MBSVT/trunk/constants.f90 File Reference

Modules
module	CONSTANTS
	Module of solver parameters.
Functions/Subroutines
subroutine	CONSTANTS::initialize_CONSTANTS (formulation, integrator, time_step, penaltycoef, psicoef, omegacoef, gravity)
	Inicialization of solver constants and parameters.
subroutine	CONSTANTS::initialize_CALLBACKS (forces, stiffness, damping, PQbarPrho, PMbarPrhoVdot, dgdy, dgdp, AdjInit, gfun, guiada, normal_collision)
	Initialization of solver callbacks: the user provides the subtoutines that the solver calls if necessary. It needs a previous call to constants::initialize_CONSTANTS.
subroutine	CONSTANTS::setDIM (newDIM)
subroutine	CONSTANTS::setNRT (newNRT)
subroutine	CONSTANTS::setNMT (newNMT)
subroutine	CONSTANTS::setNIN (newNIN)
Variables
REAL(8), dimension(3), pointer	CONSTANTS::PROTECTED
REAL(8), dimension(3)	CONSTANTS::g = (/0.d0,0.d0,-9.81d0/)
REAL(8)	CONSTANTS::dt = 1.d-2
REAL(8)	CONSTANTS::alfa = 1.d9
REAL(8)	CONSTANTS::psi = 1.d0
REAL(8)	CONSTANTS::omega = 10.d0
REAL(8)	CONSTANTS::tolNRppos = 1.d-10
REAL(8)	CONSTANTS::pivgdlval = 1.d15
INTEGER	CONSTANTS::maxiteppos = 1000
INTEGER, parameter	CONSTANTS::Dynamics = 1
INTEGER, parameter	CONSTANTS::Kinematics = 2
INTEGER, parameter	CONSTANTS::Sensitivity_ADJ = 3
INTEGER, parameter	CONSTANTS::Sensitivity_TLM = 4
INTEGER, parameter	CONSTANTS::E_RK = 1
INTEGER, parameter	CONSTANTS::I_RK = 2
INTEGER, parameter	CONSTANTS::I_RK_ADJ = 3
INTEGER, parameter	CONSTANTS::I_RK_TLM = 4
INTEGER	CONSTANTS::SWFORM = Dynamics
INTEGER	CONSTANTS::SWINT = E_RK
INTEGER	CONSTANTS::DIM = 0
INTEGER	CONSTANTS::NRT = 0
INTEGER	CONSTANTS::NIN = 0
INTEGER	CONSTANTS::NMT = 0
PROCEDURE(callback_forces), pointer	CONSTANTS::pforces_user
PROCEDURE(callback_stiffness), pointer	CONSTANTS::pstiffness_user
PROCEDURE(callback_damping), pointer	CONSTANTS::pdamping_user
PROCEDURE(callback_PQbarPrho), pointer	CONSTANTS::pqro_user
PROCEDURE(callback_PMbarPrhoVdot), pointer	CONSTANTS::pmpv_user
PROCEDURE(callback_dgdy), pointer	CONSTANTS::pdgdy_user
PROCEDURE(callback_dgdp), pointer	CONSTANTS::pdgdp_user
PROCEDURE(callback_AdjInit), pointer	CONSTANTS::padjinit_user
PROCEDURE(callback_gfun), pointer	CONSTANTS::pgfun_user
PROCEDURE(callback_guiada), pointer	CONSTANTS::pguiada
PROCEDURE(callback_normal_collision), pointer	CONSTANTS::pnormal_collision