21 lines
467 B
Diff
21 lines
467 B
Diff
42a43
|
|
> real(dp) :: nuc_eval_time
|
|
358a360,361
|
|
> integer*8 :: count_start, count_end, count_rate
|
|
>
|
|
361c364
|
|
< eps_neu
|
|
---
|
|
> eps_neu, eval_time
|
|
437a441
|
|
> call system_clock(count_rate=count_rate)
|
|
438a443
|
|
> call system_clock(count_start)
|
|
451a457,460
|
|
> call system_clock(count_end)
|
|
> eval_time = real(count_end - count_start, dp) / real(count_rate, dp)
|
|
>
|
|
>
|
|
455a465
|
|
> out% nuc_eval_time = eval_time
|