}             //  end WriteUnit

        private void WriteStratum(StreamWriter strWriteOut, reportHeaders rh, IEnumerable <StratumDO> sList, ref int pageNumb)
        {
            foreach (StratumDO sdo in sList)
            {
                sdo.CuttingUnits.Populate();
                WriteReportHeading(strWriteOut, rh.reportTitles[0], rh.reportTitles[1], rh.reportTitles[2],
                                   rh.A01stratum, 9, ref pageNumb, "");
                //  need true stratum acres not used for expansion
                totalStrataAcres = sdo.CuttingUnits.Sum(cu => cu.Area);
                //  and number of plots for the stratum
                totalPlots = CommonEquations.NumberOfPlots(sdo.Code, fileName);

                prtFields = StratumMethods.buildPrintArray(sdo, mainHeaderFields[3].ToString(),
                                                           totalStrataAcres, totalPlots);
                printOneRecord(fieldLengths, prtFields, strWriteOut);
            }       //  end foreach loop

            return;
        }       //  end WriteStratum