Home
last modified time | relevance | path

Searched refs:envelop_r_vars (Results 1 – 6 of 6) sorted by relevance

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Defield_utils.F165 … 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 Dcp_control_utils.F1933 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 Dcp_control_types.F180 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 Defield_utils.F165 … 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 Dcp_control_utils.F1891 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 Dcp_control_types.F177 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)