_COR2D(3F)							    _COR2D(3F)

NAME    [Toc]    [Back]

     SCOR2D, DCOR2D, CCOR2D, ZCOR2D - 2D Correlation in	the space domain.

FORTRAN	SPECIFICATION
     subroutine	SCOR2D(	f, incf, ldf, ifx0, n_fx, ify0,	n_fy,
			g, incg, ldg, igx0, n_gx, igy0,	n_gy,
			h, inch, ldh, ihx0, n_hx, ihy0,	n_hy )
     integer		incf, ldf, ifx0, n_fx, ify0, n_fy
			incg, ldg, igx0, n_gx, igy0, n_gy
			inch, ldh, ihx0, n_hx, ihy0, n_hy
     real		f(ldf,*), g(ldg,*), h(ldh,*)

     subroutine	DCOR2D(	f, incf, ldf, ifx0, n_fx, ify0,	n_fy,
			g, incg, ldg, igx0, n_gx, igy0,	n_gy,
			h, inch, ldh, ihx0, n_hx, ihy0,	n_hy )
     integer		incf, ldf, ifx0, n_fx, ify0, n_fy
			incg, ldg, igx0, n_gx, igy0, n_gy
			inch, ldh, ihx0, n_hx, ihy0, n_hy
     double precision	f(ldf,*), g(ldg,*), h(ldh,*)

     subroutine	CCOR2D(	f, incf, ldf, ifx0, n_fx, ify0,	n_fy,
			g, incg, ldg, igx0, n_gx, igy0,	n_gy,
			h, inch, ldh, ihx0, n_hx, ihy0,	n_hy )
     integer		incf, ldf, ifx0, n_fx, ify0, n_fy
			incg, ldg, igx0, n_gx, igy0, n_gy
			inch, ldh, ihx0, n_hx, ihy0, n_hy
     complex		f(ldf,*), g(ldg,*), h(ldh,*)

     subroutine	ZCOR2D(	f, incf, ldf, ifx0, n_fx, ify0,	n_fy,
			g, incg, ldg, igx0, n_gx, igy0,	n_gy,
			h, inch, ldh, ihx0, n_hx, ihy0,	n_hy )
     integer		incf, ldf, ifx0, n_fx, ify0, n_fy
			incg, ldg, igx0, n_gx, igy0, n_gy
			inch, ldh, ihx0, n_hx, ihy0, n_hy
     double complex	f(ldf,*), g(ldg,*), h(ldh,*)

C SPECIFICATION    [Toc]    [Back]

     #include <conv.h>

     void scor2d( float	*f, int	incf, int lsf, int ifx0, int n_fx,
		  int ify0, int	n_fy,
		  float	*g, int	incg, int ldg, int igx0, int n_gx,
		  int igy0, int	n_gy,
		  float	*h, int	inch, int ldh, int ihx0, int n_hx,
		  int ihy0, int	n_hy )

     void dcor2d( double *f, int incf, int ldf,	int ifx0, int n_fx,
		  int ify0, int	n_fy,
		  double *g, int incg, int ldg,	int igx0, int n_gx,
		  int igy0, int	n_gy,
		  double *h, int inch, int ldh,	int ihx0, int n_hx,



									Page 1






_COR2D(3F)							    _COR2D(3F)



		  int ihy0, int	n_hy )

     void ccor2d( complex *f, int incf,	int ldf, int ifx0, int n_fx,
		  int ify0, int	n_fy,
		  complex *g, int incg,	int ldg, int igx0, int n_gx,
		  int igy0, int	n_gy,
		  complex *h, int inch,	int ldh, int ihx0, int n_hx,
		  int ihy0, int	n_hy )

     void zcor2d( zomplex *f, int incf,	int ldf, int ifx0, int n_fx,
		  int ify0, int	n_fy,
		  zomplex *g, int incg,	int ldg, int igx0, int n_gx,
		  int igy0, int	n_gy,
		  zomplex *h, int inch,	int ldh, int ihx0, int n_hx,
		  int ihy0, int	n_hy )

DESCRIPTION    [Toc]    [Back]

     SCOR2D, DCOR2D, CCOR2D and	ZCOR2D compute a 2D correlation	in the space
     domain:

		      h(i,j) = Sum[ f(k,l) * g(i+k,j+l)	]

PARAMETERS    [Toc]    [Back]

     f	     Vector containing sequence	"f"

     incf    Increment between two successive lines   of "f"

     ldf     Increment between two successive columns of "f"

     ifx0    Index of the first	element	of each	column of "f"

     n_fx    Number of elements	(lines)	of each	column of "f"

     ify0    Index of the first	column of "f"

     n_fy    Index of the  last	column of "f"


     g	     Vector containing sequence	"g"

     incg    Increment between two successive lines   of "g"

     ldg     Increment between two successive columns of "g"

     igx0    Index of the first	element	of each	column of "g"






									Page 2






_COR2D(3F)							    _COR2D(3F)



     n_gx    Number of elements	(lines)	of each	column of "g"

     igy0    Index of the first	column of "g"

     n_gy    Index of the  last	column of "g"


     h	     Vector containing sequence	"h"

     inch    Increment between two successive lines   of "h"

     ldh     Increment between two successive columns of "h"

     ihx0    Index of the first	element	of each	column of "h"

     n_hx    Number of elements	(lines)	of each	column of "h"

     ihy0    Index of the first	column of "h"

     n_hy    Index of the  last	column of "h"



IMPORTANT NOTE:
	   The array pointers must all point to	the first element of the
	   array "(ifx0,ify0)",	"(igx0,igy0)" and "(ihx0,ihy0)". If "f"
	   for example is defined as
		dimension f(-25:45,10:21)
	   Then	"dcor2d" must be called	with the following parameters
		call dcor2d( f(-25,10),(45-(-25)+1),-25,45,10,21 ... )

AUTHORS    [Toc]    [Back]

	  Jean-Pierre Panziera,	1/12/93.


									PPPPaaaaggggeeee 3333