Searched refs:res_val_3 (Results 1 – 2 of 2) sorted by relevance
329 REAL(KIND=dp), DIMENSION(3) :: res_val_3 local409 res_val_3(:) = -1.0_dp413 values=res_val_3, n_entries=i_tmp)415 IF (ALL(res_val_3(:) .LE. 0.0)) &420 external_comm = NINT(res_val_3(1))421 ext_master_id = NINT(res_val_3(2))422 scf_energy_message_tag = NINT(res_val_3(3))
327 REAL(KIND=dp), DIMENSION(3) :: res_val_3 local397 res_val_3(:) = -1.0_dp401 values=res_val_3, n_entries=i_tmp)403 IF (ALL(res_val_3(:) .LE. 0.0)) &408 external_comm = NINT(res_val_3(1))409 ext_master_id = NINT(res_val_3(2))410 scf_energy_message_tag = NINT(res_val_3(3))