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