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