SCAN— Scan a string for the presence of a set of characters
If BACK is either absent or equals
FALSE, this function
returns the position of the leftmost character of STRING that is
in SET. If BACK equals
TRUE, the rightmost position
is returned. If no character of SET is found in STRING, the
result is zero.
RESULT = SCAN(STRING, SET[, BACK])
|STRING||Shall be of type |
|SET||Shall be of type |
|BACK||(Optional) shall be of type |
INTEGERand of the default integer 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