integer snowprecipstartdate2
& snowprecipstartdate1, snowprecipstartdate2,
CALL CAL_FULLDATE( snowprecipstartdate1, snowprecipstartdate2,
& snowprecipstartdate1, snowprecipstartdate2, snowprecipperiod,
snowprecipstartdate2 = 0