Function: USERANGLE_indexn Purpose: find first position of any one of the characters of str2 within str1 Category: user io Author: Do Kester Use: integer USERANGLE_INDEXN( str1, I character*(*) str2 ) I character*(*) userangle_indexn value of the first position 0 if none is found Update: 910911 DK