Source of wprojgrid.f - casa6

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

*     Copyright (C) 1999,2001,2002

*     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: fwproj.f 17791 2004-08-25 02:28:46Z cvsmgr $

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

C Grid a number of visibility records

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

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

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

     $     support, convsize, sampling, wconvsize, 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(3),

     $     offset(3)

      double precision dphase(nrow), uvdist

      complex phasor

      integer flag(nvispol, nvischan, nrow)

      integer rflag(nrow)

      real weight(nvischan, nrow), phase

      double precision sumwt(npol, nchan)

      integer rownum

      integer support(*), rsupport

      integer chanmap(nchan), polmap(npol)

      integer dopsf

      double complex nvalue

      integer convsize, sampling, wconvsize

      complex convfunc(convsize/2-1, convsize/2-1, wconvsize),

     $     cwt

      real norm

      real wt

casa6