ss="kt">logical </span><span class="n">nounit</span><span class="w"></span>
<span class="c">!     ..</span>
<span class="c">!     .. External Functions ..</span>
<span class="c">!      LOGICAL LSAME</span>
<span class="c">!      EXTERNAL LSAME</span>
<span class="c">!     ..</span>
<span class="c">!     .. External Subroutines ..</span>
<span class="c">!      EXTERNAL XERBLA</span>
<span class="c">!     ..</span>
<span class="c">!</span>
<span class="c">!     Test the input parameters.</span>
<span class="c