INTEGER i, I0,I1, IL
IL = I1-I0+1
IF ( IL .GT. 0 .AND. lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN
msgBuf(1:IL) = mon_head
lBuf = IL+1
IF ( IL .GT. 0 ) THEN
& lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN
msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1)
lBuf = lBuf+IL-1
mon_vname((nvname+1):(nvname+IL)) = pref(I0:I1)
nvname = nvname + IL
msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1)
mon_vname((nvname+1):(nvname+IL)) = foot(I0:I1)