! Replaces ZTRSM  48 procedures


    ! Level 3 COMPLEX  (ZTRSM)

    ! .                         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(-1)
    ! 318    any           L     R           b < alpha b a(-1)
    ! 319    any           L            U    b < alpha a(-1) b
    ! 320    any           L                 b < alpha a(-1) b
    ! 321    any                 R      U    b < alpha b a(-1)
    ! 322    any                 R           b < alpha b a(-1)
    ! 323    any                        U    b < alpha a(-1) b
    ! 324    any                             b < alpha a(-1) 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(-1)
    ! 342    1.0           L     R           b < b a(-1)
    ! 343    1.0           L            U    b < a(-1) b
    ! 344    1.0           L                 b < a(-1) b
    ! 345    1.0                 R      U    b < b a(-1)
    ! 346    1.0                 R           b < b a(-1)
    ! 347    1.0                        U    b < a(-1) b
    ! 348    1.0                             b < a(-1) b


    MODULE ztrsm_01

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','L','C','U',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrsm_301
    END MODULE ztrsm_01

    MODULE ztrsm_02

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','L','C','N',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrsm_302
    END MODULE ztrsm_02

    MODULE ztrsm_03

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','L','C','U',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrsm_303
    END MODULE ztrsm_03

    MODULE ztrsm_04

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','L','C','N',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrsm_304
    END MODULE ztrsm_04

    MODULE ztrsm_05

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','U','C','U',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrsm_305
    END MODULE ztrsm_05

    MODULE ztrsm_06

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','U','C','N',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrsm_306
    END MODULE ztrsm_06

    MODULE ztrsm_07

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','U','C','U',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrsm_307
    END MODULE ztrsm_07

    MODULE ztrsm_08

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','U','C','N',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrsm_308
    END MODULE ztrsm_08

    MODULE ztrsm_09

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','L','T','U',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrsm_309
    END MODULE ztrsm_09

    MODULE ztrsm_10

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','L','T','N',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrsm_310
    END MODULE ztrsm_10

    MODULE ztrsm_11

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','L','T','U',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrsm_311
    END MODULE ztrsm_11

    MODULE ztrsm_12

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','L','T','N',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrsm_312
    END MODULE ztrsm_12

    MODULE ztrsm_13

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','U','T','U',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrsm_313
    END MODULE ztrsm_13

    MODULE ztrsm_14

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','U','T','N',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrsm_314
    END MODULE ztrsm_14

    MODULE ztrsm_15

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','U','T','U',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrsm_315
    END MODULE ztrsm_15

    MODULE ztrsm_16

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','U','T','N',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrsm_316
    END MODULE ztrsm_16

    MODULE ztrsm_17

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','L','N','U',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrsm_317
    END MODULE ztrsm_17

    MODULE ztrsm_18

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','L','N','N',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrsm_318
    END MODULE ztrsm_18

    MODULE ztrsm_19

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','L','N','U',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrsm_319
    END MODULE ztrsm_19

    MODULE ztrsm_20

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','L','N','N',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrsm_320
    END MODULE ztrsm_20

    MODULE ztrsm_21

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','U','N','U',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrsm_321
    END MODULE ztrsm_21

    MODULE ztrsm_22

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','U','N','N',m,n,alpha,a,n,b,n)
      END SUBROUTINE ztrsm_322
    END MODULE ztrsm_22

    MODULE ztrsm_23

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','U','N','U',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrsm_323
    END MODULE ztrsm_23

    MODULE ztrsm_24

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','U','N','N',m,n,alpha,a,m,b,n)
      END SUBROUTINE ztrsm_324
    END MODULE ztrsm_24

    MODULE ztrsm_25

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','L','C','U',m,n,one,a,n,b,n)
      END SUBROUTINE ztrsm_325
    END MODULE ztrsm_25

    MODULE ztrsm_26

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','L','C','N',m,n,one,a,n,b,n)
      END SUBROUTINE ztrsm_326
    END MODULE ztrsm_26

    MODULE ztrsm_27

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','L','C','U',m,n,one,a,m,b,n)
      END SUBROUTINE ztrsm_327
    END MODULE ztrsm_27

    MODULE ztrsm_28

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','L','C','N',m,n,one,a,m,b,n)
      END SUBROUTINE ztrsm_328
    END MODULE ztrsm_28

    MODULE ztrsm_29

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','U','C','U',m,n,one,a,n,b,n)
      END SUBROUTINE ztrsm_329
    END MODULE ztrsm_29

    MODULE ztrsm_30

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','U','C','N',m,n,one,a,n,b,n)
      END SUBROUTINE ztrsm_330
    END MODULE ztrsm_30

    MODULE ztrsm_31

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','U','C','U',m,n,one,a,m,b,n)
      END SUBROUTINE ztrsm_331
    END MODULE ztrsm_31

    MODULE ztrsm_32

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','U','C','N',m,n,one,a,m,b,n)
      END SUBROUTINE ztrsm_332
    END MODULE ztrsm_32

    MODULE ztrsm_33

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','L','T','U',m,n,one,a,n,b,n)
      END SUBROUTINE ztrsm_333
    END MODULE ztrsm_33

    MODULE ztrsm_34

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','L','T','N',m,n,one,a,n,b,n)
      END SUBROUTINE ztrsm_334
    END MODULE ztrsm_34

    MODULE ztrsm_35

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','L','T','U',m,n,one,a,m,b,n)
      END SUBROUTINE ztrsm_335
    END MODULE ztrsm_35

    MODULE ztrsm_36

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','L','T','N',m,n,one,a,m,b,n)
      END SUBROUTINE ztrsm_336
    END MODULE ztrsm_36

    MODULE ztrsm_37

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','U','T','U',m,n,one,a,n,b,n)
      END SUBROUTINE ztrsm_337
    END MODULE ztrsm_37

    MODULE ztrsm_38

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','U','T','N',m,n,one,a,n,b,n)
      END SUBROUTINE ztrsm_338
    END MODULE ztrsm_38

    MODULE ztrsm_39

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','U','T','U',m,n,one,a,m,b,n)
      END SUBROUTINE ztrsm_339
    END MODULE ztrsm_39

    MODULE ztrsm_40

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','U','T','N',m,n,one,a,m,b,n)
      END SUBROUTINE ztrsm_340
    END MODULE ztrsm_40

    MODULE ztrsm_41

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','L','N','U',m,n,one,a,n,b,n)
      END SUBROUTINE ztrsm_341
    END MODULE ztrsm_41

    MODULE ztrsm_42

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','L','N','N',m,n,one,a,n,b,n)
      END SUBROUTINE ztrsm_342
    END MODULE ztrsm_42

    MODULE ztrsm_43

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','L','N','U',m,n,one,a,m,b,n)
      END SUBROUTINE ztrsm_343
    END MODULE ztrsm_43

    MODULE ztrsm_44

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','L','N','N',m,n,one,a,m,b,n)
      END SUBROUTINE ztrsm_344
    END MODULE ztrsm_44

    MODULE ztrsm_45

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','U','N','U',m,n,one,a,n,b,n)
      END SUBROUTINE ztrsm_345
    END MODULE ztrsm_45

    MODULE ztrsm_46

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('R','U','N','N',m,n,one,a,n,b,n)
      END SUBROUTINE ztrsm_346
    END MODULE ztrsm_46

    MODULE ztrsm_47

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','U','N','U',m,n,one,a,m,b,n)
      END SUBROUTINE ztrsm_347
    END MODULE ztrsm_47

    MODULE ztrsm_48

    CONTAINS
      SUBROUTINE ztrsm_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 ztrsm

        m = SIZE(b,1)
        n = SIZE(b,2)
        CALL ztrsm('L','U','N','N',m,n,one,a,m,b,n)
      END SUBROUTINE ztrsm_348
    END MODULE ztrsm_48