mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-21 11:03:29 +01:00
This commit is contained in:
parent
5aaf9b31ba
commit
74daac0dfb
19
configure
vendored
19
configure
vendored
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user