Home
last modified time | relevance | path

Searched refs:seed_vals (Results 1 – 4 of 4) sorted by relevance

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dcp_subsys_methods.F111 INTEGER, DIMENSION(:), POINTER :: seed_vals local
145 CALL section_vals_val_get(my_subsys_section, "SEED", i_vals=seed_vals)
146 IF (SIZE(seed_vals) == 1) THEN
147 subsys%seed(:, :) = REAL(seed_vals(1), KIND=dp)
148 ELSE IF (SIZE(seed_vals) == 6) THEN
149 subsys%seed(1:3, 1:2) = RESHAPE(REAL(seed_vals(:), KIND=dp), (/3, 2/))
H A Denvironment.F403 INTEGER, DIMENSION(:), POINTER :: seed_vals local
423 CALL section_vals_val_get(root_section, "GLOBAL%SEED", i_vals=seed_vals)
424 IF (SIZE(seed_vals) == 1) THEN
425 initial_seed(:, :) = REAL(seed_vals(1), KIND=dp)
426 ELSE IF (SIZE(seed_vals) == 6) THEN
427 initial_seed(1:3, 1:2) = RESHAPE(REAL(seed_vals(:), KIND=dp), (/3, 2/))
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dcp_subsys_methods.F111 INTEGER, DIMENSION(:), POINTER :: seed_vals local
145 CALL section_vals_val_get(my_subsys_section, "SEED", i_vals=seed_vals)
146 IF (SIZE(seed_vals) == 1) THEN
147 subsys%seed(:, :) = REAL(seed_vals(1), KIND=dp)
148 ELSE IF (SIZE(seed_vals) == 6) THEN
149 subsys%seed(1:3, 1:2) = RESHAPE(REAL(seed_vals(:), KIND=dp), (/3, 2/))
H A Denvironment.F405 INTEGER, DIMENSION(:), POINTER :: seed_vals local
426 CALL section_vals_val_get(root_section, "GLOBAL%SEED", i_vals=seed_vals)
427 IF (SIZE(seed_vals) == 1) THEN
428 initial_seed(:, :) = REAL(seed_vals(1), KIND=dp)
429 ELSE IF (SIZE(seed_vals) == 6) THEN
430 initial_seed(1:3, 1:2) = RESHAPE(REAL(seed_vals(:), KIND=dp), (/3, 2/))