diff --git a/Source/Fortran/PMatrixMemoryPoolModule.F90 b/Source/Fortran/PMatrixMemoryPoolModule.F90
index 50066cf0..7601395b 100644
--- 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
index f04316ed..c906cd9e 100644
--- 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