Load grid dimensions from file.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(grid_dimensions_object), | intent(inout) | :: | self | Grid dimensions object. |
||
| integer(kind=I4P), | intent(in) | :: | file_unit | File unit. |
subroutine load_from_file(self, file_unit)
!< Load grid dimensions from file.
class(grid_dimensions_object), intent(inout) :: self !< Grid dimensions object.
integer(I4P), intent(in) :: file_unit !< File unit.
integer(I4P) :: b !< Counter.
call self%destroy
read(unit=file_unit) self%blocks_number
if (self%blocks_number > 0) then
allocate(self%block_signature(1:self%blocks_number))
do b=1, self%blocks_number
call self%block_signature(b)%load_from_file(file_unit=file_unit)
enddo
endif
endsubroutine load_from_file