drive.f

Go to the documentation of this file.

      program nekton
 
      include 'mpif.h'
      integer comm
      comm = mpi_comm_world
 
      call nek_init(comm)
      call nek_solve()
      call nek_end()
 
      end