INTEGER vwindstartdate1
& vwindstartdate1, vwindstartdate2,
I vwindstartdate1, vwindstartdate2,
& vwindfile, vwindstartdate1, vwindstartdate2,
vwindstartdate1 = 0