Fixed stupid syntax error.

18 years ago · a59f22b619
parent 93c1bd2787
commit a59f22b619
2 changed files with 2 additions and 2 deletions
--- a/psb_dprc_aply.f90
+++ b/psb_dprc_aply.f90
@ -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      
--- a/psb_zprc_aply.f90
+++ b/psb_zprc_aply.f90
@ -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