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