Initialize grid dimensions.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(grid_dimensions_object), | intent(inout) | :: | self | Grid dimensions object. |
||
| type(block_signature_object), | intent(in), | optional | :: | block_signature(1:) | Dimensions of each block. |
pure subroutine initialize(self, block_signature)
!< Initialize grid dimensions.
class(grid_dimensions_object), intent(inout) :: self !< Grid dimensions object.
type(block_signature_object), intent(in), optional :: block_signature(1:) !< Dimensions of each block.
call self%destroy
if (present(block_signature)) then
self%blocks_number = size(block_signature, dim=1)
allocate(self%block_signature(1:self%blocks_number), source=block_signature)
endif
endsubroutine initialize