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