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