
<P><P>
<BR>

<P>

<H3><A ID="SECTION00021400000000000000">
Card 2</A>
</H3>
<PRE>
2F4.0,      F8.4,  L2, I2,   A2,   I2     4(I4,F4.0)
JTMIN,JTMAX,ABSEND,DRY,CSET, RELA, NEARFA,(JUMP(i),JBORD(i),i=2,5)
</PRE>

<P>
5ex1
Calculate coupled-channels sets with total J in the interval
max(0,JTMIN) <SPAN CLASS="MATH"><IMG
 STYLE=""
 SRC="img12.svg"
 ALT="$&lt;$"></SPAN> J  <SPAN CLASS="MATH"><IMG
 STYLE=""
 SRC="img12.svg"
 ALT="$&lt;$"></SPAN> JTMAX,
stopping sooner if the absorbtion from the elastic channel
is 