M502 Decoding Options Characters

UOPTC and UOPT compare a string of actual option-characters against a similar string of possible option-characters filling an INTEGER vector with 1's and 0's, indicating for each possible option whether or not it was taken.

Structure:

SUBROUTINE subprogram
User Entry Names: UOPTC, UOPT

Usage:

    CALL UOPTC(CHACT,CHPOSS,IOPT)

CHACT

( CHARACTER) String of actual option-characters.

CHPOSS

( CHARACTER) String of possible option-characters.

IOPT

( INTEGER) Vector of at least LEN(CHPOSS) words, the j-th word of which is set to 1 or 0, depending on whether the j-th possible character does or does not occur in CHACT.

    CALL UOPT(IACT,IPOSS,IOPT,N)

IACT

Hollerith string of actual option-characters. It is terminated by the first character not occuring in the string of possibilities.

IPOSS

Hollerith string of N possible option-characters ($N\; \le 30$ ).

IOPT

A vector of at least N words, the j-th word of which is set to 1 or 0, depending on whether the j-th possible character does or does not occur in the IACT string.

Examples:

    CALL UOPTC('+AB','ABC+/Y',IOPT)
    CALL UOPT (4H+AB.,6HABC+/Y,IOPT,6)

Notes:

UOPT was written for Fortran 4 and should no longer be used for new programs.
$•$

M503