M502: Decoding Options Characters

Author(s): J. Zoll, P. Rastl	Library: KERNLIB
Submitter:	Submitted: 21.09.1971
Language: Fortran or Assembler	Revised: 16.09.1991

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 ( ).

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)

will set the first 6 elements of IOPT to 1,1,0,1,0,0.

Notes:

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