00001 /* $Id: ObitAIPSFortran.h,v 1.2 2007/08/31 17:24:48 bcotton Exp $ */ 00002 /*--------------------------------------------------------------------*/ 00003 /*; Copyright (C) 2003,2007 */ 00004 /*; Associated Universities, Inc. Washington DC, USA. */ 00005 /*; This program is free software; you can redistribute it and/or */ 00006 /*; modify it under the terms of the GNU General Public License as */ 00007 /*; published by the Free Software Foundation; either version 2 of */ 00008 /*; the License, or (at your option) any later version. */ 00009 /*; */ 00010 /*; This program is distributed in the hope that it will be useful, */ 00011 /*; but WITHOUT ANY WARRANTY; without even the implied warranty of */ 00012 /*; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ 00013 /*; GNU General Public License for more details. */ 00014 /*; */ 00015 /*; You should have received a copy of the GNU General Public */ 00016 /*; License along with this program; if not, write to the Free */ 00017 /*; Software Foundation, Inc., 675 Massachusetts Ave, Cambridge, */ 00018 /*; MA 02139, USA. */ 00019 /*; */ 00020 /*; Correspondence about this software should be addressed as follows:*/ 00021 /*; Internet email: bcotton@nrao.edu. */ 00022 /*; Postal address: William Cotton */ 00023 /*; National Radio Astronomy Observatory */ 00024 /*; 520 Edgemont Road */ 00025 /*; Charlottesville, VA 22903-2475 USA */ 00026 /*--------------------------------------------------------------------*/ 00027 #ifndef OBITAIPSFORTRAN_H 00028 #define OBITAIPSFORTRAN_H 00029 #include <glib.h> 00030 #include "Obit.h" 00031 #include "ObitErr.h" 00032 #include "ObitAIPS.h" 00033 #include "ObitAIPSObject.h" 00034 00035 /*-------- ObitIO: Software for the recently deceased ------------------*/ 00043 /*-------------- type definitions----------------------------------*/ 00044 /*-------------- enumerations -------------------------------------*/ 00045 /*---------------Public functions---------------------------*/ 00047 void obintx_ (const gchar *pgmName, const oint *lenPgmName, const oint *pgmNumber, 00048 const oint *AIPSuser, 00049 const oint *numberAIPSdisk, const gchar *AIPSdir, const oint *lenAIPSdir, 00050 const oint *numberFITSdisk, const gchar *FITSdir, const oint *lenFITSdir, 00051 const oint *F_TRUE, const oint *F_FALSE, oint *ierr); 00052 00054 void obshtx_ (void); 00055 00057 void obuvcp_ (AIPSObj uvin, AIPSObj uvout, oint *ierr); 00058 00060 void obufwt_ (AIPSObj uv, AIPSObj image, oint *ierr); 00061 00063 void obimuv_ (AIPSObj uvdata, oint *ifield, oint *nfield, AIPSObj *image, AIPSObj *beam, 00064 oint *doBeam, oint *doCreate, oint *chan, oint* nchan, oint* imchan, oint *ierr); 00065 00067 void obiuvi_ (AIPSObj uvdata, oint *ifield, oint *nfield, AIPSObj *image, AIPSObj *beam, 00068 oint *doBeam, oint *doCreate, oint *chan, oint* nchan, oint* imchan, oint *ierr); 00069 00070 00071 #endif /* OBITAIPSFORTRAN_H */ 00072
1.3.9.1