From 72f621f51a954a92217dc7ee7f7ce35a49fa8109 Mon Sep 17 00:00:00 2001 From: William Dawson Date: Fri, 7 Apr 2023 12:42:48 +0900 Subject: [PATCH] lint --- Source/Fortran/PMatrixMemoryPoolModule.F90 | 2 +- Source/Wrapper/SMatrixModule_wrp.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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