PRACE NPT

      Module floptime

! ---------------------------------------------------------------------

! --- floptime components keep track of flopcounts and execution times

!     for the program to be benchmarked.

! ---------------------------------------------------------------------

      Use           numerics

      Implicit      None

      Integer(8) :: flops

! ---------------------------------------------------------------------

      Contains

      Function wclock()                               Result (walltime)

      Use numerics

      Implicit None

      Real(l_) :: walltime, cclock

! ----------------------------------------------------------------------

      walltime = cclock()

! ----------------------------------------------------------------------

      End Function wclock

! ----------------------------------------------------------------------

      End module floptime