9.234 SCAN — Поиск в строке набора символов

Описание:

Ищет в строке STRING любой из символов набора SET.

Если BACK отсутствует или равно FALSE, функция возвращает позицию самого левого символа из STRING, принадлежащего набору SET. Если BACK равно TRUE, возвращается позиция самого правого символа. Если ни один символ из набора SET не найден в строке STRING, результат равен нулю.

Стандарт:

Fortran 95 и более поздние версии, с аргументом KIND Fortran 2003 и более поздние версии

Класс:

Элементарная функция

Синтаксис:

RESULT = SCAN(STRING, SET[, BACK [, KIND]])

Аргументы:

STRING	Должен быть типа CHARACTER.
SET	Должен быть типа CHARACTER.
BACK	(Необязательно) должен быть типа LOGICAL.
KIND	(Необязательно) Выражение инициализации, указывающее параметр вида результата.

Значение результата:

Значение результата имеет тип INTEGER и вид KIND. Если KIND отсутствует, значение результата имеет стандартный целочисленный вид.

Пример:

PROGRAM test_scan
  WRITE(*,*) SCAN("FORTRAN", "AO")          ! 2, found 'O'
  WRITE(*,*) SCAN("FORTRAN", "AO", .TRUE.)  ! 6, found 'A'
  WRITE(*,*) SCAN("FORTRAN", "C++")         ! 0, found none
END PROGRAM

См. также:

Функция INDEX, VERIFY