1 module syncio 2 use :: iso_c_binding 3 interface 4 subroutine syncio_setup_read(nfiles, handle) 5 & bind(C, NAME='syncio_setup_read') 6 use :: iso_c_binding 7 integer(c_int), value :: nfiles 8 type(c_ptr) :: handle 9 end subroutine 10 subroutine syncio_setup_write(nfiles, nfields, nppf, handle) 11 & bind(C, NAME='syncio_setup_write') 12 use :: iso_c_binding 13 integer(c_int), value :: nfiles 14 integer(c_int), value :: nfields 15 integer(c_int), value :: nppf 16 type(c_ptr) :: handle 17 end subroutine 18 end interface 19 end module 20