fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 11:52:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2007-09-28 17:00:10 +00:00
parent 1230fd0625
commit 87d9ffc6dc
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/psb_zcsrp.f90
+1 -1
View File
@@ -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