Print errors in SRST Block

This is particularly for Wayne and Chuck Moore's "Do List"

When you have more than 3 pollutants in RUNOFF and want
to route any other than the first three in SRST, an
error occurs after the E1 data line is read in with
NDIM(), PNAME() AND PUNIT(); This list is in the order
defined by IPOL().

The error occurs in subroutine INFACE where this information is
over-written by a tape read from the original ordered list
generated by the input to RUNOFF. The values read in on the
E1 card need to be conserved before calling INFACE.

The result appears to be just a mixup in names and units on
the printout, however in some cases NDIM might result in
numerical changes in the output, particularly if metric
is used.

Ron Kilmartin