lint-fix

Author: Malmahrouqi3

src/common/m_variables_conversion.fpp

@@ -1743,11 +1743,11 @@ contains
         if (wave_speeds == 1) then
             if (elasticity) then
                 s_L = min(vel_L(idx) - sqrt(c_L*c_L + &
-                                            (((4_wp*G_L)/3_wp) + tau_e_L(idx_tau))/rho_L), vel_R(idx) - sqrt(c_R*c_R + &
-                                                                                                             (((4_wp*G_R)/3_wp) + tau_e_R(idx_tau))/rho_R))
+                                            (((4._wp*G_L)/3._wp) + tau_e_L(idx_tau))/rho_L), vel_R(idx) - sqrt(c_R*c_R + &
+                                                                                                             (((4._wp*G_R)/3._wp) + tau_e_R(idx_tau))/rho_R))
                 s_R = max(vel_R(idx) + sqrt(c_R*c_R + &
-                                            (((4_wp*G_R)/3_wp) + tau_e_R(idx_tau))/rho_R), vel_L(idx) + sqrt(c_L*c_L + &
-                                                                                                             (((4_wp*G_L)/3_wp) + tau_e_L(idx_tau))/rho_L))
+                                            (((4._wp*G_R)/3._wp) + tau_e_R(idx_tau))/rho_R), vel_L(idx) + sqrt(c_L*c_L + &
+                                                                                                             (((4._wp*G_L)/3._wp) + tau_e_L(idx_tau))/rho_L))
                 s_S = (pres_R - tau_e_R(idx_tau) - pres_L + &
                        tau_e_L(idx_tau) + rho_L*vel_L(idx)*(s_L - vel_L(idx)) - &
                        rho_R*vel_R(idx)*(s_R - vel_R(idx)))/(rho_L*(s_L - vel_L(idx)) - &