neko-user.f90

program usrneko
  use neko, only: neko_init, neko_solve, neko_finalize
  use case, only: case_t
  use user, only: user_setup
 
  type(case_t), target :: C
 
  call user_setup(c%usr)
  call neko_init(c)
  call neko_solve(c)
  call neko_finalize(c)
 
 
end program usrneko