Pan-STARRS Foundation Library: slalib.h Source File

00001 /** @file  slalib.h
00002 *
00003 *  @brief Simple wrapper of the required fortran SLALIB functions
00004 *
00005 *  @ingroup AstroImage
00006 *
00007 *  @author Robert DeSonia, MHPCC
00008 *
00009 *  @version $Revision: 1.12 $ $Name: rel5_0 $
00010 *  @date $Date: 2005/02/17 19:26:23 $
00011 *
00012 *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
00013 */
00014 
00015 #ifndef SLALIB_H
00016 #define SLALIB_H
00017 
00018 #include "config.h"
00019 
00020 #define fslaAoppa F77_FUNC_(sla_aoppa,SLA_AOPPA)
00021 extern void fslaAoppa(
00022         const double* date,
00023         const double* dut,
00024         const double* elongm,
00025         const double* phim,
00026         const double* him,
00027         const double* xp,
00028         const double* yp,
00029         const double* tdk,
00030         const double* pmb,
00031         const double* rh,
00032         const double* wl,
00033         const double* tlr,
00034         double* AOPRMS
00035     );
00036 
00037 #define fslaAopqk F77_FUNC_(sla_aopqk,SLA_AOPQK)
00038 extern void fslaAopqk(
00039         const double* RAP,
00040         const double* DAP,
00041         double* AOPRMS,
00042         double* AOB,
00043         double* ZOB,
00044         double* HOB,
00045         double* DOB,
00046         double* ROB
00047     );
00048 
00049 #define fslaOapqk F77_FUNC_(sla_oapqk,SLA_OAPQK)
00050 extern void fslaOapqk(
00051         char* TYPE,
00052         const double* OB1,
00053         const double* OB2,
00054         double* AOPRMS,
00055         double* RAP,
00056         double* DAP
00057     );
00058 
00059 #define fslaAirmas F77_FUNC_(sla_airmas,SLA_AIRMAS)
00060 extern double fslaAirmas(
00061         const double* zenithDistance
00062     );
00063 
00064 /*
00065     void slaAoppa(date, dut, elongm, phim, hm, xp, yp, tdk, pmb, rh, wl, tlr, aoprms)
00066     
00067     PARAMETERS
00068     
00069     double date
00070     double dut
00071     double elongm
00072     double phim
00073     double hm
00074     double xp
00075     double yp
00076     double tdk
00077     double pmb
00078     double rh
00079     double wl
00080     double tlr
00081     double *aoprms
00082 */
00083 #define slaAoppa(date,dut,elongm,phim,him,xp,yp,tdk,pmb,rh,wl,tlr,AOPRMS) \
00084 fslaAoppa(&date,&dut,&elongm,&phim,&him,&xp,&yp,&tdk,&pmb,&rh,&wl,&tlr,AOPRMS)
00085 
00086 /*
00087     void slaAopqk(rap, dap, aoprms, aob, zob, hob, dob, rob)
00088     
00089     PARAMETERS
00090     
00091     double rap
00092     double dap
00093     double *aoprms
00094     double *aob
00095     double *zob
00096     double *hob
00097     double *dob
00098     double *rob
00099 */
00100 
00101 #define slaAopqk(RAP,DAP,AOPRMS,AOB,ZOB,HOB,DOB,ROB) \
00102 fslaAopqk(&RAP,&DAP,AOPRMS,AOB,ZOB,HOB,DOB,ROB)
00103 
00104 /*
00105     void slaOapqk(type, ob1, ob2, aoprms, rap, dap)
00106     
00107     PARAMETERS
00108     
00109     char *type
00110     double ob1
00111     double ob2
00112     double *aoprms
00113     double *rap
00114     double *dap
00115 */
00116 
00117 #define slaOapqk(TYPE, OB1, OB2, AOPRMS, RAP, DAP) \
00118 fslaOapqk(TYPE, &OB1, &OB2, AOPRMS, RAP, DAP)
00119 
00120 /*
00121     double slaAirmas(zd)
00122     
00123     PARAMETERS
00124     
00125     double zd
00126 */
00127 #define slaAirmas(ZD) fslaAirmas(&ZD)
00128 
00129 #endif