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