atmo.h

Go to the documentation of this file.

/* ============================================================================

   Copyright (C) 2001, 2005, 2009, 2019  Konrad Bernloehr

   This file is part of the IACT/atmo package for CORSIKA.

   The IACT/atmo package is free software; you can redistribute it 
   and/or modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   This package is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public License
   along with this package. If not, see <http://www.gnu.org/licenses/>.

============================================================================ */

/* ================================================================== */
/* ================================================================== */

#ifndef ATMO_H__LOADED

#define ATMO_H__LOADED 1

#include "mc_atmprof.h"

/* The CORSIKA version against which this software should match. */
/* If your CORSIKA is somewhat newer than 5.901 there is probably */
/* no reason to worry; incompatible changes should not happen */
/* all too often. */
#ifndef CORSIKA_VERSION
# define CORSIKA_VERSION 6900
#endif

#ifndef VECTOR_SIZE
# define VECTOR_SIZE 4
#endif

typedef double cors_dbl_t;

#ifdef __cplusplus
extern "C" {
#endif

/* Function prototypes for functions implemented in this file */

/* FORTRAN called functions (beware changes of parameter types !!) */
void atmset_(int *iatmo, double *obslev);
void atmnam_(const char *aname, double *obslev);
void atm_init(AtmProf *aprof);
double rhofx_(double *height);
double thickx_(double *height);
double refim1x_(double *height);
double refidx_(double *height);
double heighx_(double *thick);
void raybnd_(double *zem, cors_dbl_t *u, cors_dbl_t *v, double *w, 
   cors_dbl_t *dx, cors_dbl_t *dy, cors_dbl_t *dt);
void raybnd_vec_(double *zem, cors_dbl_t *u, cors_dbl_t *v, double *w, 
                 cors_dbl_t *dx, cors_dbl_t *dy, cors_dbl_t *dt);
void atmfit_(int *nlp, double *hlay, double *aatm, double *batm, double *catm);

/* FORTRAN functions called from C */
double rhof_(double *height);
double thick_(double *height);
double heigh_(double *thick);
/* double refim1_(double *height); */
/* double refid_(double *height); */

#ifdef __cplusplus
}
#endif

#endif