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