INTEGER i, I0,I1, IL
I0 = IFNBLNK(mon_head)
IL = I1-I0+1
I0 = IFNBLNK(pref)
IF ( pref(I0:I1) .NE. mon_string_none .AND.
msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1)
mon_vname((nvname+1):(nvname+IL)) = pref(I0:I1)
I0 = IFNBLNK(foot)
IF ( foot(I0:I1) .NE. mon_string_none .AND.
msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1)
mon_vname((nvname+1):(nvname+IL)) = foot(I0:I1)
INTEGER I0, I1
I0 = IFNBLNK( prefString )
mon_pref(1:IL) = prefString(I0:I1)