& xx_precipstartdate1, xx_precipstartdate2, xx_precipperiod,
& , xx_precipstartdate1
integer xx_precipstartdate1
call CAL_FULLDATE( xx_precipstartdate1, xx_precipstartdate2,
xx_precipstartdate1 = 0