Check that an input value is correct

ElmerCSC · Oct 14, 2024 · bb9ff57 · bb9ff57
1 parent 89b896c
commit bb9ff57
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/fem/src/DefUtils.F90 b/fem/src/DefUtils.F90
@@ -919,6 +919,9 @@ SUBROUTINE GetScalarLocalEigenmode( x,name,UElement,USolver,NoEigen,ComplexPart
      END IF
      n = MIN( n, SIZE(x) )
 
+     IF (SIZE(Variable % EigenVectors,1) < NoEigen) THEN
+       CALL Fatal('GetScalarLocalEigenmode', 'Less eigenfunctions available than requested')
+     END IF
      Values => Variable % EigenVectors( NoEigen, :)
 
      IF ( ASSOCIATED( Variable % Perm ) ) THEN
@@ -985,6 +988,9 @@ SUBROUTINE GetVectorLocalEigenmode( x,name,UElement,USolver,NoEigen,ComplexPart
      END IF
      n = MIN( n, SIZE(x) )
 
+     IF (SIZE(Variable % EigenVectors,1) < NoEigen) THEN
+       CALL Fatal('GetVectorLocalEigenmode', 'Less eigenfunctions available than requested')
+     END IF
      Values => Variable % EigenVectors( NoEigen, : )
 
      DO i=1,Variable % DOFs

diff --git a/fem/src/SOLVER.KEYWORDS b/fem/src/SOLVER.KEYWORDS
@@ -1288,7 +1288,6 @@ Solver:Real:        'Curvature Diffusion'
 Solver:Real:        'Desired Heating Power'
 Solver:Real:        'Dot Product Tolerance'
 Solver:Real:        'Drilling Stabilization Parameter'
-Solver:Real:        'Eigen  System Convergence Tolerance'
 Solver:Real:        'Eigen System Convergence Tolerance'
 Solver:Real:        'Eigen System Shift'
 Solver:Real:        'Eigen System Shifting Constant'