Функции, используемые в символьных выражениях

1) Len (Line) – длина символьной переменной или константы. В случае переменной это длина, объявленная в ее описании, в случае константы – количество символов между кавычками.
Аргумент Line – символьная переменная или константа.
Возвращаемое значение – длина аргумента (целое число)

В предыдущем примере: Len (Line10) равно 10; Len (‘Форт’) равно 4

2) L en_trim (Line) – длина строки без завершающих пробелов. Завершающие пробелы – это пробелы, идущие подряд после последнего символа, не равного пробелу, до конца строки
Аргумент Line – символьная переменная или константа.
Возвращаемое значение – длина аргумента без завершающих пробелов (целое число)

В предыдущем примере: после присваивания Line10 = ‘Фор’ // ‘тран’ Line10 равно ‘Фортран ’ (3 завершающих пробела),
а L en_trim (Line10) равно 7

3) Index (Line,Sub,L)– поиск подстроки в строке.
Аргументы Line – символьная переменная или константа (место поиска).
Sub – символьная переменная или константа (предмет поиска).
L – направление поиска (logical);.
. false. – слева направо,. true. – справа налево
Если третий аргумент отсутствует, то по умолчанию L =. false.
Возвращаемое значение – номер позиции первого вхождения Sub в Line (целое число). Независимо от направления поиска, номер позиции всегда ориентирован на начало строки. Если Sub не входит в Line, результат = 0.

Пример:

Line10 = ‘Фор’ // ‘тран’

N = Index (Line10, ‘тран’)! N = 4

N1 = Index (Line10, ‘р’,.true.)! N1 = 5

При вычислении N1 поиск производится справа налево (<–), поэтому N1 = 5 (номер позиции последнего символа ‘р’ в переменной Line10)