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