/*
 * Generated automatically by fh2h.pl
 * !!! DO NOT EDIT !!!
 * Edit the original fortran header file instead
 * or fix fh2h.pl if there is a translation bug.
 */


#ifndef FH2H_NEUTCRS_H
#define FH2H_NEUTCRS_H


#ifdef __cplusplus
extern "C" {
#endif


#ifndef IMPLICIT
#define IMPLICIT  /* Only to point out implicit types */
#endif


/*------ fortran header (without commons and data statements) ----------*/

/*************************************************************************/
/*     -------------------*/
/*     INCLUDE FILE NEUTCRS*/
/*     -------------------*/
/**/
/*     (Purpose)*/
/*       To store NEUT cross-section*/
/**/
/*     (Creation Date and Author)*/
/*       2010.07.30 ; Y.Hayato*/
/**/
/*     (Updates)*/
/*       2011.05.13 ; P. de Perio*/
/*                      - Added more kinematic variables*/
/**/
/*************************************************************************/
/*-- TOTCRSNE : Total cross-section*/
/*-- DIFCRSNE : Differential cross-section*/

/*common neutcrscom was here*/


/*------ common blocks -------------------------------------------------*/

extern struct neutcrscom_common {
  float  crsenergy;
  float  totcrsne;
  float  difcrsne[8];
  float  crsx;
  float  crsy;
  float  crsz;
  float  crsphi;
  float  crsq2;
} neutcrscom_;
#ifndef NO_EXTERN_COMMON_POINTERS
extern struct neutcrscom_common *neutcrscom;
#endif
#ifdef STATIC_COMMON_POINTERS
static struct neutcrscom_common *neutcrscom = &neutcrscom_;
#endif


/*------ data statements -----------------------------------------------*/


#ifndef NO_STATIC_DATA


#endif  /* #ifndef NO_STATIC_DATA */


/*------ end of fortran header -----------------------------------------*/


#ifdef __cplusplus
}
#endif


#endif  /* #ifndef FH2H_NEUTCRS_H */