mirror of
https://github.com/TREX-CoE/trexio.git
synced 2024-08-25 14:41:44 +02:00
fix Fortran interface
This commit is contained in:
parent
842b0efaa8
commit
5c4782eb03
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user