cgthrz man page on OpenIndiana

Man page or keyword search:  
man Server   20441 pages
apropos Keyword Search (all sections)
Output format
OpenIndiana logo
[printable version]

cgthrz(3P)		    Sun Performance Library		    cgthrz(3P)

NAME
       cgthrz - Gather and zero.

SYNOPSIS
	SUBROUTINE CGTHRZ(NZ, Y, X, INDX)

	COMPLEX Y(*), X(*)
	INTEGER NZ
	INTEGER INDX(*)

	SUBROUTINE CGTHRZ_64(NZ, Y, X, INDX)

	COMPLEX Y(*), X(*)
	INTEGER*8 NZ
	INTEGER*8 INDX(*)

   F95 INTERFACE
	SUBROUTINE GTHRZ([NZ], Y, X, INDX)

	COMPLEX, DIMENSION(:) :: Y, X
	INTEGER :: NZ
	INTEGER, DIMENSION(:) :: INDX

	SUBROUTINE GTHRZ_64([NZ], Y, X, INDX)

	COMPLEX, DIMENSION(:) :: Y, X
	INTEGER(8) :: NZ
	INTEGER(8), DIMENSION(:) :: INDX

   C INTERFACE
       #include <sunperf.h>

       void cgthrz (const int nz, floatcomplex* y, floatcomplex* x, const int*
		 indx);

       void cgthrz_64 (const long nz, floatcomplex* y, floatcomplex* x, const
		 long* indx);

PURPOSE
       CGTHRZ - Gathers the specified elements from a vector y in full storage
       form into a vector x in compressed form.	 The gathered elements of y
       are set to zero.	 Only the elements of y whose indices are listed in
       indx are referenced.

	do i = 1, n
	  x(i) = y(indx(i))
	  y(indx(i)) = 0
	enddo

ARGUMENTS
       NZ (input) - INTEGER
	       Number of elements in the compressed form.  Unchanged on exit.

       Y (input/output)
	       Vector in full storage form.  Gathered elements are set to
	       zero.

       X (output)
	       Vector in compressed form.  Contains elements of y whose
	       indices are listed in indx on exit.

       INDX (input) - INTEGER
	       Vector containing the indices of the compressed form.  It is
	       assumed that the elements in INDX are distinct and greater than
	       zero.  Unchanged on exit.

3rd Berkeley Distribution	  6 Mar 2009			    cgthrz(3P)
[top]

List of man pages available for OpenIndiana

Copyright (c) for man pages and the logo by the respective OS vendor.

For those who want to learn more, the polarhome community provides shell access and support.

[legal] [privacy] [GNU] [policy] [cookies] [netiquette] [sponsors] [FAQ]
Tweet
Polarhome, production since 1999.
Member of Polarhome portal.
Based on Fawad Halim's script.
....................................................................
Vote for polarhome
Free Shell Accounts :: the biggest list on the net