From d4c357e8023106c114cf46c4b67e6cae7946fdcd Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Sat, 1 Apr 2023 12:37:26 +0200
Subject: [PATCH] module for DLRA studies

---
 src/DLRA_mod.F90 | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 src/DLRA_mod.F90

diff --git a/src/DLRA_mod.F90 b/src/DLRA_mod.F90
new file mode 100644
index 00000000..be925949
--- /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
-- 
GitLab