FUNCTION def_month, timave, date
;
; translate month number in string

@common
@com_eg
;
   IF strpos(date, '_') GT -1 THEN date = strmid(date, 0, strpos(date, '_'))
   CASE strmid(timave, 0, 2) OF 
      '1m': BEGIN
         CASE strmid(date, strlen(date)-2, 2) OF 
            '01': mn = 'January'
            '02': mn = 'February'
            '03': mn = 'March'
            '04': mn = 'April'
            '05': mn = 'May'
            '06': mn = 'June'
            '07': mn = 'July'
            '08': mn = 'August'
            '09': mn = 'September'
            '10': mn = 'October'
            '11': mn = 'November'
            '12': mn = 'December'
            ELSE: mn = '???'
         ENDCASE 
      END 
      '3m': BEGIN
         IF strpos(timave, '3mm') GT -1 THEN BEGIN 
            CASE time_array[0] OF
               1: BEGIN  
                  CASE strmid(date, strlen(date)-2, 2) OF 
                     '01': mn = 'JFM'
                     '02': mn = 'AMJ'
                     '03': mn = 'JAS'
                     '04': mn = 'OND'
                     ELSE: mn = '???'
                  ENDCASE 
               END
               -9: BEGIN  
                  CASE strmid(date, strlen(date)-2, 2) OF 
                     '01': mn = 'MAM'
                     '02': mn = 'JJA'
                     '03': mn = 'SON'
                     '04': mn = 'DJF'
                     ELSE: mn = '???'
                  ENDCASE 
               END
               ELSE: BEGIN      ; = 4 or 11
                  CASE strmid(date, strlen(date)-2, 2) OF 
                     '01': mn = 'DJF'
                     '02': mn = 'MAM'
                     '03': mn = 'JJA'
                     '04': mn = 'SON'
                     ELSE: mn = '???'
                  ENDCASE 
               END
            ENDCASE
 
            ENDIF ELSE BEGIN
               CASE time_array[0] OF
                  -11: BEGIN 
                     CASE strmid(date, strlen(date)-2, 2) OF 
                        '01': mn = 'JFM'
                        '04': mn = 'AMJ'
                        '07': mn = 'JAS'
                        '10': mn = 'OND'
                        ELSE: mn = '???'
                     ENDCASE 
                  END
                  ELSE: BEGIN
                     CASE strmid(date, strlen(date)-2, 2) OF 
                        '01': mn = 'DJF'
                        '04': mn = 'MAM'
                        '07': mn = 'JJA'
                        '10': mn = 'SON'
                        ELSE: mn = '???'
                     ENDCASE 
                  END
               ENDCASE 

            ENDELSE 
      END 
      ELSE:
   ENDCASE  

   return, mn
END