IF ( mnthIndex .NE. prevMnthIndex ) THEN
prevMnthIndex = mnthIndex
& mnthNam(mnthIndex), aim_MMsufx(1:aim_MMsufxLength)
INTEGER mnthIndex
mnthIndex = 1 + INT(tmprd)
mnthIndex = nm0