Searched defs:pint_qtb_init (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/motion/ |
| H A D | pint_qtb.F | 69 SUBROUTINE pint_qtb_init(qtb_therm, pint_env, normalmode_env, section) subroutine
75 CHARACTER(len=*), PARAMETER :: routineN = 'pint_qtb_init', routineP = moduleN//':'//routineN argument
77 CHARACTER(LEN=rng_record_length) :: rng_record
78 INTEGER :: i, j, p local
79 LOGICAL :: restart
80 REAL(KIND=dp) :: dti2, ex
81 REAL(KIND=dp), DIMENSION(3, 2) :: initial_seed
82 TYPE(section_vals_type), POINTER :: rng_section
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/motion/ |
| H A D | pint_qtb.F | 72 SUBROUTINE pint_qtb_init(qtb_therm, pint_env, normalmode_env, section) subroutine
78 CHARACTER(len=*), PARAMETER :: routineN = 'pint_qtb_init', routineP = moduleN//':'//routineN argument
80 CHARACTER(LEN=rng_record_length) :: rng_record
81 INTEGER :: i, j, p local
82 LOGICAL :: restart
83 REAL(KIND=dp) :: dti2, ex
84 REAL(KIND=dp), DIMENSION(3, 2) :: initial_seed
85 TYPE(section_vals_type), POINTER :: rng_section
|