longitudinal_bar_vibration.f90