16 #include "./base/base_uses.f90"
21 TYPE glbopt_mdctrl_data_type
22 INTEGER :: md_bump_counter
23 REAL(KIND=
dp),
DIMENSION(:),
ALLOCATABLE :: epot_history
24 INTEGER :: output_unit
26 INTEGER :: bump_steps_upwards
27 INTEGER :: bump_steps_downwards
28 INTEGER :: md_bumps_max
29 END TYPE glbopt_mdctrl_data_type
32 TYPE(glbopt_mdctrl_data_type),
POINTER :: glbopt => null()
36 PUBLIC :: mdctrl_type, glbopt_mdctrl_data_type
38 CHARACTER(len=*),
PARAMETER,
PRIVATE :: moduleN =
'mdctrl_types'
Defines the basic variable types.
integer, parameter, public dp
A common interface for passing a callback into the md_run loop.