From 62c68d9741b554a946d6318a73c9fa92f40cfef5 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Mon, 8 May 2023 11:41:57 +0200
Subject: [PATCH] clearer and CLA compiles without LAPACK if needed
---
local/dirs.inc | 10 +++++++---
src/CLA_mod.F90 | 4 ++++
2 files changed, 11 insertions(+), 3 deletions(-)
diff --git a/local/dirs.inc b/local/dirs.inc
index 1859ed59..09d556ed 100644
--- a/local/dirs.inc
+++ b/local/dirs.inc
@@ -6,9 +6,13 @@ OBJDIR = $(PREFIX)/obj
LIBDIR = $(PREFIX)/lib
MODDIR = $(PREFIX)/mod
-HDF5_LIB = /usr/local/hdf5-1.8.22/lib
FMDIR = $(HOME)/lib/FM
+FUTILS_DIR = $(HOME)/lib/futils/src
+# For local install :
+HDF5_LIB = /usr/local/hdf5-1.8.22/lib
FFTW3DIR = $(HOME)/lib/fftw-3.3.10
+# For marconi:
+# -comment HDF5_LIB and FFTW3DIR
+# -uncomment the following lines
#FFTW3DIR = $(FFTW_HOME)#for Marconi
-FUTILS_DIR = $(HOME)/lib/futils/src
-LAPACKDIR = $(HOME)/lib/lapack-3.10.0
\ No newline at end of file
+#LAPACKDIR = $(HOME)/lib/lapack-3.10.0
\ No newline at end of file
diff --git a/src/CLA_mod.F90 b/src/CLA_mod.F90
index 0729a947..68532d53 100644
--- a/src/CLA_mod.F90
+++ b/src/CLA_mod.F90
@@ -75,10 +75,14 @@ CONTAINS
! local variables
INTEGER :: info
invU = U
+#ifdef LAPACKDIR
#ifdef SINGLE_PRECISION
CALL STRTRI('U','N',N,invU,N,info)
#else
CALL DTRTRI('U','N',N,invU,N,info)
+#endif
+#else
+ ERROR STOP "Cannot use monomial truncation without LAPACK"
#endif
IF (info .LT. 0) THEN
print*, info
--
GitLab