diff options
| author | Erik Schnetter <schnetter@gmail.com> | 2013-05-26 16:32:43 -0400 |
|---|---|---|
| committer | Erik Schnetter <schnetter@gmail.com> | 2013-05-26 16:32:43 -0400 |
| commit | cce526ef043dda6115818e54120e8d1410d2d7c5 (patch) | |
| tree | 112be435032bd827ec66fe191a07d7d40e70e87f /Carpet/LoopControl/src/loopcontrol_fortran.h | |
| parent | 9791222a06c996805b3509be67f30aa731fcae10 (diff) | |
LoopControl: Implement automatic performance improvements
Redesigned internal data structures. This touches many parts of the code.
Keep statistics about past loop iterations. Output statistics when terminating.
Use these statistics to dynamically choose looping parameters.
Allow disabling this feature, e.g. for benchmarks.
Diffstat (limited to 'Carpet/LoopControl/src/loopcontrol_fortran.h')
| -rw-r--r-- | Carpet/LoopControl/src/loopcontrol_fortran.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Carpet/LoopControl/src/loopcontrol_fortran.h b/Carpet/LoopControl/src/loopcontrol_fortran.h index aee1f79c5..5e879641c 100644 --- a/Carpet/LoopControl/src/loopcontrol_fortran.h +++ b/Carpet/LoopControl/src/loopcontrol_fortran.h @@ -54,7 +54,7 @@ && integer :: name/**/_dir1, name/**/_dir2, name/**/_dir3 \ && integer :: name/**/_ash1, name/**/_ash2, name/**/_ash3 \ && integer :: name/**/_str1 \ - && CCTK_POINTER, save :: name/**/_stats = 0 \ + && CCTK_POINTER, save :: name/**/_descr = 0 \ && type(lc_control_t) :: name/**/_control \ LC_COARSE_DECLARE(name,1) \ LC_COARSE_DECLARE(name,2) \ @@ -88,8 +88,8 @@ && name/**/_ash3 = (kash_) \ && name/**/_str1 = (istr_) \ \ - && call lc_stats_init(name/**/_stats, __LINE__, __FILE__, "name") \ - && call lc_control_init(name/**/_control, name/**/_stats, \ + && call lc_descr_init(name/**/_descr, __LINE__, __FILE__, "name") \ + && call lc_control_init(name/**/_control, name/**/_descr, \ (imin_), (jmin_), (kmin_), \ (imax_), (jmax_), (kmax_), \ name/**/_ash1, name/**/_ash2, name/**/_ash3, \ @@ -124,7 +124,7 @@ && end do \ && call lc_thread_step(name/**/_control) \ && end do \ - && call lc_control_finish(name/**/_control, name/**/_stats) + && call lc_control_finish(name/**/_control, name/**/_descr) |