INTEGER lBuf
lBuf = 0
IF ( IL .GT. 0 .AND. lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN
lBuf = IL+1
msgBuf(lBuf:lBuf) = ' '
& lBuf+mon_prefL+1 .LE. MAX_LEN_MBUF ) THEN
lBuf = lBuf+1
msgBuf(lBuf:lBuf+mon_prefL-1) = mon_pref(1:mon_prefL)
lBuf = lBuf+mon_prefL-1
& lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN
msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1)
lBuf = lBuf+IL-1
msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1)
PARAMETER ( lBuf = sNx )
INTEGER hBase(lBuf)
INTEGER hHead(lBuf)
INTEGER hLo(lBuf)
INTEGER hHi(lBuf)
IF ( lField .GT. lBuf ) THEN