program essai

  use usegenplot
  implicit none

  ! integer                     :: foo, bar

  write(0, *)   "------------ essai graf anim ---------------"

  call init_genplot('essai.genplot')

end program