& wspeedstartdate1, wspeedstartdate2,
wspeedstartdate1 = 0
call CAL_FULLDATE ( wspeedstartdate1, wspeedstartdate2,
& wspeedstartdate1, wspeedstartdate2, wspeedperiod,
integer wspeedstartdate1