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