//$Id: sommerfeld_rout.h,v 1.3 2012/09/14 08:43:42 zjcao Exp $
#ifndef SOMMERFELD_ROUT_H
#define SOMMERFELD_ROUT_H

#ifdef fortran1
#define f_sommerfeld_rout sommerfeld_rout
#define f_sommerfeld_routbam sommerfeld_routbam
#define f_sommerfeld_routbam_ss sommerfeld_routbam_ss
#define f_falloff_ss falloff_ss
#endif
#ifdef fortran2
#define f_sommerfeld_rout SOMMERFELD_ROUT
#define f_sommerfeld_rout SOMMERFELD_ROUTBAM
#define f_sommerfeld_rout_ss SOMMERFELD_ROUTBAM_SS
#define f_falloff_ss FALLOFF_SS
#endif
#ifdef fortran3
#define f_sommerfeld_rout sommerfeld_rout_
#define f_sommerfeld_routbam sommerfeld_routbam_
#define f_sommerfeld_routbam_ss sommerfeld_routbam_ss_
#define f_falloff_ss falloff_ss_
#endif

extern "C"
{
	void f_sommerfeld_rout(int *, double *, double *, double *,
						   double &, double &, double &, double &, double &, double &, double &, double *,
						   double *, double *, double *, double *,
						   int &, int &);
}

extern "C"
{
	void f_sommerfeld_routbam(int *, double *, double *, double *,
							  double &, double &, double &, double &, double &, double &, double *,
							  double *, double &, double *, int &);
}

extern "C"
{
	void f_sommerfeld_routbam_ss(int *, double *, double *, double *,
								 double &, double &, double &, double &, double &, double &, double *,
								 double *, double &, double *, int &);
}

extern "C"
{
	void f_falloff_ss(int *, double *, double *, double *,
					  double &, double &, double &, double &, double &, double &, double *,
					  int &, double *, int &);
}

#endif /* SOMMERFELD_ROUT_H */
