& xx_evapstartdate1, xx_evapstartdate2, xx_evapperiod,
& , xx_evapstartdate2
integer xx_evapstartdate2
call CAL_FULLDATE( xx_evapstartdate1, xx_evapstartdate2,
xx_evapstartdate2 = 0