==========================================
midas_thinning source
==========================================

    .. literalinclude:: ../_src_files/thinning.f90
       :language: fortran
       :linenos: