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