Lines Matching refs:tmp_const
3553 sum_cell_f_constr, th, tmp_const local
3973 tmp_const = (R12(iatom, jatom)**3)
3974 dr_ij_dR(:) = dr1_r2(:)/tmp_const
3990 tmp_const = (1.5_dp**2)*dmyexp*(1 - myexp**2)* &
3993 ds_dR_i(:) = -0.5_dp*tmp_const*dmy_dR_i(:)
3994 ds_dR_j(:) = -0.5_dp*tmp_const*dmy_dR_j(:)
3996 … tmp_const = 1.0_dp - 2.0_dp*my1_homo*cdft_control%becke_control%aij(iatom, jatom)
3997 ds_dR_i(:) = ds_dR_i(:)*tmp_const
3998 ds_dR_j(:) = ds_dR_j(:)*tmp_const
4003 tmp_const = 0.5_dp*(1.0_dp - myexp)
4004 cell_functions(iatom) = cell_functions(iatom)*tmp_const
4006 IF (ABS(tmp_const) .LE. th) tmp_const = tmp_const + th
4007 dP_i_dRi(:, iatom) = dP_i_dRi(:, iatom) + ds_dR_i(:)/tmp_const
4008 dP_i_dRj(:, iatom, jatom) = ds_dR_j(:)/tmp_const
4012 tmp_const = 0.5_dp*(1.0_dp + myexp)
4013 cell_functions(jatom) = cell_functions(jatom)*tmp_const
4015 IF (ABS(tmp_const) .LE. th) tmp_const = tmp_const + th
4016 dP_i_dRj(:, jatom, iatom) = -ds_dR_i(:)/tmp_const
4017 … dP_i_dRi(:, jatom) = dP_i_dRi(:, jatom) - ds_dR_j(:)/tmp_const