PROGRAM Search

IMPLICIT NONE

CHARACTER(50) :: MyString

INTEGER :: Flag

PRINT *, "Enter a character string (MyString) of length less than or equal to 50:"

READ *, MyString

Flag=StringSearch(MyString)

IF (Flag==1) THEN

PRINT *, "Yes"

END IF

IF (Flag==0) THEN

PRINT *, "No"

END IF

CONTAINS

FUNCTION StringSearch(St)

INTEGER :: StringSearch, i

CHARACTER(50), INTENT(IN) :: St

CHARACTER(3) :: Strng

StringSearch=0

DO i=1, 48

Strng=MyString(I: I+2)

IF (Strng=="iat") THEN

StringSearch=1

END IF

END DO

END FUNCTION StringSearch

END PROGRAM Search