INTEGER FUNCTION INDEX1( NAME, N, NLIST )
CHARACTER*(*) NAME ! Character string being searched for
INTEGER N ! Length of array to be searched
CHARACTER*(*) NLIST( N ) ! array to be searched
...
CHARACTER*4 NLIST( 4 )
DATA NLIST / 'aaaa', 'bbbb', 'cccc', 'dddd' /
INTEGER L
INTEGER INDEX1
...
L = INDEX1( 'cccc', 4, NLIST) ! L = 3
...
L = INDEX1( 'ffff', 4, NLIST) ! L = 0
...
To: Models-3/EDSS I/O API: The Help Pages