& xx_tauustartdate1, xx_tauustartdate2, xx_tauuperiod,
& , xx_tauustartdate2
integer xx_tauustartdate2
call CAL_FULLDATE( xx_tauustartdate1, xx_tauustartdate2,
xx_tauustartdate2 = 0