& evapstartdate1, evapstartdate2,
integer evapstartdate1
evapstartdate1 = 0
call CAL_FULLDATE ( evapstartdate1 , evapstartdate2,
& evapstartdate1, evapstartdate2, evapperiod,