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 7*d07d6b0bSCameron 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 13ab645d52SCameron Smith integer(c_int), intent(in) :: nfiles 14ab645d52SCameron Smith integer(c_int), intent(in) :: nfields 15ab645d52SCameron Smith integer(c_int), intent(in) :: nppf 16ab645d52SCameron Smith type(c_ptr) :: handle 17ab645d52SCameron Smith end subroutine 18ab645d52SCameron Smith end interface 19ab645d52SCameron Smith end module 20