Return the IO length storage.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(grid_dimensions_object), | intent(in) | :: | self | Grid dimensions object. |
IO length storage.
function iolength(self)
!< Return the IO length storage.
class(grid_dimensions_object), intent(in) :: self !< Grid dimensions object.
integer(I4P) :: iolength !< IO length storage.
inquire(iolength=iolength) self%blocks_number
if (self%blocks_number > 0) iolength = iolength + self%blocks_number * self%block_signature(1)%iolength()
endfunction iolength