pure functions

william-dawson · Sep 8, 2023 · 612fd8c · 612fd8c
1 parent 9cef3ed
commit 612fd8c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Source/Fortran/ConvergenceMonitorModule.F90 b/Source/Fortran/ConvergenceMonitorModule.F90
@@ -32,7 +32,7 @@ MODULE ConvergenceMonitor
  PUBLIC :: CheckConverged
 CONTAINS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  !> Construct the monitor.
- SUBROUTINE ConstructMonitor(this, short_len_in, long_len_in, &
+ PURE SUBROUTINE ConstructMonitor(this, short_len_in, long_len_in, &
  & loose_cutoff_in, tight_cutoff_in, automatic_in)
  !> The monitor to construct.
  TYPE(Monitor_t), INTENT(INOUT) :: this
@@ -88,15 +88,15 @@ SUBROUTINE ConstructMonitor(this, short_len_in, long_len_in, &
  END SUBROUTINE ConstructMonitor
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  !> Destruct the monitor.
- SUBROUTINE DestructMonitor(this)
+ PURE SUBROUTINE DestructMonitor(this)
  !> The monitor to destruct.
  TYPE(Monitor_t), INTENT(INOUT) :: this
  IF (ALLOCATED(this%win_short)) DEALLOCATE(this%win_short)
  IF (ALLOCATED(this%win_long)) DEALLOCATE(this%win_long)
  END SUBROUTINE DestructMonitor
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  !> Add a value to the window
- SUBROUTINE AppendValue(this, val)
+ PURE SUBROUTINE AppendValue(this, val)
  !> Add a value to the window
  TYPE(Monitor_t), INTENT(INOUT) :: this
  !> Value to add