Transpose a sparse matrix. Note that this is a pure transpose, there is
 no complex conjugate performed.
    
    Arguments
    
      
      
| Type | 
Intent | Optional | 
Attributes |  | Name |  | 
  
  
  
  
  
  | type(Matrix_ps), | 
  intent(in) | 
   | 
  
   | :: | 
  AMat | The matrix to transpose.  | 
  
  
  
  
  
  
  | type(Matrix_ps), | 
  intent(out) | 
   | 
  
   | :: | 
  TransMat | TransMat = A^T .  |