1987       SUBROUTINE DTRMM ( SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA,  subroutine
2000 *  DTRMM  performs one of the matrix-matrix operations  argument
2114       LOGICAL            LSAME
2121       LOGICAL            LSIDE, NOUNIT, UPPER
2122       INTEGER            I, INFO, J, K, NROWA
2123       DOUBLE PRECISION   TEMP
2125       DOUBLE PRECISION   ONE         , ZERO
2180    10       CONTINUE
2181    20    CONTINUE
2199    30                   CONTINUE
2204    40             CONTINUE
2205    50          CONTINUE
2216    60                   CONTINUE
2218    70             CONTINUE
2219    80          CONTINUE
2233    90                CONTINUE
2235   100             CONTINUE
2236   110          CONTINUE
2245   120                CONTINUE
2247   130             CONTINUE
2248   140          CONTINUE
2263   150             CONTINUE
2269   160                   CONTINUE
2271   170             CONTINUE
2272   180          CONTINUE
2280   190             CONTINUE
2286   200                   CONTINUE
2288   210             CONTINUE
2289   220          CONTINUE
2302   230                   CONTINUE
2304   240             CONTINUE
2311   250                CONTINUE
2313   260          CONTINUE
2339 *     End of DTRMM .  argument