/*
 * 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_NEUTMODEL_H
#define FH2H_NEUTMODEL_H


#ifdef __cplusplus
extern "C" {
#endif


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


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

/**/
/*-- Model for QE*/
/*  MDLQE   = XX1 ; CC : Smith-Moniz cross-section with classical kinematics*/
/*            XX2 ; CC : Smith-Moniz cross-section with classical kinematics*/
/*                      ( BBBA05 vector form factor )*/
/**/
/*          = X0X ; NC : Original code*/
/*          = X1X ; NC : Dipole*/
/*          = X2X ; NC : BBBA05 calculation*/
/**/
/*          = 0XX ; ALL; No correction on GM form factor*/
/*          = 1XX ; ALL; Correction on GM form factor ( Bodek et al )*/
/*          */
/*          = 4XX ; ALL; Use SF nuclear model for kinematics*/
/**/
/*-- Axial form factor for QE*/
/*  MDLQEAF = 1 ; Simple dipole form factor*/
/*  MDLQEAF = 0;  BBBA07*/
/**/
/*-- MA (MV) value of QE*/
/*  XMAQE (XMVQE)*/
/**/
/*-- Kappa factor for QE (ala MiniBooNE)*/
/*  KAPP*/
/**/
/*-- FermiMomentum used in SF model only (for pauli blocking)*/
/*-- (if user doesn't define, uses default for nucleus)*/
/*  PFSF*/
/**/
/*-- Second class form factors for CCQE (both 0.0 as default)*/
/*  SCCFV*/
/*  SCCFA*/
/**/
/*-- Model for Single pion production*/
/*  MDLSPI = 1 ; Rein Sehgal*/
/**/
/*-- MA (MV) for Rein-Sehgal Single meson production*/
/*  XMARSRES (XMVRSRES)*/
/**/
/*-- MA for New Form factor Single meson production*/
/*  XMANFFRES (XMVNFFRES)*/
/**/
/*-- Coherent pion*/
/*  MDLCOH = 0 ; Rein&Sehgal w/ lepton mass corr.*/
/*             1 ; Kartavtsev et al.*/
/**/
/*  XMACOH  (Default = 1.0)*/
/*  RAD0NU  (Default = 1 fm)*/
/**/
/*-- DIS*/
/*  MODELDIS = 70 ; GRV94 Original*/
/*             71 ; GRV94 Bodek*/
/*            120 ; GRV98 Original*/
/*            121 ; GRV98 Bodek*/


      
/*common neutmodel was here*/
/*common nemdls was here*/


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

extern struct neutmodel_common {
  int    modeldis;
  int    modelcoh;
} neutmodel_;
#ifndef NO_EXTERN_COMMON_POINTERS
extern struct neutmodel_common *neutmodel;
#endif
#ifdef STATIC_COMMON_POINTERS
static struct neutmodel_common *neutmodel = &neutmodel_;
#endif

extern struct nemdls_common {
  int    mdlqe;
  int    mdlspi;
  int    mdldis;
  int    mdlcoh;
  int    mdlqeaf;
  float  xmaqe;
  float  xmaspi;
  float  xmvqe;
  float  xmvspi;
  float  kapp;
  float  xmacoh;
  float  rad0nu;
  int    iffspi;
  int    nrtypespi;
  float  rca5ispi;
  float  rbgsclspi;
  float  xmares;
  float  xmvres;
  float  sccfv;
  float  sccfa;
  float  pfsf;
} nemdls_;
#ifndef NO_EXTERN_COMMON_POINTERS
extern struct nemdls_common *nemdls;
#endif
#ifdef STATIC_COMMON_POINTERS
static struct nemdls_common *nemdls = &nemdls_;
#endif


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


#ifndef NO_STATIC_DATA


#endif  /* #ifndef NO_STATIC_DATA */


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


#ifdef __cplusplus
}
#endif


#endif  /* #ifndef FH2H_NEUTMODEL_H */