2021-03-05 03:45:30 +01:00
|
|
|
|
2020-11-05 15:34:58 +01:00
|
|
|
** =qmckl.h= header file
|
2020-10-16 13:58:05 +02:00
|
|
|
|
2021-03-05 03:45:30 +01:00
|
|
|
The =qmckl.h= header file has to be included in <<<C>>> codes when
|
|
|
|
QMCkl functions are used:
|
2021-03-07 00:58:17 +01:00
|
|
|
|
2021-03-05 03:45:30 +01:00
|
|
|
#+BEGIN_SRC C :tangle none
|
|
|
|
#include "qmckl.h"
|
|
|
|
#+END_SRC f90
|
|
|
|
|
2020-10-22 01:24:14 +02:00
|
|
|
|
2021-03-05 03:45:30 +01:00
|
|
|
In <<<Fortran>>> programs, the =qmckl_f.f90= interface file should be
|
|
|
|
included in the source code using the library, and the Fortran codes
|
|
|
|
should use the ~qmckl~ module as
|
2021-03-07 00:58:17 +01:00
|
|
|
|
2021-03-05 03:45:30 +01:00
|
|
|
#+BEGIN_SRC f90 :tangle none
|
|
|
|
use qmckl
|
|
|
|
#+END_SRC f90
|
2020-10-16 13:58:05 +02:00
|
|
|
|
2020-11-05 15:34:58 +01:00
|
|
|
*** Top of header files :noexport:
|
2020-11-05 15:27:25 +01:00
|
|
|
|
2021-03-05 03:45:30 +01:00
|
|
|
#+BEGIN_SRC C :tangle qmckl.h :noweb yes
|
2020-10-16 13:58:05 +02:00
|
|
|
#ifndef QMCKL_H
|
|
|
|
#define QMCKL_H
|
2020-10-22 00:50:07 +02:00
|
|
|
#include <stdlib.h>
|
|
|
|
#include <stdint.h>
|
2021-03-05 03:45:30 +01:00
|
|
|
|
|
|
|
<<type-exit-code>>
|
|
|
|
|
2020-11-05 15:34:58 +01:00
|
|
|
#+END_SRC
|
2020-10-16 13:58:05 +02:00
|
|
|
|
2020-11-05 15:34:58 +01:00
|
|
|
#+BEGIN_SRC f90 :tangle qmckl_f.f90
|
2020-11-05 12:57:39 +01:00
|
|
|
module qmckl
|
|
|
|
use, intrinsic :: iso_c_binding
|
2020-11-05 15:34:58 +01:00
|
|
|
#+END_SRC
|
2020-11-05 12:57:39 +01:00
|
|
|
|
2020-11-05 15:34:58 +01:00
|
|
|
The bottoms of the files are located in the [[qmckl_footer.org]] file.
|
2020-11-05 15:27:25 +01:00
|
|
|
|