! Replaces ZTRMM  48 procedures


    ! Level 3 COMPLEX  (ZTRMM)

    ! .                         right  unit
    ! .     alpha  op_a  lower  side   diag  b

    ! 301    any    H      L     R      U    b < alpha b a(H)
    ! 302    any    H      L     R           b < alpha b a(H)
    ! 303    any    H      L            U    b < alpha a(H) b
    ! 304    any    H      L                 b < alpha a(H) b
    ! 305    any    H            R      U    b < alpha b a(H)
    ! 306    any    H            R           b < alpha b a(H)
    ! 307    any    H                   U    b < alpha a(H) b
    ! 308    any    H                        b < alpha a(H) b
    ! 309    any    T      L     R      U    b < alpha b a(T)
    ! 310    any    T      L     R           b < alpha b a(T)
    ! 311    any    T      L            U    b < alpha a(T) b
    ! 312    any    T      L                 b < alpha a(T) b
    ! 313    any    T            R      U    b < alpha b a(T)
    ! 314    any    T            R           b < alpha b a(T)
    ! 315    any    T                   U    b < alpha a(T) b
    ! 316    any    T                        b < alpha a(T) b
    ! 317    any           L     R      U    b < alpha b a
    ! 318    any           L     R           b < alpha b a
    ! 319    any           L            U    b < alpha a b
    ! 320    any           L                 b < alpha a b
    ! 321    any                 R      U    b < alpha b a
    ! 322    any                 R           b < alpha b a
    ! 323    any                        U    b < alpha a b
    ! 324    any                             b < alpha a b
    ! 325    1.0    H      L     R      U    b < b a(H)
    ! 326    1.0    H      L     R           b < b a(H)
    ! 327    1.0    H      L            U    b < a(H) b
    ! 328    1.0    H      L                 b < a(H) b
    ! 329    1.0    H            R      U    b < b a(H)
    ! 330    1.0    H            R           b < b a(H)
    ! 331    1.0    H                   U    b < a(H) b
    ! 332    1.0    H                        b < a(H) b
    ! 333    1.0    T      L     R      U    b < b a(T)
    ! 334    1.0    T      L     R           b < b a(T)
    ! 335    1.0    T      L            U    b < a(T) b
    ! 336    1.0    T      L                 b < a(T) b
    ! 337    1.0    T            R      U    b < b a(T)
    ! 338    1.0    T            R           b < b a(T)
    ! 339    1.0    T                   U    b < a(T) b
    ! 340    1.0    T                        b < a(T) b
    ! 341    1.0           L     R      U    b < b a
    ! 342    1.0           L     R           b < b a
    ! 343    1.0           L            U    b < a b
    ! 344    1.0           L                 b < a b
    ! 345    1.0                 R      U    b < b a
    ! 346    1.0                 R           b < b a
    ! 347    1.0                        U    b < a b
    ! 348    1.0                             b < a b


    MODULE ztrmm_01

    CONTAINS
      SUBROUTINE ztrmm_301(alpha,a,op_a,b,lower,right_side,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_lower_type, &
         blas_unit_diag_type, blas_conj_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_right_type), INTENT (IN) :: right_side
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','L','C','U',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrmm_301
    END MODULE ztrmm_01

    MODULE ztrmm_02

    CONTAINS
      SUBROUTINE ztrmm_302(alpha,a,op_a,b,lower,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_lower_type, &
         blas_conj_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','L','C','N',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrmm_302
    END MODULE ztrmm_02

    MODULE ztrmm_03

    CONTAINS
      SUBROUTINE ztrmm_303(alpha,a,op_a,b,lower,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_unit_diag_type, &
         blas_conj_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','L','C','U',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrmm_303
    END MODULE ztrmm_03

    MODULE ztrmm_04

    CONTAINS
      SUBROUTINE ztrmm_304(alpha,a,op_a,b,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_conj_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','L','C','N',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrmm_304
    END MODULE ztrmm_04

    MODULE ztrmm_05

    CONTAINS
      SUBROUTINE ztrmm_305(alpha,a,op_a,b,right_side,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_unit_diag_type, &
         blas_conj_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_right_type), INTENT (IN) :: right_side
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','U','C','U',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrmm_305
    END MODULE ztrmm_05

    MODULE ztrmm_06

    CONTAINS
      SUBROUTINE ztrmm_306(alpha,a,op_a,b,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_conj_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','U','C','N',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrmm_306
    END MODULE ztrmm_06

    MODULE ztrmm_07

    CONTAINS
      SUBROUTINE ztrmm_307(alpha,a,op_a,b,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_unit_diag_type, blas_conj_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','U','C','U',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrmm_307
    END MODULE ztrmm_07

    MODULE ztrmm_08

    CONTAINS
      SUBROUTINE ztrmm_308(alpha,a,op_a,b)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_conj_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','U','C','N',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrmm_308
    END MODULE ztrmm_08

    MODULE ztrmm_09

    CONTAINS
      SUBROUTINE ztrmm_309(alpha,a,op_a,b,lower,right_side,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_lower_type, &
         blas_unit_diag_type, blas_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_right_type), INTENT (IN) :: right_side
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','L','T','U',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrmm_309
    END MODULE ztrmm_09

    MODULE ztrmm_10

    CONTAINS
      SUBROUTINE ztrmm_310(alpha,a,op_a,b,lower,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_lower_type, &
         blas_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','L','T','N',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrmm_310
    END MODULE ztrmm_10

    MODULE ztrmm_11

    CONTAINS
      SUBROUTINE ztrmm_311(alpha,a,op_a,b,lower,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_unit_diag_type, &
         blas_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','L','T','U',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrmm_311
    END MODULE ztrmm_11

    MODULE ztrmm_12

    CONTAINS
      SUBROUTINE ztrmm_312(alpha,a,op_a,b,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','L','T','N',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrmm_312
    END MODULE ztrmm_12

    MODULE ztrmm_13

    CONTAINS
      SUBROUTINE ztrmm_313(alpha,a,op_a,b,right_side,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_unit_diag_type, &
         blas_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_right_type), INTENT (IN) :: right_side
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','U','T','U',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrmm_313
    END MODULE ztrmm_13

    MODULE ztrmm_14

    CONTAINS
      SUBROUTINE ztrmm_314(alpha,a,op_a,b,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','U','T','N',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrmm_314
    END MODULE ztrmm_14

    MODULE ztrmm_15

    CONTAINS
      SUBROUTINE ztrmm_315(alpha,a,op_a,b,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_unit_diag_type, blas_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','U','T','U',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrmm_315
    END MODULE ztrmm_15

    MODULE ztrmm_16

    CONTAINS
      SUBROUTINE ztrmm_316(alpha,a,op_a,b)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_trans_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','U','T','N',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrmm_316
    END MODULE ztrmm_16

    MODULE ztrmm_17

    CONTAINS
      SUBROUTINE ztrmm_317(alpha,a,b,lower,right_side,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_lower_type, &
         blas_unit_diag_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_right_type), INTENT (IN) :: right_side
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','L','N','U',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrmm_317
    END MODULE ztrmm_17

    MODULE ztrmm_18

    CONTAINS
      SUBROUTINE ztrmm_318(alpha,a,b,lower,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_lower_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','L','N','N',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrmm_318
    END MODULE ztrmm_18

    MODULE ztrmm_19

    CONTAINS
      SUBROUTINE ztrmm_319(alpha,a,b,lower,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_unit_diag_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','L','N','U',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrmm_319
    END MODULE ztrmm_19

    MODULE ztrmm_20

    CONTAINS
      SUBROUTINE ztrmm_320(alpha,a,b,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','L','N','N',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrmm_320
    END MODULE ztrmm_20

    MODULE ztrmm_21

    CONTAINS
      SUBROUTINE ztrmm_321(alpha,a,b,right_side,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_unit_diag_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_right_type), INTENT (IN) :: right_side
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','U','N','U',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrmm_321
    END MODULE ztrmm_21

    MODULE ztrmm_22

    CONTAINS
      SUBROUTINE ztrmm_322(alpha,a,b,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','U','N','N',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrmm_322
    END MODULE ztrmm_22

    MODULE ztrmm_23

    CONTAINS
      SUBROUTINE ztrmm_323(alpha,a,b,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_unit_diag_type
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','U','N','U',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrmm_323
    END MODULE ztrmm_23

    MODULE ztrmm_24

    CONTAINS
      SUBROUTINE ztrmm_324(alpha,a,b)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        ! .. Scalar Arguments ..
        COMPLEX (wp), INTENT (IN) :: alpha
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','U','N','N',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrmm_324
    END MODULE ztrmm_24

    MODULE ztrmm_25

    CONTAINS
      SUBROUTINE ztrmm_325(a,op_a,b,lower,right_side,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_lower_type, &
         blas_unit_diag_type, blas_conj_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_right_type), INTENT (IN) :: right_side
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','L','C','U',m,n,one,a,n,b,n)
      END SUBROUTINE ztrmm_325
    END MODULE ztrmm_25

    MODULE ztrmm_26

    CONTAINS
      SUBROUTINE ztrmm_326(a,op_a,b,lower,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_lower_type, &
         blas_conj_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','L','C','N',m,n,one,a,n,b,n)
      END SUBROUTINE ztrmm_326
    END MODULE ztrmm_26

    MODULE ztrmm_27

    CONTAINS
      SUBROUTINE ztrmm_327(a,op_a,b,lower,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_unit_diag_type, &
         blas_conj_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','L','C','U',m,n,one,a,m,b,n)
      END SUBROUTINE ztrmm_327
    END MODULE ztrmm_27

    MODULE ztrmm_28

    CONTAINS
      SUBROUTINE ztrmm_328(a,op_a,b,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_conj_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','L','C','N',m,n,one,a,m,b,n)
      END SUBROUTINE ztrmm_328
    END MODULE ztrmm_28

    MODULE ztrmm_29

    CONTAINS
      SUBROUTINE ztrmm_329(a,op_a,b,right_side,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_unit_diag_type, &
         blas_conj_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_right_type), INTENT (IN) :: right_side
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','U','C','U',m,n,one,a,n,b,n)
      END SUBROUTINE ztrmm_329
    END MODULE ztrmm_29

    MODULE ztrmm_30

    CONTAINS
      SUBROUTINE ztrmm_330(a,op_a,b,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_conj_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','U','C','N',m,n,one,a,n,b,n)
      END SUBROUTINE ztrmm_330
    END MODULE ztrmm_30

    MODULE ztrmm_31

    CONTAINS
      SUBROUTINE ztrmm_331(a,op_a,b,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_unit_diag_type, blas_conj_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','U','C','U',m,n,one,a,m,b,n)
      END SUBROUTINE ztrmm_331
    END MODULE ztrmm_31

    MODULE ztrmm_32

    CONTAINS
      SUBROUTINE ztrmm_332(a,op_a,b)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_conj_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_conj_trans_type), INTENT (IN) :: op_a
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','U','C','N',m,n,one,a,m,b,n)
      END SUBROUTINE ztrmm_332
    END MODULE ztrmm_32

    MODULE ztrmm_33

    CONTAINS
      SUBROUTINE ztrmm_333(a,op_a,b,lower,right_side,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_lower_type, &
         blas_unit_diag_type, blas_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_right_type), INTENT (IN) :: right_side
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','L','T','U',m,n,one,a,n,b,n)
      END SUBROUTINE ztrmm_333
    END MODULE ztrmm_33

    MODULE ztrmm_34

    CONTAINS
      SUBROUTINE ztrmm_334(a,op_a,b,lower,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_lower_type, &
         blas_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','L','T','N',m,n,one,a,n,b,n)
      END SUBROUTINE ztrmm_334
    END MODULE ztrmm_34

    MODULE ztrmm_35

    CONTAINS
      SUBROUTINE ztrmm_335(a,op_a,b,lower,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_unit_diag_type, &
         blas_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','L','T','U',m,n,one,a,m,b,n)
      END SUBROUTINE ztrmm_335
    END MODULE ztrmm_35

    MODULE ztrmm_36

    CONTAINS
      SUBROUTINE ztrmm_336(a,op_a,b,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','L','T','N',m,n,one,a,m,b,n)
      END SUBROUTINE ztrmm_336
    END MODULE ztrmm_36

    MODULE ztrmm_37

    CONTAINS
      SUBROUTINE ztrmm_337(a,op_a,b,right_side,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_unit_diag_type, &
         blas_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_right_type), INTENT (IN) :: right_side
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','U','T','U',m,n,one,a,n,b,n)
      END SUBROUTINE ztrmm_337
    END MODULE ztrmm_37

    MODULE ztrmm_38

    CONTAINS
      SUBROUTINE ztrmm_338(a,op_a,b,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','U','T','N',m,n,one,a,n,b,n)
      END SUBROUTINE ztrmm_338
    END MODULE ztrmm_38

    MODULE ztrmm_39

    CONTAINS
      SUBROUTINE ztrmm_339(a,op_a,b,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_unit_diag_type, blas_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','U','T','U',m,n,one,a,m,b,n)
      END SUBROUTINE ztrmm_339
    END MODULE ztrmm_39

    MODULE ztrmm_40

    CONTAINS
      SUBROUTINE ztrmm_340(a,op_a,b)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_trans_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_trans_type), INTENT (IN) :: op_a
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','U','T','N',m,n,one,a,m,b,n)
      END SUBROUTINE ztrmm_340
    END MODULE ztrmm_40

    MODULE ztrmm_41

    CONTAINS
      SUBROUTINE ztrmm_341(a,b,lower,right_side,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_lower_type, &
         blas_unit_diag_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_right_type), INTENT (IN) :: right_side
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','L','N','U',m,n,one,a,n,b,n)
      END SUBROUTINE ztrmm_341
    END MODULE ztrmm_41

    MODULE ztrmm_42

    CONTAINS
      SUBROUTINE ztrmm_342(a,b,lower,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_lower_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','L','N','N',m,n,one,a,n,b,n)
      END SUBROUTINE ztrmm_342
    END MODULE ztrmm_42

    MODULE ztrmm_43

    CONTAINS
      SUBROUTINE ztrmm_343(a,b,lower,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type, blas_unit_diag_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_lower_type), INTENT (IN) :: lower
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','L','N','U',m,n,one,a,m,b,n)
      END SUBROUTINE ztrmm_343
    END MODULE ztrmm_43

    MODULE ztrmm_44

    CONTAINS
      SUBROUTINE ztrmm_344(a,b,lower)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_lower_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_lower_type), INTENT (IN) :: lower
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','L','N','N',m,n,one,a,m,b,n)
      END SUBROUTINE ztrmm_344
    END MODULE ztrmm_44

    MODULE ztrmm_45

    CONTAINS
      SUBROUTINE ztrmm_345(a,b,right_side,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type, blas_unit_diag_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_right_type), INTENT (IN) :: right_side
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','U','N','U',m,n,one,a,n,b,n)
      END SUBROUTINE ztrmm_345
    END MODULE ztrmm_45

    MODULE ztrmm_46

    CONTAINS
      SUBROUTINE ztrmm_346(a,b,right_side)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_right_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_right_type), INTENT (IN) :: right_side
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('R','U','N','N',m,n,one,a,n,b,n)
      END SUBROUTINE ztrmm_346
    END MODULE ztrmm_46

    MODULE ztrmm_47

    CONTAINS
      SUBROUTINE ztrmm_347(a,b,unit_diag)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        USE blas_keywords, ONLY : blas_unit_diag_type
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Scalar Arguments ..
        TYPE (blas_unit_diag_type), INTENT (IN) :: unit_diag
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','U','N','U',m,n,one,a,m,b,n)
      END SUBROUTINE ztrmm_347
    END MODULE ztrmm_47

    MODULE ztrmm_48

    CONTAINS
      SUBROUTINE ztrmm_348(a,b)
        ! .. Use Statements ..
        USE blas_kinds, ONLY : wp => dp
        ! .. Parameters ..
        COMPLEX (wp), PARAMETER :: one = (1.0_wp,0.0_wp)
        ! .. Array Arguments ..
        COMPLEX (wp), INTENT (IN) :: a(:,:)
        COMPLEX (wp), INTENT (INOUT) :: b(:,:)
        ! .. Local Scalar ..
        INTEGER :: m, n
        ! .. External Procedures ..
        EXTERNAL ztrmm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrmm('L','U','N','N',m,n,one,a,m,b,n)
      END SUBROUTINE ztrmm_348
    END MODULE ztrmm_48