Man page or keyword search:   man All Sections 1 - General Commands 2 - System Calls 3 - Subroutines, Functions 4 - Special Files 5 - File Formats 6 - Games and Screensavers 7 - Macros and Conventions 8 - Maintenence Commands 9 - Kernel Interface New Commands Server 4.4BSD AIX Alpinelinux Archlinux Aros BSDOS BSDi Bifrost CentOS Cygwin Darwin Debian DigitalUNIX DragonFly ElementaryOS Fedora FreeBSD Gentoo GhostBSD HP-UX Haiku Hurd IRIX Inferno JazzOS Kali Knoppix LinuxMint MacOSX Mageia Mandriva Manjaro Minix MirBSD NeXTSTEP NetBSD OPENSTEP OSF1 OpenBSD OpenDarwin OpenIndiana OpenMandriva OpenServer OpenSuSE OpenVMS Oracle PC-BSD Peanut Pidora Plan9 QNX Raspbian RedHat Scientific Slackware SmartOS Solaris SuSE SunOS Syllable Tru64 UNIXv7 Ubuntu Ultrix UnixWare Xenix YellowDog aLinux   31559 pages apropos Keyword Search (all sections) Output format html ascii pdf view pdf save postscript

CSMG(3I)					       Last changed: 2-5-98

NAME
     CSMG - Performs a conditional scalar merge

SYNOPSIS
     CSMG ([I=]i, [J=]j, [K=]k)

IMPLEMENTATION
     UNICOS, UNICOS/mk, and IRIX systems

STANDARDS
     CF90 and MIPSpro 7 Fortran 90 compiler extension to Fortran 90

DESCRIPTION
     The CSMG intrinsic function merges i and j, controlled by the bit mask
     in k.  When a 1 bit appears in k, the corresponding bit of i becomes
     the corresponding bit of the result.  When a 0 bit appears in k, the
     corresponding bit of j is taken.  Therefore, CSMG(i, j, k) equals the
     following specification:

	  (i .AND. k) .OR. (j .AND. .NOT. k)

     The CSMG function accepts the following arguments:

     i	  First item to be merged.  Can be of Boolean, integer, real, or
	  Cray pointer type.

	  If i is of type integer or real, it must be of KIND=8 on UNICOS
	  and UNICOS/mk systems.  On IRIX systems, i can be of KIND=4 or
	  KIND=8, but it must be the same length as j and k.

     j	  Second item to be merged.  Can be of Boolean, integer, real, or
	  Cray pointer type.

	  If j is of type integer or real, it must be of KIND=8 on UNICOS
	  and UNICOS/mk systems.  On IRIX systems, j can be of KIND=4 or
	  KIND=8, but it must be the same length as i and k.

     k	  Bit mask.  Can be of Boolean, integer, real, or Cray pointer
	  type.

	  If k is of type integer or real, it must be of KIND=8 on UNICOS
	  and UNICOS/mk systems.  On IRIX systems, k can be of KIND=4 or
	  KIND=8, but it must be the same length as i and j.

     CSMG is an elemental function.  The name of this intrinsic cannot be
     passed as an argument.

NOTES
     The CSMG intrinsic function is outmoded.  Refer to the Fortran
     Language Reference Manual, Volume 3, publication SR-3905, for
     information on outmoded features and their preferred standard
     alternatives.

RETURN VALUES
     The return value is of Boolean type.

EXAMPLES
     Example 1:	 Specifying CSMG(i,j,MASK(64) or CSMG(i,j,-1) returns i.

     Example 2:	 CSMG(i,j,0) returns j.

     Example 3:	 Specifying the conditional scalar merge CSMG( 'ABCDEFGH'H,
     '12345678'H, X'0000FFFFFF0000FF' ) generates '12CDE67H'H as the
     result.

     Example 4:	 This example applies only to UNICOS systems.

		INTEGER EXPONENT,EXPMASK
		PARAMETER( EXPMASK = X'7FFF000000000000' )
	  C Statement function:
		EXPONENT(X) = SHIFTR(X .AND. EXPMASK, 48)
	  C Statement function:
		DIVBY2(X) =
	      & CSMG( SHIFTL(EXPONENT(X)-1,48),
	      &	      X,
	      &	      EXPMASK )

     According to this example, a call to DIVBY2(-28.0) yields -14.0.

SEE ALSO
     Intrinsic Procedures Reference Manual, publication SR-2138, for the
     printed version of this man page.

Vote for polarhome