TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2025-01-09 12:44:11 +01:00
Code Issues Projects Releases Wiki Activity

add test, works for h5 but failt for txt

Browse Source
This commit is contained in:
q-posev 2021-03-22 16:40:45 +01:00
parent baa50bdbe2
commit ac44fc29a6
2 changed files with 29 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/templates_front/templator_front.org
View File

@ -12,7 +12,6 @@
#+end_src #+end_src
#+begin_src fortran :tangle prefix_fortran.f90 :noweb yes #+begin_src fortran :tangle prefix_fortran.f90 :noweb yes
<<header>>
module trexio module trexio
@ -292,9 +291,9 @@ trexio_t* trexio_open(const char* file_name, const char mode, const back_end_t b
interface interface
type (c_ptr) function trexio_open (filename, mode, backend) bind(C) type (c_ptr) function trexio_open (filename, mode, backend) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
character(kind=c_char), dimension(*) :: filename character(kind=c_char), dimension(*) :: filename
character(kind=c_char), intent(in) :: mode character(kind=c_char), intent(in), value :: mode
integer (c_int32_t), intent(in), value :: backend integer (c_int32_t), intent(in), value :: backend
end function trexio_open end function trexio_open
end interface end interface
#+end_src #+end_src
@ -375,7 +374,7 @@ trexio_exit_code trexio_close(trexio_t* file) {
#+begin_src fortran :tangle prefix_fortran.f90 #+begin_src fortran :tangle prefix_fortran.f90
interface interface
type (c_int32_t) function trexio_close (trex_file) bind(C) integer (c_int32_t) function trexio_close (trex_file) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
type (c_ptr), intent(in), value :: trex_file type (c_ptr), intent(in), value :: trex_file
end function trexio_close end function trexio_close
@ -469,7 +468,7 @@ interface
integer (c_int32_t) function trexio_read_$group_num$ (trex_file, num) bind(C) integer (c_int32_t) function trexio_read_$group_num$ (trex_file, num) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
type (c_ptr), intent(in), value :: trex_file type (c_ptr), intent(in), value :: trex_file
integer (c_int64_t), intent(inout), value :: num integer (c_int64_t), value :: num
end function trexio_read_$group_num$ end function trexio_read_$group_num$
end interface end interface

24
src/test.f90 Normal file
View File

@ -0,0 +1,24 @@
program test_trexio
use trexio
implicit none
type(c_ptr) :: file1
integer :: rc
integer (c_int64_t) :: num
rc = 0
num = 10
file1 = trexio_open('test_fort' // c_null_char, 'w', 1)
! file1 = trexio_open('test_fort.h5' // c_null_char, 'w', 0)
rc = trexio_write_nucleus_num(file1, num)
if (rc == 0) write(*,*) 'SUCCESS 1'
rc = trexio_close(file1)
if (rc == 0) write(*,*) 'SUCCESS 2'
end program test_trexio