DA code
<BR>
If RELA contains `f', use Ingemarsson eq(19) to scale potentials
<BR>
If RELA contains `g', use Ingemarsson eq(21) to scale potentials
<BR>
If RELA contains `r', get reduced mass from ratios of total energies

<P>
8ex1  NEARFA

<BR>
mod(NEARFA,10) = 0 or 1 for the usual cross sections,

<BR>= 2 or -2 for printing `far side' cross sections too,

<BR>= 3 or -3 for printing far and near side cross sections too.

<BR><SPAN CLASS="MATH"><IMG
 STYLE=""
 SRC="img15.svg"
 ALT="$&gt;$"></SPAN> 0 for pri