diff --git a/code/math.f90 b/code/math.f90 index 639731204..56d43c04d 100644 --- a/code/math.f90 +++ b/code/math.f90 @@ -843,7 +843,7 @@ pure function math_transpose3x3(A) !************************************************************************** -! Gauss elimination to invert 6x6 matrix +! Gauss elimination to invert matrix of arbitrary dimension !************************************************************************** PURE SUBROUTINE math_invert(dimen,A, InvA, AnzNegEW, error)