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