========== shock_perp ========== .. f:autosrcfile:: shock_perp.f90