CVMGM (3sciport)

Performs a conditional merge

SYNOPSIS

  boolean = CVMGM( arg1, arg2, select )

FUNCTION VALUE

  cvmgm           Boolean. (Integer, Logical, or Real.)
                  The result of the conditional merge.

ARGUMENTS

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

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

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

DESCRIPTION

  The external function CVMGM returns arg1 if the sign bit of select is set,
  otherwise arg2 is returned.

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

NOTES

  Since CVMGM 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 CVMGM
          INTEGER  CVMGM
          LOGICAL  X,Y
          INTEGER  I
          ...
          X = .FALSE.
          Y = .TRUE.
          I = CVMGM(X,Y,-1)               ! Same as I = 0

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