SCAN— Scan a string for the presence of a set of charactersIf BACK is either absent or equalsFALSE, this functionreturns the position of the leftmost character of STRING that isin SET. If BACK equalsTRUE, the rightmost positionis returned. If no character of SET is found in STRING, theresult is zero. RESULT = SCAN(STRING, SET [, BACK [, KIND]])|STRING||Shall be of type ||SET||Shall be of type ||BACK||(Optional) shall be of type ||KIND||(Optional) An |INTEGERand of kind KIND. If KIND is absent, the return value is of 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