integer nfields(numlists)
& nfields, nActive, nlists,
DO md = 1,nfields(listId)
& nfields(ld), ' |',nActive(ld), ' |',
DO m = 1,nfields(n)
nfields(n) = 0
& nfields(n).LT.numperlist ) THEN
nfields(n) = nfields(n) + 1
flds(nfields(n),n) = fields(m,l)
WRITE(msgBuf,*) 'Fields: ',(' ',flds(l,n),l=1,nfields(n))
DO md=1,nfields(ld)
nActive(ld) = nfields(ld)