Fixed stupid bug on allocate using a field of an OUT dummy arg.

18 years ago · 978105d787
parent 233634e8c7
commit 978105d787
2 changed files with 2 additions and 2 deletions
--- a/base/serial/psb_dspcnv.f90
+++ b/base/serial/psb_dspcnv.f90
@ -83,7 +83,7 @@ subroutine psb_dspcnv2(a, b,info,afmt,upd,dupl)
  check_ = 'N'
  trans_ = 'N'
  unitd_ = 'U'
-  allocate(work(max(size(a%ia1),size(a%ia2))+max(a%m,b%m)+1000),stat=info)
+  allocate(work(max(size(a%ia1),size(a%ia2))+a%m+1000),stat=info)

  if (info /= 0) then
    info=2040
--- a/base/serial/psb_zspcnv.f90
+++ b/base/serial/psb_zspcnv.f90
@ -83,7 +83,7 @@ subroutine psb_zspcnv2(a, b,info,afmt,upd,dupl)
  check_ = 'N'
  trans_ = 'N'
  unitd_ = 'U'
-  allocate(work(max(size(a%ia1),size(a%ia2))+max(a%m,b%m)+1000),stat=info)
+  allocate(work(max(size(a%ia1),size(a%ia2))+a%m+1000),stat=info)

  if (info /= 0) then
    info=2040