call CAL_FULLDATE( climtempstartdate1, climtempstartdate2,
& climtempstartdate1, climtempstartdate2, climtempperiod,
climtempstartdate2 = 0
I , climtempstartdate1, climtempstartdate2
integer climtempstartdate2
& climtempstartdate1, climtempstartdate2,