xref: /phasta/phSolver/common/streamio.f (revision d7abaf6c7709145d1e6e6b7740bd56c3f238d064)

      module streamio
      use :: iso_c_binding
      type(c_ptr) :: grstream
      interface
        subroutine streamio_setup(stream, handle)
     &   bind(C, NAME='streamio_setup')
        use :: iso_c_binding
          type(c_ptr), value :: stream
          type(c_ptr) :: handle
        end subroutine
      end interface
      end module