1e5afe575SCameron Smith module phio 2e5afe575SCameron Smith interface 3e5afe575SCameron Smith subroutine phio_openfile_read(fname, nfiles, handle) 4e5afe575SCameron Smith & bind(C, NAME='phio_openfile_read') 5e5afe575SCameron Smith use :: iso_c_binding 6e5afe575SCameron Smith character(c_char), intent(in) :: fname(*) 7e5afe575SCameron Smith integer(c_int), intent(in) :: nfiles 8e5afe575SCameron Smith type(c_ptr) :: handle 9e5afe575SCameron Smith end subroutine 10e5afe575SCameron Smith end interface 11e5afe575SCameron Smith interface 12e5afe575SCameron Smith subroutine phio_closefile_read(handle) 13e5afe575SCameron Smith & bind(C, NAME='phio_closefile_read') 14e5afe575SCameron Smith use :: iso_c_binding 15e5afe575SCameron Smith type(c_ptr), value :: handle 16e5afe575SCameron Smith end subroutine 17e5afe575SCameron Smith end interface 18e5afe575SCameron Smith interface 19e5afe575SCameron Smith subroutine phio_readheader(handle, phrase, vals, nvals, 20e5afe575SCameron Smith & datatype, iotype) 21e5afe575SCameron Smith & bind(C, NAME='phio_readheader') 22e5afe575SCameron Smith use :: iso_c_binding 23e5afe575SCameron Smith type(c_ptr), value :: handle 24e5afe575SCameron Smith character(c_char), intent(in) :: phrase(*) 25e5afe575SCameron Smith type(c_ptr), value :: vals 26e5afe575SCameron Smith integer(c_int), intent(in) :: nvals 27e5afe575SCameron Smith character(c_char), intent(in) :: datatype(*) 28e5afe575SCameron Smith character(c_char), intent(in) :: iotype(*) 29e5afe575SCameron Smith end subroutine 30e5afe575SCameron Smith end interface 31*bc62cfd4SCameron Smith interface 32*bc62cfd4SCameron Smith subroutine phio_readdatablock(handle, phrase, vals, nvals, 33*bc62cfd4SCameron Smith & datatype, iotype) 34*bc62cfd4SCameron Smith & bind(C, NAME='phio_readdatablock') 35*bc62cfd4SCameron Smith use :: iso_c_binding 36*bc62cfd4SCameron Smith type(c_ptr), value :: handle 37*bc62cfd4SCameron Smith character(c_char), intent(in) :: phrase(*) 38*bc62cfd4SCameron Smith type(c_ptr), value :: vals 39*bc62cfd4SCameron Smith integer(c_int), intent(in) :: nvals 40*bc62cfd4SCameron Smith character(c_char), intent(in) :: datatype(*) 41*bc62cfd4SCameron Smith character(c_char), intent(in) :: iotype(*) 42*bc62cfd4SCameron Smith end subroutine 43*bc62cfd4SCameron Smith end interface 44e5afe575SCameron Smith end module 45e5afe575SCameron Smith 46