fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed stupid syntax error.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-05-17 12:38:20 +00:00
parent 93c1bd2787
commit a59f22b619
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
psb_dprc_aply.f90
+1 -1
View File
@@ -72,7 +72,7 @@ subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans, work)
work_ => work
else
iwsz = max(1,4*psb_cd_get_local_cols(desc_data))
allocate(work_(iwsz)),stat=info)
allocate(work_(iwsz),stat=info)
if (info /= 0) then
call psb_errpush(4010,name,a_err='Allocate')
goto 9999
psb_zprc_aply.f90
+1 -1
View File
@@ -72,7 +72,7 @@ subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans, work)
work_ => work
else
iwsz = max(1,4*psb_cd_get_local_cols(desc_data))
allocate(work_(iwsz)),stat=info)
allocate(work_(iwsz),stat=info)
if (info /= 0) then
call psb_errpush(4010,name,a_err='Allocate')
goto 9999