gtvargetsliceall.f90

Go to the documentation of this file.

 
 
subroutine gtvargetsliceall(var, start, count, stride)
  use gtdata_types, only: gt_variable
  use gtdata_generic, only: gtvargetslice
  implicit none
  type(gt_variable), intent(in):: var
  integer, intent(out), optional:: start(:), count(:), stride(:)
  integer:: nd, i
  logical:: all
  nd = huge(1)
  all = present(start) .and. present(count) .and. present(stride)
  if (present(start)) nd = min(nd, size(start))
  if (present(count)) nd = min(nd, size(count))
  if (present(stride)) nd = min(nd, size(stride))
  do, i = 1, nd
    if (all) then
      call gtvargetslice(var, i, start(i), count(i), stride(i))
      cycle
    endif
    if (present(start)) call gtvargetslice(var, i, start=start(i))
    if (present(count)) call gtvargetslice(var, i, count=count(i))
    if (present(stride)) call gtvargetslice(var, i, stride=stride(i))
  enddo
end subroutine gtvargetsliceall