diff --git a/base/serial/psb_zcsrp.f90 b/base/serial/psb_zcsrp.f90
index 258ee096..94e0180f 100644
--- a/base/serial/psb_zcsrp.f90
+++ b/base/serial/psb_zcsrp.f90
@@ -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