Документ взят из кэша поисковой машины. Адрес оригинального документа : http://xmm.vilspa.esa.es/sas/8.0.0/doc/ssclib/node8.html
Дата изменения: Wed Jul 2 03:52:38 2008
Дата индексирования: Fri Sep 5 17:54:03 2008
Кодировка:

XMM-Newton Science Analysis System


ssclib (ssclib-3.33.4) [xmmsas_20080701_1801-8.0.0]

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

Return largest true index of a logical vector

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

Examples:

  largestTrueIndex(((/0, 1, 1/) > 0)) ! returns 3
  largestTrueIndex(((/0, 1, 0/) > 0)) ! returns 2
  largestTrueIndex(((/0, 0, 0/) > 0)) ! returns 0, ie 1 below vector limit.

0 is also returned if the vector is of zero size.