lint

william-dawson · Apr 7, 2023 · 72f621f · 72f621f
1 parent 768569a
commit 72f621f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Source/Fortran/PMatrixMemoryPoolModule.F90 b/Source/Fortran/PMatrixMemoryPoolModule.F90
@@ -22,7 +22,7 @@ MODULE PMatrixMemoryPoolModule
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   INTERFACE ConstructMatrixMemoryPool
      MODULE PROCEDURE ConstructMatrixMemoryPool_p
-  END INTERFACE
+  END INTERFACE ConstructMatrixMemoryPool
   INTERFACE DestructMatrixMemoryPool
      MODULE PROCEDURE DestructMatrixMemoryPool_p
   END INTERFACE DestructMatrixMemoryPool

diff --git a/Source/Wrapper/SMatrixModule_wrp.F90 b/Source/Wrapper/SMatrixModule_wrp.F90
@@ -84,7 +84,7 @@ SUBROUTINE ConstructMatrixFromTripletList_lsr_wrp(ih_this, &
 
     h_triplet_list = TRANSFER(ih_triplet_list,h_triplet_list)
     ALLOCATE(h_this%DATA)
-    CALL ConstructMatrixFromTripletList(h_this%data, h_triplet_list%DATA, &
+    CALL ConstructMatrixFromTripletList(h_this%DATA, h_triplet_list%DATA, &
          & rows, columns)
     ih_this = TRANSFER(h_this,ih_this)
   END SUBROUTINE ConstructMatrixFromTripletList_lsr_wrp