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