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