Backport fixes (#188) to 2.7.1

william-dawson · Feb 29, 2024 · 95f6566 · 95f6566
1 parent 1bc7159
commit 95f6566
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 7 deletions.
diff --git a/Source/C/TripletList_c.h b/Source/C/TripletList_c.h
@@ -8,7 +8,7 @@ void AppendToTripletList_r_wrp(int *ih_this, const int *index_column,
 void SetTripletAt_r_wrp(int *ih_this, const int *index, const int *index_column,
                         const int *index_row, const double *point_value);
 void GetTripletAt_r_wrp(const int *ih_this, const int *index, int *index_column,
-                        const int *index_row, double *point_value);
+                        int *index_row, double *point_value);
 void DestructTripletList_r_wrp(int *ih_this);
 void SortTripletList_r_wrp(const int *ih_this, const int *matrix_size,
                            int *h_sorted);

diff --git a/Source/Fortran/dense_includes/CheckMemoryPoolValidity.f90 b/Source/Fortran/dense_includes/CheckMemoryPoolValidity.f90
@@ -3,10 +3,12 @@
   IF (.NOT. ALLOCATED(this%pruned_list)) isvalid = .FALSE.
   IF (.NOT. ALLOCATED(this%value_array)) isvalid = .FALSE.
 
-  !! Check allocation size
-  IF (.NOT. SIZE(this%value_array,dim=2) .EQ. rows) THEN
-     isvalid = .FALSE.
-  END IF
-  IF (.NOT. SIZE(this%value_array,dim=1) .EQ. columns) THEN
-     isvalid = .FALSE.
+  IF (isvalid) THEN
+     !! Check allocation size
+     IF (.NOT. SIZE(this%value_array,dim=2) .EQ. rows) THEN
+        isvalid = .FALSE.
+     END IF
+     IF (.NOT. SIZE(this%value_array,dim=1) .EQ. columns) THEN
+        isvalid = .FALSE.
+     END IF
   END IF