Skip to content
Snippets Groups Projects
Commit 62c68d97 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

clearer and CLA compiles without LAPACK if needed

parent 35f9e135
No related branches found
No related tags found
No related merge requests found
......@@ -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
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment