& xx_atempstartdate1, xx_atempstartdate2, xx_atempperiod,
call CAL_FULLDATE( xx_atempstartdate1, xx_atempstartdate2,
& , xx_atempstartdate1
integer xx_atempstartdate1
xx_atempstartdate1 = 0