& atempstartdate1, atempstartdate2,
integer atempstartdate1
atempstartdate1 = 0
call CAL_FULLDATE ( atempstartdate1 , atempstartdate2,
& atempstartdate1, atempstartdate2, atempperiod,