feat(validation): added more of the scripts to make paper figures
This commit is contained in:
@@ -0,0 +1,20 @@
|
||||
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
|
||||
Reference in New Issue
Block a user