CSMG (3sciport)

Performs a scalar boolean merge

SYNOPSIS

  boolean = CSMG( arg1, arg2, mask )

FUNCTION VALUE

  csmg            Boolean. (Integer, Logical, or Real.)
                  The result of a bit-wise boolean merge of arg1 and arg1
                  under the control of mask.

ARGUMENTS

  arg1            Integer, Logical, or Real.
                  An input argument.

  arg2            Integer, Logical, or Real.
                  An input argument.

  mask            Integer, Logical, or Real.
                  The mask argument.

DESCRIPTION

  The external function CSMG returns the bit-wise boolean result of the
  boolean operation:

      ((arg1 .AND. mask) .OR. (arg2 .AND. (.NOT.mask)))

  For equations and other information, see Volume 3: UNICOS Math and
  Scientific Library Reference Manual SR-2081 7.0, Cray Research, Inc.

NOTES

  Since CSMG is not an ANSI Fortran 77 intrinsic function, it must be
  declared as an external function of type integer, logical or real. For
  example:

          EXTERNAL CSMG
          INTEGER  CSMG
          LOGICAL  X,Y
          INTEGER  I
          ...
          X = .FALSE.
          Y = .TRUE.
          I = CSMG(X,Y,'AAAAAAAAAAAAAAAA'X) ! Same as I = '555555555555555'X

  For more information about boolean functions, see the sciport man page.