xref: /phasta/phSolver/common/streamio.f (revision ab645d527a403248f92b1511f47c35aaadb4947d)
1*ab645d52SCameron Smith      module streamio
2*ab645d52SCameron Smith      use :: iso_c_binding
3*ab645d52SCameron Smith      type(c_ptr) :: grstream
4*ab645d52SCameron Smith      interface
5*ab645d52SCameron Smith        subroutine streamio_setup(stream, handle)
6*ab645d52SCameron Smith     &   bind(C, NAME='streamio_setup')
7*ab645d52SCameron Smith        use :: iso_c_binding
8*ab645d52SCameron Smith          type(c_ptr), value :: stream
9*ab645d52SCameron Smith          type(c_ptr) :: handle
10*ab645d52SCameron Smith        end subroutine
11*ab645d52SCameron Smith      end interface
12*ab645d52SCameron Smith      end module
13