casa6

*=======================================================================

*     Copyright (C) 1999-2012

*     Associated Universities, Inc. Washington DC, USA.

*

*     This library is free software; you can redistribute it and/or

*     modify it under the terms of the GNU Library General Public

*     License as published by the Free Software Foundation; either

*     version 2 of the License, or (at your option) any later version.

*

*     This library is distributed in the hope that it will be useful,

*     but WITHOUT ANY WARRANTY; without even the implied warranty of

*     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

*     GNU Library General Public License for more details.

*

*     You should have received a copy of the GNU Library General Public

*     License along with this library; if not, write to the Free

*     Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,

*     MA 02139, USA.

*

*     Correspondence concerning AIPS++ should be addressed as follows:

*            Internet email: aips2-request@nrao.edu.

*            Postal address: AIPS++ Project Office

*                            National Radio Astronomy Observatory

*                            520 Edgemont Road

*                            Charlottesville, VA 22903-2475 USA

*

*     $Id: fgridft.f 19685 2006-10-05 20:57:29Z rurvashi $

*-----------------------------------------------------------------------

C

C Grid a number of visibility records

C

      subroutine ggrid (uvw, dphase, values, nvispol, nvischan,

     $   dopsf, flag, rflag, weight, nrow, rownum,

     $   scale, offset, grid, nx, ny, npol, nchan, freq, c,

     $   support, sampling, convFunc, chanmap, polmap, sumwt)

​

      implicit none

      integer nx, ny, npol, nchan, nvispol, nvischan, nrow

      complex values(nvispol, nvischan, nrow)

      double complex grid(nx, ny, npol, nchan)

      double precision uvw(3, nrow), freq(nvischan), c, scale(2),

     $     offset(2)

      double precision dphase(nrow), uvdist

      complex phasor

      integer flag(nvispol, nvischan, nrow)

      integer rflag(nrow)

      real weight(nvischan, nrow)

      double precision sumwt(npol, nchan)

      integer rownum

      integer support, sampling

      integer chanmap(nchan), polmap(npol)

      integer dopsf

​

      double complex nvalue

​

      double precision convFunc(*)

      double precision norm

      double precision wt, wtx, wty

​

      logical ogrid

​

      double precision pos(2)

      integer loc(2), off(2), iloc(2)