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