==========================================
midas_diagBmatrix source
==========================================

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