Function:     MATCH

Purpose:      Does a minimal match on strings (not case sensitive).

Category:     STRINGS

File:         match.c

Author:       K.G. Begeman

Use:          INTEGER MATCH( LIST  ,    Input     CHARACTER*(*) ARRAY
                             NLIST ,    Input     INTEGER
                             TEST  )    Input     CHARACTER*(*)

              MATCH      Returns:
                         >0: Item number in LIST which is matched by TEST
                          0: No match
                         -1: Multiple matching items in LIST
              LIST       Character array containing strings which will
                         be compared with TEST
              NLIST      Number of items in LIST
              TEST       Character string  to be compared to all items
                         in LIST

Updates:      Sep 20, 1990: KGB, Document created.