INDEX1()

Fortran version:

    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

NO C version:

Summary:

Searches for character-string key 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

Preconditions:

String-lengths match: LEN( NAME ) = LEN( NLIST( I ) )

Fortran Usage:

For Fortran-90 declarations and interface checking:
    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
    ...
    

C Usage:

don't


Previous: GRIDOPS

Next: JUNIT

Up: Utility Routines

To: Models-3/EDSS I/O API: The Help Pages