& xx_uwindstartdate1, xx_uwindstartdate2, xx_uwindperiod,
& , xx_uwindstartdate1
integer xx_uwindstartdate1
call CAL_FULLDATE( xx_uwindstartdate1, xx_uwindstartdate2,
xx_uwindstartdate1 = 0