FEDEM Solver  R8.0
Source code of the dynamics solver
Data Types | Modules | Functions/Subroutines | Variables
explicitFunctionsModule.f90 File Reference

Data Types

type  explicitfunctionsmodule::splinedata
 
interface  explicitfunctionsmodule::funcvalue
 
interface  explicitfunctionsmodule::funcderivative
 

Modules

module  explicitfunctionsmodule
 

Functions/Subroutines

subroutine, private explicitfunctionsmodule::funcvalue1 (ikf, ifunc, rfunc, x, fn, ierr)
 
subroutine, private explicitfunctionsmodule::funcvalue2 (ikf, ifunc, rfunc, x, fn, ierr)
 
subroutine, private explicitfunctionsmodule::funcderivative1 (ikf, iorder, ifunc, rfunc, x, fn, ierr)
 
subroutine, private explicitfunctionsmodule::funcderivative2 (ikf, iorder, ifunc, rfunc, x, fn, ierr)
 
subroutine explicitfunctionsmodule::funcintegral (ikf, iorder, ifunc, rfunc, x, fn, ierr)
 
logical function explicitfunctionsmodule::canintegrateexplicitly (funcType, intOrder)
 
subroutine, private explicitfunctionsmodule::outofrangeerror (X, X0, X1)
 
real(dp) function explicitfunctionsmodule::func1 (IFUNC, RFUNC, T, X)
 
real(dp) function explicitfunctionsmodule::func2 (RFUNC, T, X)
 
real(dp) function explicitfunctionsmodule::func3 (RFUNC, T, X)
 
real(dp) function explicitfunctionsmodule::func4 (IFUNC, RFUNC, T, X, IERR)
 
real(dp) function explicitfunctionsmodule::func5 (IKF, IFUNC, RFUNC, constT, IERR)
 
real(dp) function explicitfunctionsmodule::func6 (IKF, IFUNC, RFUNC, T, IERR)
 
subroutine explicitfunctionsmodule::deallocatesplines ()
 
subroutine, private explicitfunctionsmodule::splin3 (X, Y, DERIV, N, Z, FVALUE, FDERIV, M, IOP, IERR)
 
real(dp) function explicitfunctionsmodule::func8 (RFUNC, T, X, IERR)
 
real(dp) function explicitfunctionsmodule::func9 (IFUNC, RFUNC, T, X, IERR)
 
real(dp) function explicitfunctionsmodule::func10 (IKF, IFUNC, RFUNC, X, IERR)
 
real(dp) function, private explicitfunctionsmodule::func10diff (IKF, IFUNC, RFUNC, X, IERR)
 
real(dp) function, private explicitfunctionsmodule::func10integral (IKF, IFUNC, RFUNC, X, IORD, IERR)
 
real(dp) function explicitfunctionsmodule::func11 (RFUNC, T)
 
real(dp) function, private explicitfunctionsmodule::rampintegral (IORD, X, OFFSET, SLOPE, X0, X3)
 
real(dp) function explicitfunctionsmodule::func12 (RFUNC, T)
 
real(dp) function explicitfunctionsmodule::func13 (RFUNC, T)
 
real(dp) function explicitfunctionsmodule::func14 (RFUNC, T)
 
real(dp) function explicitfunctionsmodule::func15 (RFUNC)
 
real(dp) function explicitfunctionsmodule::func16 (RFUNC, T)
 
real(dp) function explicitfunctionsmodule::func17 (RFUNC, T)
 
real(dp) function explicitfunctionsmodule::func18 (ikf, iFunc, rFunc, arg, ierr)
 
real(dp) function, private explicitfunctionsmodule::func18integral (ikf, iFunc, rFunc, arg, iorder, ierr)
 
real(dp) function explicitfunctionsmodule::func19 (ikf, iFunc, arg, ierr)
 
real(dp) function explicitfunctionsmodule::func19diff (ikf, iFunc, arg, ierr)
 
real(dp) function explicitfunctionsmodule::func20 (ikf, iFunc, args, ierr)
 
real(dp) function explicitfunctionsmodule::func20diff (ikf, iFunc, args, ierr)
 
real(dp) function explicitfunctionsmodule::func21 (ikf, iFunc, rFunc, args, ierr)
 
real(dp) function explicitfunctionsmodule::func21diff (ikf, iFunc, rFunc, args, ierr)
 
real(dp) function explicitfunctionsmodule::func22 (IKF, RFUNC, T, IERR)
 
real(dp) function trigfunc (x)
 Evaluates the trigonometric part of the trajectory function. More...
 

Variables

integer, parameter, private explicitfunctionsmodule::dp = kind(1.0D0)
 
real(dp), parameter, private explicitfunctionsmodule::pi = 3.141592653589793238_dp
 
real(dp), parameter, private explicitfunctionsmodule::twopi = PI+PI
 
real(dp), parameter, private explicitfunctionsmodule::epsarg_p = 1.0e-15_dp
 
integer, parameter explicitfunctionsmodule::maxfunc_p = 22
 
integer, parameter explicitfunctionsmodule::nspln_p = 6
 
integer, parameter explicitfunctionsmodule::sinusoidal_p = 1
 
integer, parameter explicitfunctionsmodule::compl_sinus_p = 2
 
integer, parameter explicitfunctionsmodule::delayed_compl_sinus_p = 3
 
integer, parameter explicitfunctionsmodule::wave_sinus_p = 4
 
integer, parameter explicitfunctionsmodule::lin_vel_var_p = 5
 
integer, parameter explicitfunctionsmodule::spline_p = 6
 
integer, parameter explicitfunctionsmodule::wave_stokes5_p = 7
 
integer, parameter explicitfunctionsmodule::wave_streamline_p = 8
 
integer, parameter explicitfunctionsmodule::wave_embedded_p = 9
 
integer, parameter explicitfunctionsmodule::lin_var_p = 10
 
integer, parameter explicitfunctionsmodule::ramp_p = 11
 
integer, parameter explicitfunctionsmodule::step_p = 12
 
integer, parameter explicitfunctionsmodule::square_puls_p = 13
 
integer, parameter explicitfunctionsmodule::dirac_puls_p = 14
 
integer, parameter explicitfunctionsmodule::constant_p = 15
 
integer, parameter explicitfunctionsmodule::lim_ramp_p = 16
 
integer, parameter explicitfunctionsmodule::scale_p = 17
 
integer, parameter explicitfunctionsmodule::device_function_p = 18
 
integer, parameter explicitfunctionsmodule::math_expression_p = 19
 
integer, parameter explicitfunctionsmodule::user_defined_p = 21
 
integer, parameter explicitfunctionsmodule::smooth_traj_p = 22
 
character(len=19), dimension(maxfunc_p), parameter explicitfunctionsmodule::functype_p = (/ 'SINUSOIDAL ', 'COMPL_SINUS ', 'DELAYED_COMPL_SINUS', 'WAVE_SINUS ', 'LIN_VEL_VAR ', 'SPLINE ', 'WAVE_STOKES5 ', 'WAVE_STREAMLINE ', 'WAVE_EMBEDDED ', 'LIN_VAR ', 'RAMP ', 'STEP ', 'SQUARE_PULS ', 'DIRAC_PULS ', 'CONSTANT ', 'LIM_RAMP ', 'SCALE ', 'DEVICE_FUNCTION ', 'MATH_EXPRESSION ', '-------------------', 'USER_DEFINED ', 'SMOOTH_TRAJ ' /)
 
integer, save explicitfunctionsmodule::dbgfunc = 0
 
type(splinedata), dimension(nspln_p), save, private explicitfunctionsmodule::spl
 
integer, dimension(nspln_p), save explicitfunctionsmodule::last = 0
 

Function/Subroutine Documentation

◆ trigfunc()

real(dp) function func22::trigfunc ( real(dp), intent(in)  x)

Evaluates the trigonometric part of the trajectory function.