========================================== midas_diagHBHt source ========================================== .. literalinclude:: ../_src_files/diagHBHt.f90 :language: fortran :linenos: