*** empty log message ***

17 years ago · 87d9ffc6dc
parent 1230fd0625
commit 87d9ffc6dc
1 changed files with 1 additions and 1 deletions
--- 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