& xx_vwindstartdate1, xx_vwindstartdate2, xx_vwindperiod,
& , xx_vwindstartdate2
integer xx_vwindstartdate2
call CAL_FULLDATE( xx_vwindstartdate1, xx_vwindstartdate2,
xx_vwindstartdate2 = 0