/* --------------------------------- */
/* save as fa.h */
/* --------------------------------- */
#define LOOP 2*100
/* --------------------------------- */
double P(
double r,
double zr,
double xy)
{
return( 1);
}
char Peq[] = "1";
/* ---------------------------------- */
/* --------------------------------- */
double br(
double zr,
double xy)
{
return( 1);
}
char breq[] = "1";
/* ---------------------------------- */
double ar(
double zr,
double xy)
{
return( 0.);
}
char areq[] = "0";
/* ---------------------------------- */
/* --------------------------------- */
double bzr(
double xy)
{
return( PI);
}
char bzreq[] = "PI";
/* ---------------------------------- */
double azr(
double xy)
{
return( 0.);
}
char azreq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double bxy = 2*PI; char bxyeq[] = "2*Pi";
double axy = 0.; char axyeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */