From 87d9ffc6dc19c09007995ceceac34ece3d713396 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 28 Sep 2007 17:00:10 +0000 Subject: [PATCH] *** empty log message *** --- base/serial/psb_zcsrp.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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