CTION00021600000000000000">
Card 4</A>
</H3>
<PRE>
F6.4,I2, I4,  I2,    I2,  A1,  I3, 2I4        I2,    F6.4
IPS, IT0,ITER,IBLOCK,PADE,ISO, NNU,MAXL,MINL, MTMIN, EPC,

2F8.4     2I2,      2f8.6,              i4,     i2,     l1,    F8.4
ERANGE,DK,INH,plane,smallchan,smallcoup,NUMNODE,NTHREAD,CCREAL,ELPMAX
</PRE>

<P>
5ex1
Solve the coupled channels equations by at least IT0 iterations, and
up to ITER iterations.
Stop sooner if the absolute differences between successive S-matrix
elements (scaled by (2J+1)/(2