&                     dayofweek,

      character*(3) dayofweek(7)

        dayofweek(1) = 'FRI'

        dayofweek(2) = 'SAT'

        dayofweek(3) = 'SUN'

        dayofweek(4) = 'MON'

        dayofweek(5) = 'TUE'

        dayofweek(6) = 'WED'

        dayofweek(7) = 'THU'

        dayofweek(1) = 'MD1'

        dayofweek(2) = 'MD2'

        dayofweek(3) = 'MD3'

        dayofweek(4) = 'MD4'

        dayofweek(5) = 'MD5'

        dayofweek(6) = 'MD6'

        dayofweek(7) = 'MD7'

      daystring = dayofweek(nweekday)

     &     dayofweek(xx_hfluxstartdate(4)),'.'

     &     dayofweek(xx_sfluxstartdate(4)),'.'

     &     dayofweek(xx_tauustartdate(4)),'.'

     &     dayofweek(xx_hfluxstartdate(4)),'.'