integer precipstartdate1
& precipstartdate1, precipstartdate2,
CALL CAL_FULLDATE ( precipstartdate1, precipstartdate2,
& precipstartdate1, precipstartdate2, precipperiod,
precipstartdate1 = 0