#ifndef F77EI_H
#define F77EI_H

//-----------------------------------------------------------------------------
//
//  Peter Richter (prichter@princeton.edu)
//  Princeton Plasma Physics Laboratory
//  August 2000
//
//  f77ei.h - Interface for F77 sigma*v(Te) reactions
//  electron-Hydrogen recombination; electron impact ionization
//
//-----------------------------------------------------------------------------

#include "preact/fortran.h"

// initialize reaction and return handle...
integer_function F77NAME(ei_init)(integer& icode, integer& ierrlo,
			      	  integer& ierrhi);

// sigma*vrel as real*8 functions of Erel/A ...
real_function F77NAME(ei_sigmav)(integer& ihandle, real_8& Erel);

// sigma*v for beam to cold (T=0) target...
subroutine F77NAME(ei_sigvte_sigmatimesv)(integer& ihandle, real_8 *E,
					  real_8 *f, integer& n);
subroutine F77NAME(ei_sigvte_trange)(integer& ihandle, real_8& Tmin,
					 real_8& Tmax,
					 integer& min_policy,
					 integer& max_policy);
subroutine F77NAME(ei_sigvte_tpolicy)(integer& ihandle,
				      integer& min_policy,
				      integer& max_policy);

//-----------------------------------------------------------------------------

#endif
