Corrected C interfaces for interrogating build-state

cbind/base/psb_c_psblas_cbind_mod.f90

@@ -965,7 +965,7 @@ contains
 
   function psb_c_cis_matupd(ah,cdh) bind(c) result(res)
     implicit none
-    logical :: res
+    logical(c_bool) :: res
 
     type(psb_c_cspmat)   :: ah
     type(psb_c_descriptor) :: cdh
@@ -985,12 +985,12 @@ contains
       return
     end if
 
-    res = psb_is_matupd(ap,descp,info)
+    res = ap%is_upd()
   end function
 
   function psb_c_cis_matasb(ah,cdh) bind(c) result(res)
     implicit none
-    logical :: res
+    logical(c_bool) :: res
 
     type(psb_c_cspmat)   :: ah
     type(psb_c_descriptor) :: cdh
@@ -1010,12 +1010,12 @@ contains
       return
     end if
 
-    res = psb_is_matasb(ap,descp,info)
+    res = ap%is_asb()
   end function
 
   function psb_c_cis_matbld(ah,cdh) bind(c) result(res)
     implicit none
-    logical :: res
+    logical(c_bool) :: res
 
     type(psb_c_cspmat)   :: ah
     type(psb_c_descriptor) :: cdh
@@ -1035,7 +1035,7 @@ contains
       return
     end if
 
-    res = psb_is_matbld(ap,descp,info)
+    res = ap%is_bld()
   end function
 
   function psb_c_cset_matupd(ah,cdh) bind(c) result(res)

cbind/base/psb_d_psblas_cbind_mod.f90

@@ -1066,7 +1066,7 @@ contains
 
   function psb_c_dis_matupd(ah,cdh) bind(c) result(res)
     implicit none
-    logical :: res
+    logical(c_bool) :: res
 
     type(psb_c_dspmat)   :: ah
     type(psb_c_descriptor) :: cdh
@@ -1086,12 +1086,12 @@ contains
       return
     end if
 
-    res = psb_is_matupd(ap,descp,info)
+    res = ap%is_upd()
   end function
 
   function psb_c_dis_matasb(ah,cdh) bind(c) result(res)
     implicit none
-    logical :: res
+    logical(c_bool) :: res
 
     type(psb_c_dspmat)   :: ah
     type(psb_c_descriptor) :: cdh
@@ -1111,12 +1111,12 @@ contains
       return
     end if
 
-    res = psb_is_matasb(ap,descp,info)
+    res = ap%is_asb()
   end function
 
   function psb_c_dis_matbld(ah,cdh) bind(c) result(res)
     implicit none
-    logical :: res
+    logical(c_bool) :: res
 
     type(psb_c_dspmat)   :: ah
     type(psb_c_descriptor) :: cdh
@@ -1136,7 +1136,7 @@ contains
       return
     end if
 
-    res = psb_is_matbld(ap,descp,info)
+    res = ap%is_bld()
   end function
 
   function psb_c_dset_matupd(ah,cdh) bind(c) result(res)

cbind/base/psb_s_psblas_cbind_mod.f90

@@ -1066,7 +1066,7 @@ contains
 
   function psb_c_sis_matupd(ah,cdh) bind(c) result(res)
     implicit none
-    logical :: res
+    logical(c_bool) :: res
 
     type(psb_c_sspmat)   :: ah
     type(psb_c_descriptor) :: cdh
@@ -1086,12 +1086,12 @@ contains
       return
     end if
 
-    res = psb_is_matupd(ap,descp,info)
+    res = ap%is_upd()
   end function
 
   function psb_c_sis_matasb(ah,cdh) bind(c) result(res)
     implicit none
-    logical :: res
+    logical(c_bool) :: res
 
     type(psb_c_sspmat)   :: ah
     type(psb_c_descriptor) :: cdh
@@ -1111,12 +1111,12 @@ contains
       return
     end if
 
-    res = psb_is_matasb(ap,descp,info)
+    res = ap%is_asb()
   end function
 
   function psb_c_sis_matbld(ah,cdh) bind(c) result(res)
     implicit none
-    logical :: res
+    logical(c_bool) :: res
 
     type(psb_c_sspmat)   :: ah
     type(psb_c_descriptor) :: cdh
@@ -1136,7 +1136,7 @@ contains
       return
     end if
 
-    res = psb_is_matbld(ap,descp,info)
+    res = ap%is_bld()
   end function
 
   function psb_c_sset_matupd(ah,cdh) bind(c) result(res)

cbind/base/psb_z_psblas_cbind_mod.f90

@@ -965,7 +965,7 @@ contains
 
   function psb_c_zis_matupd(ah,cdh) bind(c) result(res)
     implicit none
-    logical :: res
+    logical(c_bool) :: res
 
     type(psb_c_zspmat)   :: ah
     type(psb_c_descriptor) :: cdh
@@ -985,12 +985,12 @@ contains
       return
     end if
 
-    res = psb_is_matupd(ap,descp,info)
+    res = ap%is_upd()
   end function
 
   function psb_c_zis_matasb(ah,cdh) bind(c) result(res)
     implicit none
-    logical :: res
+    logical(c_bool) :: res
 
     type(psb_c_zspmat)   :: ah
     type(psb_c_descriptor) :: cdh
@@ -1010,12 +1010,12 @@ contains
       return
     end if
 
-    res = psb_is_matasb(ap,descp,info)
+    res = ap%is_asb()
   end function
 
   function psb_c_zis_matbld(ah,cdh) bind(c) result(res)
     implicit none
-    logical :: res
+    logical(c_bool) :: res
 
     type(psb_c_zspmat)   :: ah
     type(psb_c_descriptor) :: cdh
@@ -1035,7 +1035,7 @@ contains
       return
     end if
 
-    res = psb_is_matbld(ap,descp,info)
+    res = ap%is_bld()
   end function
 
   function psb_c_zset_matupd(ah,cdh) bind(c) result(res)