Документ взят из кэша поисковой машины. Адрес оригинального документа : http://xmm.vilspa.esa.es/sas/7.1.0/doc/ssclib/node9.html
Дата изменения: Mon Jul 9 01:26:53 2007
Дата индексирования: Sat Dec 22 08:00:49 2007
Кодировка:
Поисковые слова: http www.astronet.ru

XMM-Newton Science Analysis System


ssclib (ssclib-3.29.3) [xmmsas_20070708_1801-7.1.0]

Meta Index / Home Page / General-purpose array-processing utilities / Array or vector scalar

Return smallest true index of a logical vector

  integer function smallestTrueIndex(maskVector)
    logical(bool), intent(in) :: maskVector(:)
  end function

Examples:

  smallestTrueIndex(((/0, 1, 1/) > 0)) ! returns 2
  smallestTrueIndex(((/1, 1, 1/) > 0)) ! returns 1
  smallestTrueIndex(((/0, 0, 0/) > 0)) ! returns 4, ie 1 above vector limit.

size(maskVector)+1 is also returned if the vector is of zero size.