INTEGER wspeedstartdate1
& wspeedstartdate1, wspeedstartdate2,
I wspeedstartdate1, wspeedstartdate2,
& wspeedfile, wspeedstartdate1, wspeedstartdate2,
wspeedstartdate1 = 0