stats_init Subroutine

private subroutine stats_init(stats)

Initialize a stats_type

Arguments

TypeIntentOptionalAttributesName
type(stats_type), intent(inout) :: stats

Contents

Source Code


Source Code

   SUBROUTINE stats_init(stats)
      !! Initialize a stats_type
      TYPE(stats_type), INTENT(INOUT)                    :: stats

      ALLOCATE (stats%num_mnk_stacks(1, 9))
      stats%num_mnk_stacks(1, :) = 0 ! entry for the default stack
   END SUBROUTINE stats_init