casa: code/synthesis/TransformMachines/FortranizedLoops.h Source File

Go to the documentation of this file.
00001 // -*- C++ -*-
00002 //# FortranizedLoops.h: Forward decleration of FORTRAN functions
00003 //# with the gridding/de-gridding inner loops.
00004 //# Copyright (C) 1997,1998,1999,2000,2001,2002,2003
00005 //# Associated Universities, Inc. Washington DC, USA.
00006 //#
00007 //# This library is free software; you can redistribute it and/or modify it
00008 //# under the terms of the GNU Library General Public License as published by
00009 //# the Free Software Foundation; either version 2 of the License, or (at your
00010 //# option) any later version.
00011 //#
00012 //# This library is distributed in the hope that it will be useful, but WITHOUT
00013 //# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
00014 //# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public
00015 //# License for more details.
00016 //#
00017 //# You should have received a copy of the GNU Library General Public License
00018 //# along with this library; if not, write to the Free Software Foundation,
00019 //# Inc., 675 Massachusetts Ave, Cambridge, MA 02139, USA.
00020 //#
00021 //# Correspondence concerning AIPS++ should be addressed as follows:
00022 //#        Internet email: aips2-request@nrao.edu.
00023 //#        Postal address: AIPS++ Project Office
00024 //#                        National Radio Astronomy Observatory
00025 //#                        520 Edgemont Road
00026 //#                        Charlottesville, VA 22903-2475 USA
00027 //#
00028 //# $Id$
00029 namespace casa{
00030   extern "C" 
00031   {
00032     void faccumulatetogrid_(Complex *grid, Complex *CF, 
00033                             Complex *nvalue, Double *wVal, 
00034                             Int *scaledSupport, Float *scaledSampling,
00035                             Double *off, Int *convOrigin, Int *cfShape, Int *loc,
00036                             Int *igrdpos, Double *sinDPA, Double *cosDPA,
00037                             Int *finitePointingOffset,
00038                             Int *doPSFOnly,
00039                             Complex *norm,
00040                             Complex *phaseGrad,
00041                             Int *imNX, Int *imNY, Int *imNP, Int *imNC,
00042                             Int *cfNX, Int *cfNY, Int *cfNP, Int *cfNC,
00043                             Int *phNX, Int *phNY);
00044     void dfaccumulatetogrid_(DComplex *grid, Complex *CF, 
00045                             Complex *nvalue, Double *wVal, 
00046                             Int *scaledSupport, Float *scaledSampling,
00047                             Double *off, Int *convOrigin, Int *cfShape, Int *loc,
00048                             Int *igrdpos, Double *sinDPA, Double *cosDPA,
00049                             Int *finitePointingOffset,
00050                             Int *doPSFOnly,
00051                             Complex *norm,
00052                             Complex *phaseGrad,
00053                             Int *imNX, Int *imNY, Int *imNP, Int *imNC,
00054                             Int *cfNX, Int *cfNY, Int *cfNP, Int *cfNC,
00055                             Int *phNX, Int *phNY);
00056     void faccumulatefromgrid_(Complex *nvalue, const Complex *grid, Complex *CF, 
00057                               Double *wVal, 
00058                               Int *scaledSupport, Float *scaledSampling,
00059                               Double *off, Int *convOrigin, Int *cfShape, Int *loc,
00060                               Int *igrdpos, Double *sinDPA, Double *cosDPA,
00061                               Int *finitePointingOffset,
00062                               Complex *phaseGrad,
00063                               Complex *phasor,
00064                               Int *imNX, Int *imNY, Int *imNP, Int *imNC,
00065                               Int *cfNX, Int *cfNY, Int *cfNP, Int *cfNC,
00066                               Int *phNX, Int *phNY);
00067   };
00068 }