subroutineclose_scopeprivate
subroutine close_scope(c)
Close the current scope.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| c | type(fypp_t) | inout | the state |
Source
Show the code
subroutine close_scope(c)
type(fypp_t), intent(inout) :: c !! the state
c%frame = max(c%frame - 1, 0)
end subroutine close_scope