Commit 800ede4e authored by Lorenz Hüdepohl's avatar Lorenz Hüdepohl
Browse files

Remove global variable "timer"

parent 0f268611
......@@ -49,8 +49,6 @@ module ftimings
procedure, pass :: since => timer_since
end type
type(timer_t) :: timer
character(len=name_length), parameter :: own = "(own)"
contains
......
......@@ -7,6 +7,7 @@ program test_timings
use ftimings
use, intrinsic :: iso_c_binding, only : C_DOUBLE
implicit none
type(timer_t) :: timer
integer, parameter :: rk = C_DOUBLE
integer :: i, j
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment