program main
  use grn_oneway_mod
  implicit none

  integer :: stat
  
  stat = grn_oneway_init()
  stat = grn_oneway_oper()
  stat = grn_oneway_clos()

end program
