>
</div>



    </section>
    <br class="visible-xs visible-sm hidden-md">

    

    
    
    
    
    

    
    
    
    
    


    
    
    
    <section>
    <h2><span class="anchor" id="src"></span>Source Code</h2>
    <div class="highlight"><pre><span></span>	<span class="k">SUBROUTINE </span><span class="n">unit_matrix</span><span class="p">(</span><span class="n">mat</span><span class="p">)</span>
	<span class="kt">REAL</span><span class="p">(</span><span class="n">SP</span><span class="p">),