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