TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-11-03 20:54:07 +01:00
Code Issues Projects Releases Wiki Activity

(inout) buffer size instead if (out) [Fortran]

Browse Source
This commit is contained in:
q-posev 2021-12-17 13:33:27 +01:00
parent 314beb58c9
commit daa5bdb3cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/templates_front/templator_front.org
View File

@ -2658,7 +2658,7 @@ interface
use, intrinsic :: iso_c_binding
integer(8), intent(in), value :: trex_file
integer(8), intent(in), value :: offset_file
integer(8), intent(out) :: buffer_size
integer(8), intent(inout) :: buffer_size
integer(4), intent(out) :: index_sparse(*)
double precision, intent(out) :: value_sparse(*)
end function trexio_read_$group_dset$