INTEGER FUNCTION INDEX1( NAME, N, NLIST ) CHARACTER*(*) NAME ! Character string being searched for INTEGER N ! Length of array to be searched CHARACTER*(*) NMLIST( N ) ! array to be searched
NAME
in unsorted
list NMLIST
and returns the subscript
(1...N)
at which it is found, or returns 0 when
NAME
not found in NMLIST
USE M3UTILIO
... 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