CHARACTER*(MAX_LEN_MBUF) suff
CHARACTER*(MAX_LEN_MBUF) msgBuf
CHARACTER*(MAX_LEN_MBUF) fName
CHARACTER*(MAX_LEN_MBUF) mon_pref
CHARACTER*(MAX_LEN_MBUF) mon_fname
DO i = 1,MAX_LEN_MBUF
IF ( IL .GT. 0 .AND. lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN
& lBuf+mon_prefL+1 .LE. MAX_LEN_MBUF ) THEN
& lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN
CHARACTER*(MAX_LEN_MBUF) msgBuffer