Fix sizeof

4 years ago · 3c6dcddfea
parent abf486077c
commit 3c6dcddfea
4 changed files with 8 additions and 28 deletions
--- a/prec/psb_c_prec_type.f90
+++ b/prec/psb_c_prec_type.f90
@ -401,12 +401,7 @@ contains
    end if

    val = 0    
-    val = val + psb_sizeof_int
-    if (allocated(prec%precv)) then 
-      do i=1, size(prec%precv)
-        val = val + prec%precv(i)%sizeof()
-      end do
-    end if
+    val = val + prec%prec%sizeof()
    if (global_) then
      ctxt = prec%ctxt
      call psb_sum(ctxt,val)
--- a/prec/psb_d_prec_type.f90
+++ b/prec/psb_d_prec_type.f90
@ -401,12 +401,7 @@ contains
    end if

    val = 0    
-    val = val + psb_sizeof_int
-    if (allocated(prec%precv)) then 
-      do i=1, size(prec%precv)
-        val = val + prec%precv(i)%sizeof()
-      end do
-    end if
+    val = val + prec%prec%sizeof()
    if (global_) then
      ctxt = prec%ctxt
      call psb_sum(ctxt,val)
--- a/prec/psb_s_prec_type.f90
+++ b/prec/psb_s_prec_type.f90
@ -401,12 +401,7 @@ contains
    end if

    val = 0    
-    val = val + psb_sizeof_int
-    if (allocated(prec%precv)) then 
-      do i=1, size(prec%precv)
-        val = val + prec%precv(i)%sizeof()
-      end do
-    end if
+    val = val + prec%prec%sizeof()
    if (global_) then
      ctxt = prec%ctxt
      call psb_sum(ctxt,val)
--- a/prec/psb_z_prec_type.f90
+++ b/prec/psb_z_prec_type.f90
@ -401,12 +401,7 @@ contains
    end if

    val = 0    
-    val = val + psb_sizeof_int
-    if (allocated(prec%precv)) then 
-      do i=1, size(prec%precv)
-        val = val + prec%precv(i)%sizeof()
-      end do
-    end if
+    val = val + prec%prec%sizeof()
    if (global_) then
      ctxt = prec%ctxt
      call psb_sum(ctxt,val)