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 interface 32 subroutine phio_readdatablock(handle, phrase, vals, nvals, 33 & datatype, iotype) 34 & bind(C, NAME='phio_readdatablock') 35 use :: iso_c_binding 36 type(c_ptr), value :: handle 37 character(c_char), intent(in) :: phrase(*) 38 type(c_ptr), value :: vals 39 integer(c_int), intent(in) :: nvals 40 character(c_char), intent(in) :: datatype(*) 41 character(c_char), intent(in) :: iotype(*) 42 end subroutine 43 end interface 44 end module 45 46