@ -77,7 +77,7 @@ subroutine psb_zcsrp(trans,iperm,a, info)
integer, allocatable :: ipt(:)
integer :: i,np,me, n_col,l_dcsdp, ipsize
integer :: dectype
real(kind(1.d0)), allocatable :: work_dcsdp(:)
complex(kind(1.d0)), allocatable :: work_dcsdp(:)
integer :: ictxt,n_row,err_act, int_err(5)
character(len=20) :: name, char_err