From daa77a09e3990e6900ba302cf5364976d016d97f Mon Sep 17 00:00:00 2001 From: William Dawson Date: Thu, 20 Jun 2024 13:52:05 +0900 Subject: [PATCH] lint --- Source/CPlusPlus/PSMatrix.cc | 4 +--- Source/Wrapper/PSMatrixAlgebraModule_wrp.F90 | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/Source/CPlusPlus/PSMatrix.cc b/Source/CPlusPlus/PSMatrix.cc index 7fb74575..473dde8e 100644 --- a/Source/CPlusPlus/PSMatrix.cc +++ b/Source/CPlusPlus/PSMatrix.cc @@ -243,9 +243,7 @@ double Matrix_ps::MeasureAsymmetry() const { } ////////////////////////////////////////////////////////////////////////////// -void Matrix_ps::Symmetrize() { - SymmetrizeMatrix_ps_wrp(ih_this); -} +void Matrix_ps::Symmetrize() { SymmetrizeMatrix_ps_wrp(ih_this); } ////////////////////////////////////////////////////////////////////////////// Matrix_ps::~Matrix_ps() { DestructMatrix_ps_wrp(ih_this); } diff --git a/Source/Wrapper/PSMatrixAlgebraModule_wrp.F90 b/Source/Wrapper/PSMatrixAlgebraModule_wrp.F90 index bad51c8f..2c3bd386 100644 --- a/Source/Wrapper/PSMatrixAlgebraModule_wrp.F90 +++ b/Source/Wrapper/PSMatrixAlgebraModule_wrp.F90 @@ -162,7 +162,7 @@ END FUNCTION MeasureAsymmetry_ps_wrp !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !> Symmetrize a matrix SUBROUTINE SymmetrizeMatrix_ps_wrp(ih_matA) & - & BIND(c,NAME="SymmetrizeMatrix_ps_wrp") + & BIND(c,NAME="SymmetrizeMatrix_ps_wrp") INTEGER(KIND=c_int), INTENT(INOUT) :: ih_matA(SIZE_wrp) TYPE(Matrix_ps_wrp) :: h_matA