==========================================
midas_extractBmatrixFor1Dvar source
==========================================

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