diff --git a/src/DLRA_mod.F90 b/src/DLRA_mod.F90
new file mode 100644
index 0000000000000000000000000000000000000000..be92594942799105c8d9a366467b633a0d25114d
--- /dev/null
+++ b/src/DLRA_mod.F90
@@ -0,0 +1,20 @@
+module DLRA
+    USE prec_const
+    USE lapack
+    implicit none
+
+    PUBLIC :: filter_singular_value_ky_pj
+
+    CONTAINS
+
+    SUBROUTINE filter_singular_value_ky_pj(nsv,array_ky_pj)
+        IMPLICIT NONE
+        ! ARGUMENTS
+        INTEGER, INTENT(IN) :: nsv                                ! number of singular values to keep
+        COMPLEX(xp), DIMENSION(:,:), INTENT(INOUT) :: array_ky_pj ! Array to filter
+        !
+
+        ! Singular value decomposition
+        ! CALL SVD(array_ky_pj,singular_values)
+    END SUBROUTINE
+end module DLRA
\ No newline at end of file