Searched refs:seed_vals (Results 1 – 4 of 4) sorted by relevance
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | cp_subsys_methods.F | 111 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 D | environment.F | 403 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 D | cp_subsys_methods.F | 111 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 D | environment.F | 405 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/))
|