INTEGER FUNCTION INDEX1( NAME, N, NLIST ) CHARACTER*(*), INTENT(IN ) :: NAME ! Character string being searched for INTEGER , INTENT(IN ) :: N ! Length of array to be searched CHARACTER*(*), INTENT(IN ) :: NLIST( N ) ! array to be searched INTEGER FUNCTION INDEXINT1( IKEY, N, NLIST ) INTEGER, INTENT(IN ) :: IKEY ! integer being searched for INTEGER, INTENT(IN ) :: N ! Length of array to be searched INTEGER, INTENT(IN ) :: NLIST(*) ! array to be searched
NAME
or
INTEGER IKEY
in unsorted
list NLIST
and returns the subscript
(1...N)
at which it is found, or returns 0 when
NAME
(IKEY
) not found in NLIST
See also:
FINDC(),
FIND1(), FIND2(), FIND3(), FIND4(),
FINDR1(), FINDR2(), FINDR3(), FINDR4() for use finding keys in sorted lists.LOCATC(),
LOCAT1(), LOCAT2(), LOCAT3(), LOCAT4(),
LOCATR1(), LOCATR2(), LOCATR3(), LOCATR4() for use inserting items into sorted lists.
USE M3UTILIO
... USE M3UTILIO ... CHARACTER*4 :: NLIST( 4 ) = (/ 'aaaa', 'bbbb', 'cccc', 'dddd' /) INTEGER ILIST( 5 ) = (/ 2, 3, 5, 7, 11 /) INTEGER L ... L = INDEX1( 'cccc', 4, NLIST) ! L = 3 ... L = INDEX1( 'ffff', 4, NLIST) ! L = 0 ... L = INDEXINT1( 7, 5, ILIST) ! L = 4 ...
To: Models-3/EDSS I/O API: The Help Pages