text: //
  //  ctrsm.cpp
  //  Linear Algebra Template Library
  //
  //  Created by Rodney James on 1/1/13.
  //  Copyright (c) 2013 University of Colorado Denver. All rights reserved.
  //
  
  #include "blas.h"
  #include "trsm.h"
  
  using LATL::TRSM;
  
  int ctrsm_(char& side, char& uplo, char& trans, char& diag, int &m, int &n, complex<float> &alpha, complex<float> *A, int &ldA, complex<float> *B, int &ldB)
  {
     int info=-TRSM<float>(side,uplo,trans,diag,m,n,alpha,A,ldA,B,ldB);
     if(info>0)
        xerbla_("CTRSM ",info);
     return 0;
  }
  