2021-03-09 01:16:23 +01:00
|
|
|
#!/bin/bash
|
|
|
|
# Script to build the final qmckl.h file
|
|
|
|
# :PROPERTIES:
|
2021-03-10 12:58:38 +01:00
|
|
|
# :header-args:bash: :tangle build_qmckl_h.sh :noweb yes :shebang #!/bin/bash :comments org
|
2021-03-09 01:16:23 +01:00
|
|
|
# :END:
|
|
|
|
|
|
|
|
|
|
|
|
# This file was created by tools/Building.org
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# All the produced header files are concatenated in the =qmckl.h=
|
|
|
|
# file, located in the include directory. The =*_private.h= files
|
|
|
|
# are excluded.
|
|
|
|
|
|
|
|
# Put =.h= files in the correct order:
|
|
|
|
|
|
|
|
|
|
|
|
HEADERS=""
|
|
|
|
for i in $(cat table_of_contents)
|
|
|
|
do
|
2021-03-30 14:51:23 +02:00
|
|
|
HEADERS+="${i%.org}_type.h "
|
|
|
|
done
|
|
|
|
|
|
|
|
for i in $(cat table_of_contents)
|
|
|
|
do
|
|
|
|
HEADERS+="${i%.org}_func.h "
|
2021-03-09 01:16:23 +01:00
|
|
|
done
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Generate C header file
|
|
|
|
|
|
|
|
|
|
|
|
OUTPUT="../include/qmckl.h"
|
|
|
|
|
|
|
|
cat << EOF > ${OUTPUT}
|
|
|
|
/*
|
|
|
|
* ------------------------------------------
|
|
|
|
* QMCkl - Quantum Monte Carlo kernel library
|
|
|
|
* ------------------------------------------
|
|
|
|
*
|
|
|
|
* Documentation : https://trex-coe.github.io/qmckl
|
|
|
|
* Issues : https://github.com/trex-coe/qmckl/issues
|
|
|
|
*
|
|
|
|
* BSD 3-Clause License
|
|
|
|
*
|
|
|
|
* Copyright (c) 2020, TREX Center of Excellence
|
|
|
|
* All rights reserved.
|
|
|
|
*
|
|
|
|
* Redistribution and use in source and binary forms, with or without
|
|
|
|
* modification, are permitted provided that the following conditions are met:
|
|
|
|
*
|
|
|
|
* 1. Redistributions of source code must retain the above copyright notice, this
|
|
|
|
* list of conditions and the following disclaimer.
|
|
|
|
*
|
|
|
|
* 2. Redistributions in binary form must reproduce the above copyright notice,
|
|
|
|
* this list of conditions and the following disclaimer in the documentation
|
|
|
|
* and/or other materials provided with the distribution.
|
|
|
|
*
|
|
|
|
* 3. Neither the name of the copyright holder nor the names of its
|
|
|
|
* contributors may be used to endorse or promote products derived from
|
|
|
|
* this software without specific prior written permission.
|
|
|
|
*
|
|
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
|
|
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
|
|
* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
|
|
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
|
|
|
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
|
|
|
* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
|
|
|
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
|
|
|
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
*
|
|
|
|
*
|
2021-03-19 13:47:50 +01:00
|
|
|
*
|
2021-03-09 01:16:23 +01:00
|
|
|
*
|
|
|
|
*/
|
|
|
|
|
2021-04-21 12:44:03 +02:00
|
|
|
#ifndef __QMCKL_H__
|
|
|
|
#define __QMCKL_H__
|
2021-03-09 01:16:23 +01:00
|
|
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <stdint.h>
|
2021-04-21 01:56:47 +02:00
|
|
|
#include <stdbool.h>
|
2021-03-09 01:16:23 +01:00
|
|
|
EOF
|
|
|
|
|
|
|
|
for i in ${HEADERS}
|
|
|
|
do
|
|
|
|
if [[ -f $i ]] ; then
|
|
|
|
cat $i >> ${OUTPUT}
|
|
|
|
fi
|
|
|
|
done
|
|
|
|
|
|
|
|
cat << EOF >> ${OUTPUT}
|
|
|
|
#endif
|
|
|
|
EOF
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Generate Fortran interface file from all =qmckl_*_fh.f90= files
|
|
|
|
|
|
|
|
|
2021-03-30 14:51:23 +02:00
|
|
|
HEADERS_TYPE="qmckl_*_fh_type.f90"
|
|
|
|
HEADERS="qmckl_*_fh_func.f90"
|
2021-03-09 01:16:23 +01:00
|
|
|
|
2021-04-21 12:44:03 +02:00
|
|
|
OUTPUT="../share/qmckl/fortran/qmckl_f.f90"
|
2021-03-09 01:16:23 +01:00
|
|
|
cat << EOF > ${OUTPUT}
|
|
|
|
!
|
|
|
|
! ------------------------------------------
|
|
|
|
! QMCkl - Quantum Monte Carlo kernel library
|
|
|
|
! ------------------------------------------
|
|
|
|
!
|
|
|
|
! Documentation : https://trex-coe.github.io/qmckl
|
|
|
|
! Issues : https://github.com/trex-coe/qmckl/issues
|
|
|
|
!
|
|
|
|
! BSD 3-Clause License
|
|
|
|
!
|
|
|
|
! Copyright (c) 2020, TREX Center of Excellence
|
|
|
|
! All rights reserved.
|
|
|
|
!
|
|
|
|
! Redistribution and use in source and binary forms, with or without
|
|
|
|
! modification, are permitted provided that the following conditions are met:
|
|
|
|
!
|
|
|
|
! 1. Redistributions of source code must retain the above copyright notice, this
|
|
|
|
! list of conditions and the following disclaimer.
|
|
|
|
!
|
|
|
|
! 2. Redistributions in binary form must reproduce the above copyright notice,
|
|
|
|
! this list of conditions and the following disclaimer in the documentation
|
|
|
|
! and/or other materials provided with the distribution.
|
|
|
|
!
|
|
|
|
! 3. Neither the name of the copyright holder nor the names of its
|
|
|
|
! contributors may be used to endorse or promote products derived from
|
|
|
|
! this software without specific prior written permission.
|
|
|
|
!
|
|
|
|
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
|
|
! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
|
|
! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
|
|
! DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
|
|
|
|
! FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
|
|
! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
|
|
|
! SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
|
|
|
! CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
|
|
|
! OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
|
|
|
! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
!
|
|
|
|
!
|
2021-03-19 13:47:50 +01:00
|
|
|
!
|
2021-03-09 01:16:23 +01:00
|
|
|
!
|
|
|
|
!
|
|
|
|
module qmckl
|
|
|
|
use, intrinsic :: iso_c_binding
|
|
|
|
EOF
|
|
|
|
|
2021-03-30 14:51:23 +02:00
|
|
|
for i in ${HEADERS_TYPE}
|
|
|
|
do
|
|
|
|
cat $i >> ${OUTPUT}
|
|
|
|
done
|
|
|
|
|
2021-03-09 01:16:23 +01:00
|
|
|
for i in ${HEADERS}
|
|
|
|
do
|
|
|
|
cat $i >> ${OUTPUT}
|
|
|
|
done
|
|
|
|
|
|
|
|
cat << EOF >> ${OUTPUT}
|
|
|
|
end module qmckl
|
|
|
|
EOF
|