mirror of
https://github.com/TREX-CoE/trexio.git
synced 2024-08-25 06:31:43 +02:00
fix typos
This commit is contained in:
parent
4549276e86
commit
1bfc8d0c6c
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user