character*10 str1 character*3 str2 character*12 str3 str1='hello you' str2='you' str3='hello there' i=index(str1,str2) j=index(str1,str3) print *,i,j stop end