Previous: chruc Up: ../chrrtn.html Next: chrxlt

CHRVFY

 INTEGER FUNCTION  CHRVFY (TEXT,LENTXT,PATERN,LENPAT)
 (Verify Characters)

 Search the string defined by TEXT,LENTXT for the first character  which
 is not contained in  the pattern string  defined by PATERN,LENPAT.   If
 either LENTXT or LENPAT is less than 1, return 0.  If all characters in
 the first string are  found in PATERN(*),  return 0.  Otherwise  return
 the index of the first  mismatching character in TEXT(*).  Thus  CHRVFY
 always returns a value .GE.  0.  It is important to note that the index
 returned points to a character in the  first string, not to one in  the
 pattern string.