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