TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-07-22 10:47:43 +02:00
Code Issues Projects Releases Wiki Activity

Improved modern fortran compliance (#147)

Browse Source 
* Improved modern fortran compliance

---------

Co-authored-by: Evgeny Posenitskiy <45995097+q-posev@users.noreply.github.com>
This commit is contained in:
Anthony Scemama 2024-05-13 17:05:22 +02:00 committed by GitHub
parent 5cdc351d56
commit 9e262bada9
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 5 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
src/templates_front/templator_front.org
View File

@ -343,7 +343,8 @@ typedef int32_t trexio_exit_code;
#+begin_src f90 :tangle prefix_fortran.f90 #+begin_src f90 :tangle prefix_fortran.f90
module trexio module trexio
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding, only : c_int32_t, c_int64_t, c_double, c_size_t, c_bool
use, intrinsic :: iso_c_binding, only : c_float, c_char, c_new_line, c_null_char
implicit none implicit none
integer, parameter :: trexio_exit_code = c_int32_t integer, parameter :: trexio_exit_code = c_int32_t
@ -820,7 +821,6 @@ trexio_string_of_error_f (const trexio_exit_code error, char result[<<MAX_STRING
#+begin_src f90 :tangle prefix_fortran.f90 :noexport :noweb yes #+begin_src f90 :tangle prefix_fortran.f90 :noexport :noweb yes
interface interface
subroutine trexio_string_of_error (error, string) bind(C, name='trexio_string_of_error_f') subroutine trexio_string_of_error (error, string) bind(C, name='trexio_string_of_error_f')
use, intrinsic :: iso_c_binding
import import
integer(trexio_exit_code), intent(in), value :: error integer(trexio_exit_code), intent(in), value :: error
character(kind=c_char), intent(out) :: string(<<MAX_STRING_LENGTH()>>) character(kind=c_char), intent(out) :: string(<<MAX_STRING_LENGTH()>>)
@ -1488,8 +1488,8 @@ trexio_open(const char* file_name, const char mode,
#+begin_src f90 :tangle prefix_fortran.f90 #+begin_src f90 :tangle prefix_fortran.f90
interface interface
integer(trexio_t) function trexio_open_c (filename, mode, back_end, rc_open) bind(C, name="trexio_open") integer(trexio_t) function trexio_open_c (filename, mode, back_end, rc_open) &
use, intrinsic :: iso_c_binding bind(C, name="trexio_open")
import import
character(kind=c_char), dimension(*) :: filename character(kind=c_char), dimension(*) :: filename
character(kind=c_char), intent(in), value :: mode character(kind=c_char), intent(in), value :: mode
@ -1566,7 +1566,6 @@ trexio_exit_code trexio_set_one_based(trexio_t* file)
#+begin_src f90 :tangle prefix_fortran.f90 #+begin_src f90 :tangle prefix_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_set_one_based(trex_file) bind(C) integer(trexio_exit_code) function trexio_set_one_based(trex_file) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
end function trexio_set_one_based end function trexio_set_one_based
@ -1674,7 +1673,6 @@ trexio_close (trexio_t* file)
#+begin_src f90 :tangle prefix_fortran.f90 #+begin_src f90 :tangle prefix_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_close (trex_file) bind(C) integer(trexio_exit_code) function trexio_close (trex_file) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
end function trexio_close end function trexio_close
@ -1752,7 +1750,6 @@ trexio_flush (trexio_t* file)
#+begin_src f90 :tangle prefix_fortran.f90 #+begin_src f90 :tangle prefix_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_flush (trex_file) bind(C) integer(trexio_exit_code) function trexio_flush (trex_file) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
end function trexio_flush end function trexio_flush
@ -1834,7 +1831,6 @@ trexio_inquire (const char* file_name)
#+begin_src f90 :tangle prefix_fortran.f90 #+begin_src f90 :tangle prefix_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_inquire_c (filename) bind(C, name="trexio_inquire") integer(trexio_exit_code) function trexio_inquire_c (filename) bind(C, name="trexio_inquire")
use, intrinsic :: iso_c_binding
import import
character(kind=c_char), dimension(*) :: filename character(kind=c_char), dimension(*) :: filename
end function trexio_inquire_c end function trexio_inquire_c
@ -1947,7 +1943,6 @@ trexio_cp(const char* source, const char* dest)
#+begin_src f90 :tangle prefix_fortran.f90 #+begin_src f90 :tangle prefix_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_cp_c (source, destination) bind(C, name="trexio_cp") integer(trexio_exit_code) function trexio_cp_c (source, destination) bind(C, name="trexio_cp")
use, intrinsic :: iso_c_binding
import import
character(kind=c_char), dimension(*) :: source, destination character(kind=c_char), dimension(*) :: source, destination
end function trexio_cp_c end function trexio_cp_c
@ -2059,7 +2054,6 @@ trexio_get_state (trexio_t* file, int32_t* const num)
#+begin_src f90 :tangle prefix_fortran.f90 #+begin_src f90 :tangle prefix_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_set_state (trex_file, state) bind(C) integer(trexio_exit_code) function trexio_set_state (trex_file, state) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int32_t), intent(in), value :: state integer(c_int32_t), intent(in), value :: state
@ -2068,7 +2062,6 @@ end interface
interface interface
integer(trexio_exit_code) function trexio_get_state (trex_file, state) bind(C) integer(trexio_exit_code) function trexio_get_state (trex_file, state) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int32_t), intent(out) :: state integer(c_int32_t), intent(out) :: state
@ -2322,7 +2315,6 @@ trexio_has_$group$ (trexio_t* const file)
#+begin_src f90 :tangle has_group_front_fortran.f90 #+begin_src f90 :tangle has_group_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_has_$group$ (trex_file) bind(C) integer(trexio_exit_code) function trexio_has_$group$ (trex_file) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
end function trexio_has_$group$ end function trexio_has_$group$
@ -2609,7 +2601,6 @@ trexio_has_$group_num$ (trexio_t* const file)
#+begin_src f90 :tangle write_attr_num_64_front_fortran.f90 #+begin_src f90 :tangle write_attr_num_64_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_write_$group_num$_64 (trex_file, num) bind(C) integer(trexio_exit_code) function trexio_write_$group_num$_64 (trex_file, num) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
$group_num_f_dtype_double$, intent(in), value :: num $group_num_f_dtype_double$, intent(in), value :: num
@ -2620,7 +2611,6 @@ end interface
#+begin_src f90 :tangle read_attr_num_64_front_fortran.f90 #+begin_src f90 :tangle read_attr_num_64_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_read_$group_num$_64 (trex_file, num) bind(C) integer(trexio_exit_code) function trexio_read_$group_num$_64 (trex_file, num) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
$group_num_f_dtype_double$, intent(out) :: num $group_num_f_dtype_double$, intent(out) :: num
@ -2631,7 +2621,6 @@ end interface
#+begin_src f90 :tangle write_attr_num_32_front_fortran.f90 #+begin_src f90 :tangle write_attr_num_32_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_write_$group_num$_32 (trex_file, num) bind(C) integer(trexio_exit_code) function trexio_write_$group_num$_32 (trex_file, num) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
$group_num_f_dtype_single$, intent(in), value :: num $group_num_f_dtype_single$, intent(in), value :: num
@ -2642,7 +2631,6 @@ end interface
#+begin_src f90 :tangle read_attr_num_32_front_fortran.f90 #+begin_src f90 :tangle read_attr_num_32_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_read_$group_num$_32 (trex_file, num) bind(C) integer(trexio_exit_code) function trexio_read_$group_num$_32 (trex_file, num) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
$group_num_f_dtype_single$, intent(out) :: num $group_num_f_dtype_single$, intent(out) :: num
@ -2653,7 +2641,6 @@ end interface
#+begin_src f90 :tangle write_attr_num_def_front_fortran.f90 #+begin_src f90 :tangle write_attr_num_def_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_write_$group_num$ (trex_file, num) bind(C) integer(trexio_exit_code) function trexio_write_$group_num$ (trex_file, num) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
$group_num_f_dtype_default$, intent(in), value :: num $group_num_f_dtype_default$, intent(in), value :: num
@ -2664,7 +2651,6 @@ end interface
#+begin_src f90 :tangle read_attr_num_def_front_fortran.f90 #+begin_src f90 :tangle read_attr_num_def_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_read_$group_num$ (trex_file, num) bind(C) integer(trexio_exit_code) function trexio_read_$group_num$ (trex_file, num) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
$group_num_f_dtype_default$, intent(out) :: num $group_num_f_dtype_default$, intent(out) :: num
@ -2675,7 +2661,6 @@ end interface
#+begin_src f90 :tangle has_attr_num_front_fortran.f90 #+begin_src f90 :tangle has_attr_num_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_has_$group_num$ (trex_file) bind(C) integer(trexio_exit_code) function trexio_has_$group_num$ (trex_file) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
end function trexio_has_$group_num$ end function trexio_has_$group_num$
@ -3267,7 +3252,6 @@ trexio_has_$group_dset$ (trexio_t* const file)
#+begin_src f90 :tangle write_dset_data_64_front_fortran.f90 #+begin_src f90 :tangle write_dset_data_64_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_write_$group_dset$_64 (trex_file, dset) bind(C) integer(trexio_exit_code) function trexio_write_$group_dset$_64 (trex_file, dset) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
$group_dset_f_dtype_double$, intent(in) :: dset$group_dset_f_dims$ $group_dset_f_dtype_double$, intent(in) :: dset$group_dset_f_dims$
@ -3278,7 +3262,6 @@ end interface
#+begin_src f90 :tangle read_dset_data_64_front_fortran.f90 #+begin_src f90 :tangle read_dset_data_64_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_read_$group_dset$_64 (trex_file, dset) bind(C) integer(trexio_exit_code) function trexio_read_$group_dset$_64 (trex_file, dset) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
$group_dset_f_dtype_double$, intent(out) :: dset$group_dset_f_dims$ $group_dset_f_dtype_double$, intent(out) :: dset$group_dset_f_dims$
@ -3289,7 +3272,6 @@ end interface
#+begin_src f90 :tangle write_dset_data_32_front_fortran.f90 #+begin_src f90 :tangle write_dset_data_32_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_write_$group_dset$_32 (trex_file, dset) bind(C) integer(trexio_exit_code) function trexio_write_$group_dset$_32 (trex_file, dset) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
$group_dset_f_dtype_single$, intent(in) :: dset$group_dset_f_dims$ $group_dset_f_dtype_single$, intent(in) :: dset$group_dset_f_dims$
@ -3300,7 +3282,6 @@ end interface
#+begin_src f90 :tangle read_dset_data_32_front_fortran.f90 #+begin_src f90 :tangle read_dset_data_32_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_read_$group_dset$_32 (trex_file, dset) bind(C) integer(trexio_exit_code) function trexio_read_$group_dset$_32 (trex_file, dset) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
$group_dset_f_dtype_single$, intent(out) :: dset$group_dset_f_dims$ $group_dset_f_dtype_single$, intent(out) :: dset$group_dset_f_dims$
@ -3311,7 +3292,6 @@ end interface
#+begin_src f90 :tangle write_dset_data_def_front_fortran.f90 #+begin_src f90 :tangle write_dset_data_def_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_write_$group_dset$ (trex_file, dset) bind(C) integer(trexio_exit_code) function trexio_write_$group_dset$ (trex_file, dset) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
$group_dset_f_dtype_default$, intent(in) :: dset$group_dset_f_dims$ $group_dset_f_dtype_default$, intent(in) :: dset$group_dset_f_dims$
@ -3322,7 +3302,6 @@ end interface
#+begin_src f90 :tangle read_dset_data_def_front_fortran.f90 #+begin_src f90 :tangle read_dset_data_def_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_read_$group_dset$ (trex_file, dset) bind(C) integer(trexio_exit_code) function trexio_read_$group_dset$ (trex_file, dset) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
$group_dset_f_dtype_default$, intent(out) :: dset$group_dset_f_dims$ $group_dset_f_dtype_default$, intent(out) :: dset$group_dset_f_dims$
@ -3333,7 +3312,6 @@ end interface
#+begin_src f90 :tangle has_dset_data_front_fortran.f90 #+begin_src f90 :tangle has_dset_data_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_has_$group_dset$ (trex_file) bind(C) integer(trexio_exit_code) function trexio_has_$group_dset$ (trex_file) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
end function trexio_has_$group_dset$ end function trexio_has_$group_dset$
@ -3890,7 +3868,6 @@ interface
integer(trexio_exit_code) function trexio_write_$group_dset$ (trex_file, & integer(trexio_exit_code) function trexio_write_$group_dset$ (trex_file, &
offset_file, buffer_size, & offset_file, buffer_size, &
index_sparse, value_sparse) bind(C) index_sparse, value_sparse) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(in), value :: offset_file integer(c_int64_t), intent(in), value :: offset_file
@ -3905,7 +3882,6 @@ interface
offset_file, buffer_size, & offset_file, buffer_size, &
index_sparse, index_size, & index_sparse, index_size, &
value_sparse, value_size) bind(C) value_sparse, value_size) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(in), value :: offset_file integer(c_int64_t), intent(in), value :: offset_file
@ -3923,7 +3899,6 @@ interface
integer(trexio_exit_code) function trexio_read_$group_dset$ (trex_file, & integer(trexio_exit_code) function trexio_read_$group_dset$ (trex_file, &
offset_file, buffer_size, & offset_file, buffer_size, &
index_sparse, value_sparse) bind(C) index_sparse, value_sparse) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(in), value :: offset_file integer(c_int64_t), intent(in), value :: offset_file
@ -3938,7 +3913,6 @@ interface
offset_file, buffer_size, & offset_file, buffer_size, &
index_sparse, index_size, & index_sparse, index_size, &
value_sparse, value_size) bind(C) value_sparse, value_size) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(in), value :: offset_file integer(c_int64_t), intent(in), value :: offset_file
@ -3955,7 +3929,6 @@ end interface
interface interface
integer(trexio_exit_code) function trexio_read_$group_dset$_size (trex_file, & integer(trexio_exit_code) function trexio_read_$group_dset$_size (trex_file, &
size_max) bind(C) size_max) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(out) :: size_max integer(c_int64_t), intent(out) :: size_max
@ -3966,7 +3939,6 @@ end interface
#+begin_src f90 :tangle has_dset_sparse_front_fortran.f90 #+begin_src f90 :tangle has_dset_sparse_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_has_$group_dset$ (trex_file) bind(C) integer(trexio_exit_code) function trexio_has_$group_dset$ (trex_file) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
end function trexio_has_$group_dset$ end function trexio_has_$group_dset$
@ -4446,7 +4418,6 @@ trexio_has_$group_dset$ (trexio_t* const file)
#+begin_src f90 :tangle write_dset_str_front_fortran.f90 #+begin_src f90 :tangle write_dset_str_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_write_$group_dset$_low (trex_file, dset, max_str_len) bind(C) integer(trexio_exit_code) function trexio_write_$group_dset$_low (trex_file, dset, max_str_len) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
character(kind=c_char), intent(in) :: dset(*) character(kind=c_char), intent(in) :: dset(*)
@ -4458,7 +4429,6 @@ end interface
#+begin_src f90 :tangle read_dset_str_front_fortran.f90 #+begin_src f90 :tangle read_dset_str_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_read_$group_dset$_low (trex_file, dset, max_str_len) bind(C) integer(trexio_exit_code) function trexio_read_$group_dset$_low (trex_file, dset, max_str_len) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(c_int64_t), intent(in), value :: trex_file integer(c_int64_t), intent(in), value :: trex_file
character(kind=c_char), intent(out) :: dset(*) character(kind=c_char), intent(out) :: dset(*)
@ -4470,7 +4440,6 @@ end interface
#+begin_src f90 :tangle has_dset_str_front_fortran.f90 #+begin_src f90 :tangle has_dset_str_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_has_$group_dset$ (trex_file) bind(C) integer(trexio_exit_code) function trexio_has_$group_dset$ (trex_file) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
end function trexio_has_$group_dset$ end function trexio_has_$group_dset$
@ -4826,7 +4795,6 @@ trexio_has_$group_dset$ (trexio_t* const file)
interface interface
integer(trexio_exit_code) function trexio_write_$group_dset$(trex_file, & integer(trexio_exit_code) function trexio_write_$group_dset$(trex_file, &
offset_file, buffer_size, dset) bind(C) offset_file, buffer_size, dset) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(in), value :: offset_file integer(c_int64_t), intent(in), value :: offset_file
@ -4839,7 +4807,6 @@ interface
integer(trexio_exit_code) function trexio_write_safe_$group_dset$ (trex_file, & integer(trexio_exit_code) function trexio_write_safe_$group_dset$ (trex_file, &
offset_file, buffer_size, & offset_file, buffer_size, &
dset, dset_size) bind(C) dset, dset_size) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(in), value :: offset_file integer(c_int64_t), intent(in), value :: offset_file
@ -4855,7 +4822,6 @@ interface
integer(trexio_exit_code) function trexio_read_safe_$group_dset$ (trex_file, & integer(trexio_exit_code) function trexio_read_safe_$group_dset$ (trex_file, &
offset_file, buffer_size, & offset_file, buffer_size, &
dset, dset_size) bind(C) dset, dset_size) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(in), value :: offset_file integer(c_int64_t), intent(in), value :: offset_file
@ -4868,7 +4834,6 @@ end interface
interface interface
integer(trexio_exit_code) function trexio_read_$group_dset$(trex_file, & integer(trexio_exit_code) function trexio_read_$group_dset$(trex_file, &
offset_file, buffer_size, dset) bind(C) offset_file, buffer_size, dset) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(in), value :: offset_file integer(c_int64_t), intent(in), value :: offset_file
@ -4880,7 +4845,6 @@ end interface
interface interface
integer(trexio_exit_code) function trexio_read_$group_dset$_size (trex_file, & integer(trexio_exit_code) function trexio_read_$group_dset$_size (trex_file, &
size_max) bind(C) size_max) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(out) :: size_max integer(c_int64_t), intent(out) :: size_max
@ -4891,7 +4855,6 @@ end interface
#+begin_src f90 :tangle has_buffered_front_fortran.f90 #+begin_src f90 :tangle has_buffered_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_has_$group_dset$ (trex_file) bind(C) integer(trexio_exit_code) function trexio_has_$group_dset$ (trex_file) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
end function trexio_has_$group_dset$ end function trexio_has_$group_dset$
@ -5171,7 +5134,6 @@ trexio_has_$group_str$ (trexio_t* const file)
interface interface
integer(trexio_exit_code) function trexio_write_$group_str$_c (trex_file, str, max_str_len) & integer(trexio_exit_code) function trexio_write_$group_str$_c (trex_file, str, max_str_len) &
bind(C, name="trexio_write_$group_str$") bind(C, name="trexio_write_$group_str$")
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
character(kind=c_char), intent(in) :: str(*) character(kind=c_char), intent(in) :: str(*)
@ -5184,7 +5146,6 @@ end interface
interface interface
integer(trexio_exit_code) function trexio_read_$group_str$_c (trex_file, str, max_str_len) & integer(trexio_exit_code) function trexio_read_$group_str$_c (trex_file, str, max_str_len) &
bind(C, name="trexio_read_$group_str$") bind(C, name="trexio_read_$group_str$")
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
character(kind=c_char), intent(out) :: str(*) character(kind=c_char), intent(out) :: str(*)
@ -5196,7 +5157,6 @@ end interface
#+begin_src f90 :tangle has_attr_str_front_fortran.f90 #+begin_src f90 :tangle has_attr_str_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_has_$group_str$ (trex_file) bind(C) integer(trexio_exit_code) function trexio_has_$group_str$ (trex_file) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
end function trexio_has_$group_str$ end function trexio_has_$group_str$
@ -5217,7 +5177,6 @@ end interface
#+begin_src f90 :tangle helper_write_attr_str_front_fortran.fh_90 #+begin_src f90 :tangle helper_write_attr_str_front_fortran.fh_90
integer(trexio_exit_code) function trexio_write_$group_str$ (trex_file, str, max_str_len) integer(trexio_exit_code) function trexio_write_$group_str$ (trex_file, str, max_str_len)
use, intrinsic :: iso_c_binding, only : c_null_char
implicit none implicit none
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int32_t), intent(in), value :: max_str_len integer(c_int32_t), intent(in), value :: max_str_len
@ -5355,7 +5314,6 @@ trexio_delete_$group$ (trexio_t* const file)
#+begin_src f90 :tangle delete_group_front_fortran.f90 #+begin_src f90 :tangle delete_group_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_delete_$group$ (trex_file) bind(C) integer(trexio_exit_code) function trexio_delete_$group$ (trex_file) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
end function trexio_delete_$group$ end function trexio_delete_$group$
@ -5609,7 +5567,6 @@ trexio_has_determinant_list (trexio_t* const file)
interface interface
integer(trexio_exit_code) function trexio_write_determinant_list (trex_file, & integer(trexio_exit_code) function trexio_write_determinant_list (trex_file, &
offset_file, buffer_size, list) bind(C) offset_file, buffer_size, list) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(in), value :: offset_file integer(c_int64_t), intent(in), value :: offset_file
@ -5622,7 +5579,6 @@ interface
integer(trexio_exit_code) function trexio_write_safe_determinant_list (trex_file, & integer(trexio_exit_code) function trexio_write_safe_determinant_list (trex_file, &
offset_file, buffer_size, & offset_file, buffer_size, &
list, list_size) bind(C) list, list_size) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(in), value :: offset_file integer(c_int64_t), intent(in), value :: offset_file
@ -5637,7 +5593,6 @@ end interface
interface interface
integer(trexio_exit_code) function trexio_read_determinant_list(trex_file, & integer(trexio_exit_code) function trexio_read_determinant_list(trex_file, &
offset_file, buffer_size, list) bind(C) offset_file, buffer_size, list) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(in), value :: offset_file integer(c_int64_t), intent(in), value :: offset_file
@ -5650,7 +5605,6 @@ interface
integer(trexio_exit_code) function trexio_read_safe_determinant_list (trex_file, & integer(trexio_exit_code) function trexio_read_safe_determinant_list (trex_file, &
offset_file, buffer_size, & offset_file, buffer_size, &
list, list_size) bind(C) list, list_size) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int64_t), intent(in), value :: offset_file integer(c_int64_t), intent(in), value :: offset_file
@ -5664,7 +5618,6 @@ end interface
#+begin_src f90 :tangle has_determinant_front_fortran.f90 #+begin_src f90 :tangle has_determinant_front_fortran.f90
interface interface
integer(trexio_exit_code) function trexio_has_determinant_list (trex_file) bind(C) integer(trexio_exit_code) function trexio_has_determinant_list (trex_file) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
end function trexio_has_determinant_list end function trexio_has_determinant_list
@ -5672,7 +5625,6 @@ end interface
interface interface
integer(trexio_exit_code) function trexio_get_int64_num (trex_file, num) bind(C) integer(trexio_exit_code) function trexio_get_int64_num (trex_file, num) bind(C)
use, intrinsic :: iso_c_binding
import import
integer(trexio_t), intent(in), value :: trex_file integer(trexio_t), intent(in), value :: trex_file
integer(c_int32_t), intent(out) :: num integer(c_int32_t), intent(out) :: num
@ -6333,7 +6285,7 @@ trexio_mark_safety (trexio_t* const file, const int32_t safety_flag)
#+begin_src f90 :tangle prefix_fortran.f90 #+begin_src f90 :tangle prefix_fortran.f90
interface interface
integer(c_int32_t) function trexio_info_c () bind(C, name="trexio_info") integer(c_int32_t) function trexio_info_c () bind(C, name="trexio_info")
use, intrinsic :: iso_c_binding import
end function trexio_info_c end function trexio_info_c
end interface end interface
#+end_src #+end_src
@ -6342,7 +6294,6 @@ end interface
interface interface
integer(trexio_exit_code) function trexio_to_bitfield_list_c(list, occupied_num, det_list, N_int) & integer(trexio_exit_code) function trexio_to_bitfield_list_c(list, occupied_num, det_list, N_int) &
bind(C, name="trexio_to_bitfield_list") bind(C, name="trexio_to_bitfield_list")
use, intrinsic :: iso_c_binding
import import
integer(c_int32_t), intent(in) :: list(*) integer(c_int32_t), intent(in) :: list(*)
integer(c_int32_t), intent(in), value :: occupied_num integer(c_int32_t), intent(in), value :: occupied_num
@ -6356,7 +6307,6 @@ end interface
interface interface
integer(trexio_exit_code) function trexio_to_orbital_list_c(N_int, d1, list, occupied_num) & integer(trexio_exit_code) function trexio_to_orbital_list_c(N_int, d1, list, occupied_num) &
bind(C, name="trexio_to_orbital_list") bind(C, name="trexio_to_orbital_list")
use, intrinsic :: iso_c_binding
import import
integer(c_int32_t), intent(in), value :: N_int integer(c_int32_t), intent(in), value :: N_int
integer(c_int64_t), intent(in) :: d1(*) integer(c_int64_t), intent(in) :: d1(*)
@ -6370,7 +6320,6 @@ end interface
interface interface
integer(trexio_exit_code) function trexio_to_orbital_list_up_dn_c(N_int, d1, list_up, list_dn, occ_num_up, occ_num_dn) & integer(trexio_exit_code) function trexio_to_orbital_list_up_dn_c(N_int, d1, list_up, list_dn, occ_num_up, occ_num_dn) &
bind(C, name="trexio_to_orbital_list_up_dn") bind(C, name="trexio_to_orbital_list_up_dn")
use, intrinsic :: iso_c_binding
import import
integer(c_int32_t), intent(in), value :: N_int integer(c_int32_t), intent(in), value :: N_int
integer(c_int64_t), intent(in) :: d1(*) integer(c_int64_t), intent(in) :: d1(*)
@ -6386,7 +6335,6 @@ end interface
interface interface
integer(trexio_exit_code) function trexio_convert_nao_radius_32(r, grid_r, log_r_out) & integer(trexio_exit_code) function trexio_convert_nao_radius_32(r, grid_r, log_r_out) &
bind(C, name="trexio_convert_nao_radius_32") bind(C, name="trexio_convert_nao_radius_32")
use, intrinsic :: iso_c_binding
import import
real(c_float), intent(in), value :: r real(c_float), intent(in), value :: r
real(c_float), intent(in) :: grid_r(*) real(c_float), intent(in) :: grid_r(*)
@ -6399,7 +6347,6 @@ end interface
interface interface
integer(trexio_exit_code) function trexio_convert_nao_radius_64(r, grid_r, log_r_out) & integer(trexio_exit_code) function trexio_convert_nao_radius_64(r, grid_r, log_r_out) &
bind(C, name="trexio_convert_nao_radius_64") bind(C, name="trexio_convert_nao_radius_64")
use, intrinsic :: iso_c_binding
import import
real(c_double), intent(in), value :: r real(c_double), intent(in), value :: r
real(c_double), intent(in) :: grid_r(*) real(c_double), intent(in) :: grid_r(*)
@ -6413,7 +6360,6 @@ interface
integer(trexio_exit_code) function trexio_evaluate_nao_radial (shell_index, r, & integer(trexio_exit_code) function trexio_evaluate_nao_radial (shell_index, r, &
grid_start, grid_size, grid_r, interpolator, normalization, amplitude) & grid_start, grid_size, grid_r, interpolator, normalization, amplitude) &
bind(C, name="trexio_evaluate_nao_radial") bind(C, name="trexio_evaluate_nao_radial")
use, intrinsic :: iso_c_binding
import import
integer(c_int32_t), intent(in), value :: shell_index integer(c_int32_t), intent(in), value :: shell_index
real(c_double), intent(in), value :: r real(c_double), intent(in), value :: r
@ -6434,7 +6380,6 @@ interface
grid_start, grid_size, grid_r, interpolator, & grid_start, grid_size, grid_r, interpolator, &
normalization, rx, ry, rz, amplitudes) & normalization, rx, ry, rz, amplitudes) &
bind(C, name="trexio_evaluate_nao_radial_all") bind(C, name="trexio_evaluate_nao_radial_all")
use, intrinsic :: iso_c_binding
import import
integer(c_int32_t), intent(in), value :: shell_num integer(c_int32_t), intent(in), value :: shell_num
integer(c_int32_t), intent(in) :: nucleus_index(*) integer(c_int32_t), intent(in) :: nucleus_index(*)
@ -6662,7 +6607,6 @@ contains
#+begin_src f90 :tangle helper_fortran.f90 #+begin_src f90 :tangle helper_fortran.f90
integer(trexio_t) function trexio_open (filename, mode, back_end, rc_open) integer(trexio_t) function trexio_open (filename, mode, back_end, rc_open)
use, intrinsic :: iso_c_binding, only : c_null_char
implicit none implicit none
character(len=*), intent(in) :: filename character(len=*), intent(in) :: filename
character, intent(in), value :: mode character, intent(in), value :: mode
@ -6690,7 +6634,6 @@ contains
#+begin_src f90 :tangle helper_fortran.f90 #+begin_src f90 :tangle helper_fortran.f90
integer(trexio_exit_code) function trexio_inquire (filename) integer(trexio_exit_code) function trexio_inquire (filename)
use, intrinsic :: iso_c_binding
implicit none implicit none
character(len=*), intent(in) :: filename character(len=*), intent(in) :: filename
character(len=len_trim(filename)+1) :: filename_c character(len=len_trim(filename)+1) :: filename_c
@ -6704,7 +6647,6 @@ contains
#+begin_src f90 :tangle helper_fortran.f90 #+begin_src f90 :tangle helper_fortran.f90
integer(trexio_exit_code) function trexio_cp (source, destination) integer(trexio_exit_code) function trexio_cp (source, destination)
use, intrinsic :: iso_c_binding
implicit none implicit none
character(len=*), intent(in) :: source character(len=*), intent(in) :: source
character(len=*), intent(in) :: destination character(len=*), intent(in) :: destination
@ -6722,7 +6664,6 @@ contains
#+begin_src f90 :tangle helper_fortran.f90 #+begin_src f90 :tangle helper_fortran.f90
integer(trexio_exit_code) function trexio_to_bitfield_list(list, occupied_num, det_list, N_int) integer(trexio_exit_code) function trexio_to_bitfield_list(list, occupied_num, det_list, N_int)
use, intrinsic :: iso_c_binding
implicit none implicit none
integer(c_int32_t), intent(in) :: list(*) integer(c_int32_t), intent(in) :: list(*)
@ -6745,7 +6686,6 @@ contains
integer(trexio_exit_code) function trexio_to_orbital_list(N_int, d1, list, occupied_num) integer(trexio_exit_code) function trexio_to_orbital_list(N_int, d1, list, occupied_num)
use, intrinsic :: iso_c_binding
implicit none implicit none
integer(c_int32_t), intent(in), value :: N_int integer(c_int32_t), intent(in), value :: N_int
@ -6767,7 +6707,6 @@ contains
integer(trexio_exit_code) function trexio_to_orbital_list_up_dn(N_int, d1, list_up, list_dn, occ_num_up, occ_num_dn) integer(trexio_exit_code) function trexio_to_orbital_list_up_dn(N_int, d1, list_up, list_dn, occ_num_up, occ_num_dn)
use, intrinsic :: iso_c_binding
implicit none implicit none
integer(c_int32_t), intent(in), value :: N_int integer(c_int32_t), intent(in), value :: N_int
integer(c_int64_t), intent(in) :: d1(*) integer(c_int64_t), intent(in) :: d1(*)
@ -6798,7 +6737,6 @@ contains
#+begin_src f90 :tangle helper_fortran.f90 #+begin_src f90 :tangle helper_fortran.f90
subroutine trexio_strarray2str(str_array, max_num_str, str_res) subroutine trexio_strarray2str(str_array, max_num_str, str_res)
use, intrinsic :: iso_c_binding, only : c_null_char
implicit none implicit none
integer(c_int64_t), intent(in), value :: max_num_str ! number of elements in string array integer(c_int64_t), intent(in), value :: max_num_str ! number of elements in string array