Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(Grid), | intent(in) | :: | this |
function sizeGrid(this) result(n)
type(Grid), intent(in) :: this
integer :: n
if (.not. initialized(this)) then
n = 0
else
n = size(this%data%grid_data)
endif
end function sizeGrid