インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス
Portability Function: Locates the index of the last occurrence of a substring within a string.
USE IFPORT
result = RINDEX (string,substr)
string |
(Input) Character*(*). Original string to search. |
substr |
(Input) Character*(*). String to search for. |
The result type is INTEGER(4). The result is the starting position of the final occurrence of substrg in string. The result is zero if substring does not occur in string.
USE IFPORT
character*80 mainstring
character*4 shortstr
integer(4) where
mainstring="Hello Hello Hello Hello There There There"
shortstr="Hello"
where=rindex(mainstring,shortstr)
! where is 19