neko-user.f90

Go to the documentation of this file.

 
 
program usrneko
  use neko, only: neko_init, neko_solve, neko_finalize
  use case, only: case_t
  use user, only: user_setup
  use user_access_singleton, only: neko_user_access
  use neko_top, only: neko_top_register_types
  implicit none
 
  type(case_t), target :: C
 
  call neko_top_register_types()
  call user_setup(c%user)
  call neko_init(c)
  call neko_user_access%init(c)
  call neko_solve(c)
  call neko_finalize(c)
 
 
end program usrneko