_RL vwindstartdate
& vwindperiod, vwindstartdate,
IF ( uwindstartdate .NE. vwindstartdate .OR.
I vwindfile, vwindstartdate, vwindperiod,
O vwindstartdate,
& .AND. uwindstartdate .EQ. vwindstartdate
vwindstartdate = 0.
& vwindstartdate