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