Fix trexio compilation bug
continuous-integration/drone/push Build is failing Details

This commit is contained in:
Anthony Scemama 2022-11-30 11:41:18 +01:00
parent 5aaf9b31ba
commit 74daac0dfb
2 changed files with 19 additions and 51 deletions

19
configure vendored
View File

@ -303,6 +303,25 @@ fi
ZEROMQ=$(find_lib -lzmq)
if [[ ${ZEROMQ} = $(not_found) ]] ; then
MAKE=$(find_exe make)
if [[ ${MAKE} = $(not_found) ]] ; then
error "make is not installed."
fail
fi
M4=$(find_exe autoreconf)
if [[ ${M4} = $(not_found) ]] ; then
error "autoreconf is not installed."
fail
fi
M4=$(find_exe m4)
if [[ ${M4} = $(not_found) ]] ; then
error "m4 preprocesssor is not installed."
fail
fi
error "ZeroMQ (zeromq) is not installed."
fail
fi

View File

@ -1,51 +0,0 @@
use trexio
BEGIN_PROVIDER [ logical, use_trexio ]
implicit none
BEGIN_DOC
! Returns the content of the QP_USE_TREXIO variable
END_DOC
character(32) :: buffer
call getenv('QP_USE_TREXIO', buffer)
if (trim(buffer) == '0') then
print *, 'Using EZFIO storage'
use_trexio = .False.
else
print *, 'Using TREXIO storage'
use_trexio = .True.
endif
END_PROVIDER
BEGIN_PROVIDER [ character*(1024), trexio_filename ]
implicit none
BEGIN_DOC
! Name of the TREXIO file.
END_DOC
trexio_filename = trim(ezfio_work_dir)//'/trexio.h5'
END_PROVIDER
BEGIN_PROVIDER [ integer(trexio_back_end_t), trexio_backend ]
implicit none
BEGIN_DOC
! Name of the TREXIO file.
END_DOC
trexio_backend = TREXIO_HDF5
END_PROVIDER
BEGIN_PROVIDER [ integer(trexio_t), trexio_file ]
implicit none
BEGIN_DOC
! Name of the TREXIO file.
END_DOC
integer (trexio_exit_code) :: rc
trexio_file = 0_trexio_t
if (use_trexio) then
trexio_file = trexio_open(trexio_filename, 'u', trexio_backend, rc)
call trexio_assert(rc, TREXIO_SUCCESS)
endif
END_PROVIDER