Initialize a stats_type
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(stats_type), | intent(inout) | :: | stats |
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