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