IIDEX

This funcion determines the position in a string at which a given character sequence begins without regard to case.

Function Return Value

IIDEX — Position in CHRSTR where KEY begins. (Output)
If KEY occurs more than once in CHRSTR, the starting position of the first occurrence is returned. If KEY does not occur in CHRSTR, then IIDEX returns a zero.

Required Arguments

CHRSTR — Character string to be searched. (Input)

KEY — Character string that contains the key sequence. (Input)

FORTRAN 90 Interface

Generic: IIDEX (CHRSTR, KEY)

Specific: The specific interface name is IIDEX.

FORTRAN 77 Interface

Single: IIDEX (CHRSTR, KEY)

Description

Routine IIDEX searches for a key string in a given string and returns the index of the starting element at which the key character string begins. It returns 0 if there is no match. The comparison is case insensitive. For a case-sensitive version, use the FORTRAN 77 intrinsic function INDEX.

Comments

1. If the length of KEY is greater than the length CHRSTR, IIDEX returns a zero.

Example

This example locates a key string.

 

USE IIDEX_INT

USE UMACH_INT

 

IMPLICIT NONE

INTEGER NOUT

CHARACTER KEY*5, STRING*10

! Get output unit number

CALL UMACH (2, NOUT)

! Locate KEY in STRING

STRING = 'a1b2c3d4e5'

KEY = 'C3d4E'

WRITE (NOUT,99999) STRING, KEY, IIDEX(STRING,KEY)

!

KEY = 'F'

WRITE (NOUT,99999) STRING, KEY, IIDEX(STRING,KEY)

!

99999 FORMAT (' For STRING = ', A10, ' and KEY = ', A5, ' IIDEX = ', I2, &

/)

END

Output

 

For STRING = a1b2c3d4e5 and KEY = C3d4E IIDEX = 5

 

For STRING = a1b2c3d4e5 and KEY = F IIDEX = 0