fix for indices

one-line indices order fix in rp1_nonlinear_elasticity_fwave.f90