test_svd is called only if we compile in test_svd

src/stepon.F90

@@ -8,7 +8,7 @@ SUBROUTINE stepon
    use mpi,                   ONLY: MPI_COMM_WORLD
    USE time_integration,      ONLY: ntimelevel
    USE prec_const,            ONLY: xp
-   USE DLRA,                  ONLY: test_SVD
+   USE DLRA,                  ONLY: test_svd
    IMPLICIT NONE
 
    INTEGER :: num_step, ierr
@@ -57,7 +57,9 @@ SUBROUTINE stepon
 
       !! TEST SINGULAR VALUE DECOMPOSITION
       ! CALL filter_singular_value_ky_pj(nsv,moments)
-      ! CALL test_SVD
+#ifdef TEST_SVD
+      CALL test_svd
+#endif
       
       IF( nlend ) EXIT ! exit do loop