Load nodes from file.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(block_object), | intent(inout) | :: | self | Block. |
||
| integer(kind=I4P), | intent(in) | :: | file_unit | File unit. |
||
| integer(kind=I4P), | intent(in) | :: | pos | Position to start the loading. |
subroutine load_nodes_from_file(self, file_unit, pos)
!< Load nodes from file.
class(block_object), intent(inout) :: self !< Block.
integer(I4P), intent(in) :: file_unit !< File unit.
integer(I4P), intent(in) :: pos !< Position to start the loading.
read(file_unit, pos=pos, iostat=self%error%status) self%node%vertex%x, self%node%vertex%y, self%node%vertex%z
call self%compute_extents
endsubroutine load_nodes_from_file