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