TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-08-25 06:31:43 +02:00
Code Issues Projects Releases Wiki Activity

fix typos

Browse Source
This commit is contained in:
q-posev 2021-06-04 17:02:14 +02:00
parent 4549276e86
commit 1bfc8d0c6c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/templates_front/templator_front.org
View File

@ -617,7 +617,7 @@ interface
integer function trexio_set_one_based(trex_file) bind(C)
use, intrinsic :: iso_c_binding
integer(8), intent(in), value :: trex_file
end function trexio_open_c
end function trexio_set_one_based
end interface
#+end_src
@ -1574,7 +1574,7 @@ contains
endif
rc = trexio_set_one_based(trexio_open)
if (rc /= TREXIO_SUCCESS) then
call trexio_close(trexio_open)
rc = trexio_close(trexio_open)
trexio_open = 0_8
endif
end function trexio_open