program doubledice
  use usegenplot
  implicit none

  call init_genplot("essai.genplot")

  call end_genplot("OK boomer")

end program