Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://xmm.vilspa.esa.es/sas/6.5.0/doc/ssclib/node8.html
Дата изменения: Tue Aug 16 01:58:12 2005 Дата индексирования: Sat Dec 22 07:35:59 2007 Кодировка: Поисковые слова: annular solar eclipse |
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.