!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=The transpose of a matrix
slib_parms=1\
,the input matrix
slib_author=Gang Xiao
slib_out=the transpose matrix (empty if error)
slib_example=4,2,5;1,0,-3
slib_require=pari
!exit

:proc
slib_mat=!declosing $wims_read_parm
!if $slib_mat=$empty
 slib_out=
!else
 slib_out=!exec pari print([$slib_mat]~)
!endif

