Searched refs:envelop_r_vars (Results 1 – 6 of 6) sorted by relevance
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | efield_utils.F | 165 … env = EXP(-0.5_dp*((sim_time - efield%envelop_r_vars(1))/efield%envelop_r_vars(2))**2.0_dp) 169 dt = efield%envelop_r_vars(1) 170 IF (sim_time .LT. (SIZE(efield%envelop_r_vars) - 2)*dt) THEN 174 …strength = (efield%envelop_r_vars(lower + 2)*(upper*dt - sim_time) + efield%envelop_r_vars(upper +…
|
H A D | cp_control_utils.F | 1933 NULLIFY (efield%envelop_i_vars, efield%envelop_r_vars) 1956 ALLOCATE (efield%envelop_r_vars(2)) 1959 r_val=efield%envelop_r_vars(1)) 1961 r_val=efield%envelop_r_vars(2)) 1985 ALLOCATE (efield%envelop_r_vars(n + 1)) 1987 CALL section_vals_val_get(tmp_section, "TIMESTEP", r_val=efield%envelop_r_vars(1)) 1990 READ (unit_nr, *) efield%envelop_r_vars(j) 1991 efield%envelop_r_vars(j) = cp_unit_to_cp2k(efield%envelop_r_vars(j), "volt/m")
|
H A D | cp_control_types.F | 180 REAL(KIND=dp), DIMENSION(:), POINTER :: envelop_r_vars component 1052 IF (ASSOCIATED(efield_fields(i)%efield%envelop_r_vars)) THEN 1053 DEALLOCATE (efield_fields(i)%efield%envelop_r_vars)
|
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | efield_utils.F | 165 … env = EXP(-0.5_dp*((sim_time - efield%envelop_r_vars(1))/efield%envelop_r_vars(2))**2.0_dp) 169 dt = efield%envelop_r_vars(1) 170 IF (sim_time .LT. (SIZE(efield%envelop_r_vars) - 2)*dt) THEN 174 …strength = (efield%envelop_r_vars(lower + 2)*(upper*dt - sim_time) + efield%envelop_r_vars(upper +…
|
H A D | cp_control_utils.F | 1891 NULLIFY (efield%envelop_i_vars, efield%envelop_r_vars) 1914 ALLOCATE (efield%envelop_r_vars(2)) 1917 r_val=efield%envelop_r_vars(1)) 1919 r_val=efield%envelop_r_vars(2)) 1943 ALLOCATE (efield%envelop_r_vars(n + 1)) 1945 CALL section_vals_val_get(tmp_section, "TIMESTEP", r_val=efield%envelop_r_vars(1)) 1948 READ (unit_nr, *) efield%envelop_r_vars(j) 1949 efield%envelop_r_vars(j) = cp_unit_to_cp2k(efield%envelop_r_vars(j), "volt/m")
|
H A D | cp_control_types.F | 177 REAL(KIND=dp), DIMENSION(:), POINTER :: envelop_r_vars component 1024 IF (ASSOCIATED(efield_fields(i)%efield%envelop_r_vars)) THEN 1025 DEALLOCATE (efield_fields(i)%efield%envelop_r_vars)
|