TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-10-02 14:31:05 +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) integer function trexio_set_one_based(trex_file) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
integer(8), intent(in), value :: trex_file integer(8), intent(in), value :: trex_file
end function trexio_open_c end function trexio_set_one_based
end interface end interface
#+end_src #+end_src
@ -1574,7 +1574,7 @@ contains
endif endif
rc = trexio_set_one_based(trexio_open) rc = trexio_set_one_based(trexio_open)
if (rc /= TREXIO_SUCCESS) then if (rc /= TREXIO_SUCCESS) then
call trexio_close(trexio_open) rc = trexio_close(trexio_open)
trexio_open = 0_8 trexio_open = 0_8
endif endif
end function trexio_open end function trexio_open