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