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