TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-12-23 04:43:57 +01:00
Code Issues Projects Releases Wiki Activity

fix Fortran interface

Browse Source
This commit is contained in:
q-posev 2021-06-08 16:11:38 +02:00
parent 842b0efaa8
commit 5c4782eb03
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/templates_front/templator_front.org
View File

@ -1683,7 +1683,7 @@ interface
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
integer(8), intent(in), value :: trex_file integer(8), intent(in), value :: trex_file
character, intent(in) :: dset(*) character, intent(in) :: dset(*)
integer(4), intent(in) :: max_str_len integer(4), intent(in), value :: max_str_len
end function trexio_write_$group_dset$ end function trexio_write_$group_dset$
end interface end interface
#+end_src #+end_src
@ -1694,7 +1694,7 @@ interface
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
integer(8), intent(in), value :: trex_file integer(8), intent(in), value :: trex_file
character, intent(out) :: dset(*) character, intent(out) :: dset(*)
integer(4), intent(in) :: max_str_len integer(4), intent(in), value :: max_str_len
end function trexio_read_$group_dset$ end function trexio_read_$group_dset$
end interface end interface
#+end_src #+end_src
@ -1841,7 +1841,7 @@ interface
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
integer(8), intent(in), value :: trex_file integer(8), intent(in), value :: trex_file
character, intent(in) :: str(*) character, intent(in) :: str(*)
integer(4), intent(in) :: max_str_len integer(4), intent(in), value :: max_str_len
end function trexio_write_$group_str$ end function trexio_write_$group_str$
end interface end interface
#+end_src #+end_src
@ -1852,7 +1852,7 @@ interface
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
integer(8), intent(in), value :: trex_file integer(8), intent(in), value :: trex_file
character, intent(out) :: str(*) character, intent(out) :: str(*)
integer(4), intent(in) :: max_str_len integer(4), intent(in), value :: max_str_len
end function trexio_read_$group_str$ end function trexio_read_$group_str$
end interface end interface
#+end_src #+end_src