casa  $Rev:20696$
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines
GlobalFTMachineCallbacks.h
Go to the documentation of this file.
00001 //# GlobalFTMachineCallbacks.h: Definition for GlobalFTMachineCallbacks
00002 //# Copyright (C) 1996,1997,1998,1999,2000,2002
00003 //# Associated Universities, Inc. Washington DC, USA.
00004 //#
00005 //# This library is free software; you can redistribute it and/or modify it
00006 //# under the terms of the GNU Library General Public License as published by
00007 //# the Free Software Foundation; either version 2 of the License, or (at your
00008 //# option) any later version.
00009 //#
00010 //# This library is distributed in the hope that it will be useful, but WITHOUT
00011 //# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
00012 //# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public
00013 //# License for more details.
00014 //#
00015 //# You should have received a copy of the GNU Library General Public License
00016 //# along with this library; if not, write to the Free Software Foundation,
00017 //# Inc., 675 Massachusetts Ave, Cambridge, MA 02139, USA.
00018 //#
00019 //# Correspondence concerning AIPS++ should be adressed as follows:
00020 //#        Internet email: aips2-request@nrao.edu.
00021 //#        Postal address: AIPS++ Project Office
00022 //#                        National Radio Astronomy Observatory
00023 //#                        520 Edgemont Road
00024 //#                        Charlottesville, VA 22903-2475 USA
00025 //#
00026 //#
00027 //# $Id$
00028 
00029 #ifndef SYNTHESIS_GLOBALFTMACHINECALLBACKS_H
00030 #define SYNTHESIS_GLOBALFTMACHINECALLBACKS_H
00031 
00032 #include <synthesis/TransformMachines/IlluminationConvFunc.h>
00033 
00034 #define NEED_UNDERSCORES
00035 namespace casa {
00036   extern "C" 
00037   {
00038     //
00039     // The Gridding Convolution Function (GCF) used by the underlying
00040     // gridder written in FORTRAN.
00041     //
00042     // The arguments must all be pointers and the value of the GCF at
00043     // the given (u,v) point is returned in the weight variable.  Making
00044     // this a function which returns a complex value (namely the weight)
00045     // has problems when called in FORTRAN - I (SB) don't understand
00046     // why.
00047     //
00048 #if defined(NEED_UNDERSCORES)
00049 #define gcppeij gcppeij_
00050 #define globalGCFPtr globalgcfptr_
00051 #endif
00052     typedef void (*GCFPtr)(Double *griduvw, Double *area,
00053                            Double *raoff1, Double *decoff1,
00054                            Double *raoff2, Double *decoff2, 
00055                            Int *doGrad,
00056                            Complex *weight,
00057                            Complex *dweight1,
00058                            Complex *dweight2,
00059                            Double *currentCFPA);
00060     
00061     extern void gcppeij(Double *griduvw, Double *area,
00062                    Double *raoff1, Double *decoff1,
00063                    Double *raoff2, Double *decoff2, 
00064                    Int *doGrad,
00065                    Complex *weight,
00066                    Complex *dweight1,
00067                    Complex *dweight2,
00068                    Double *currentCFPA);
00069     extern IlluminationConvFunc gwEij;
00070     //
00071     //---------------------------------------------------------------
00072     //
00073     //  IlluminationConvFunc gwEij;
00074     void gcppeij(Double *griduvw, Double *area,
00075                  Double *raoff1, Double *decoff1,
00076                  Double *raoff2, Double *decoff2, 
00077                  Int *doGrad,
00078                  Complex *weight,
00079                  Complex *dweight1,
00080                  Complex *dweight2,
00081                  Double *currentCFPA);
00082 
00083     /*
00084     void (*globalGCFPtr)(Double*griduvw, Double *area,
00085                          Double *raoff1, Double *decoff1,
00086                          Double *raoff2, Double *decoff2, 
00087                          Int *doGrad,
00088                          Complex *weight,
00089                          Complex *dweight1,
00090                          Complex *dweight2,
00091                          Double *currentCFPA) = NULL;
00092     */
00093   };
00094 };
00095 
00096 #endif