casa  5.7.0-16
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
GlobalFTMachineCallbacks.h
Go to the documentation of this file.
1 //# GlobalFTMachineCallbacks.h: Definition for GlobalFTMachineCallbacks
2 //# Copyright (C) 1996,1997,1998,1999,2000,2002
3 //# Associated Universities, Inc. Washington DC, USA.
4 //#
5 //# This library is free software; you can redistribute it and/or modify it
6 //# under the terms of the GNU Library General Public License as published by
7 //# the Free Software Foundation; either version 2 of the License, or (at your
8 //# option) any later version.
9 //#
10 //# This library is distributed in the hope that it will be useful, but WITHOUT
11 //# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
12 //# FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public
13 //# License for more details.
14 //#
15 //# You should have received a copy of the GNU Library General Public License
16 //# along with this library; if not, write to the Free Software Foundation,
17 //# Inc., 675 Massachusetts Ave, Cambridge, MA 02139, USA.
18 //#
19 //# Correspondence concerning AIPS++ should be adressed as follows:
20 //# Internet email: aips2-request@nrao.edu.
21 //# Postal address: AIPS++ Project Office
22 //# National Radio Astronomy Observatory
23 //# 520 Edgemont Road
24 //# Charlottesville, VA 22903-2475 USA
25 //#
26 //#
27 //# $Id$
28 
29 #ifndef SYNTHESIS_GLOBALFTMACHINECALLBACKS_H
30 #define SYNTHESIS_GLOBALFTMACHINECALLBACKS_H
31 
33 
34 #define NEED_UNDERSCORES
35 namespace casa {
36  extern "C"
37  {
38  //
39  // The Gridding Convolution casacore::Function (GCF) used by the underlying
40  // gridder written in FORTRAN.
41  //
42  // The arguments must all be pointers and the value of the GCF at
43  // the given (u,v) point is returned in the weight variable. Making
44  // this a function which returns a complex value (namely the weight)
45  // has problems when called in FORTRAN - I (SB) don't understand
46  // why.
47  //
48 #if defined(NEED_UNDERSCORES)
49 #define gcppeij gcppeij_
50 #define globalGCFPtr globalgcfptr_
51 #endif
52  typedef void (*GCFPtr)(casacore::Double *griduvw, casacore::Double *area,
53  casacore::Double *raoff1, casacore::Double *decoff1,
54  casacore::Double *raoff2, casacore::Double *decoff2,
55  casacore::Int *doGrad,
56  casacore::Complex *weight,
57  casacore::Complex *dweight1,
58  casacore::Complex *dweight2,
59  casacore::Double *currentCFPA);
60 
61  extern void gcppeij(casacore::Double *griduvw, casacore::Double *area,
62  casacore::Double *raoff1, casacore::Double *decoff1,
63  casacore::Double *raoff2, casacore::Double *decoff2,
64  casacore::Int *doGrad,
65  casacore::Complex *weight,
66  casacore::Complex *dweight1,
67  casacore::Complex *dweight2,
68  casacore::Double *currentCFPA);
70  //
71  //---------------------------------------------------------------
72  //
73  // IlluminationConvFunc gwEij;
74  void gcppeij(casacore::Double *griduvw, casacore::Double *area,
75  casacore::Double *raoff1, casacore::Double *decoff1,
76  casacore::Double *raoff2, casacore::Double *decoff2,
77  casacore::Int *doGrad,
78  casacore::Complex *weight,
79  casacore::Complex *dweight1,
80  casacore::Complex *dweight2,
81  casacore::Double *currentCFPA);
82 
83  /*
84  void (*globalGCFPtr)(casacore::Double*griduvw, casacore::Double *area,
85  casacore::Double *raoff1, casacore::Double *decoff1,
86  casacore::Double *raoff2, casacore::Double *decoff2,
87  casacore::Int *doGrad,
88  casacore::Complex *weight,
89  casacore::Complex *dweight1,
90  casacore::Complex *dweight2,
91  casacore::Double *currentCFPA) = NULL;
92  */
93  };
94 };
95 
96 #endif
int Int
Definition: aipstype.h:50
void gcppeij(casacore::Double *griduvw, casacore::Double *area, casacore::Double *raoff1, casacore::Double *decoff1, casacore::Double *raoff2, casacore::Double *decoff2, casacore::Int *doGrad, casacore::Complex *weight, casacore::Complex *dweight1, casacore::Complex *dweight2, casacore::Double *currentCFPA)
double Double
Definition: aipstype.h:55
void(* GCFPtr)(casacore::Double *griduvw, casacore::Double *area, casacore::Double *raoff1, casacore::Double *decoff1, casacore::Double *raoff2, casacore::Double *decoff2, casacore::Int *doGrad, casacore::Complex *weight, casacore::Complex *dweight1, casacore::Complex *dweight2, casacore::Double *currentCFPA)
IlluminationConvFunc gwEij