call CAL_FULLDATE( climsststartdate1, climsststartdate2,
& climsststartdate1, climsststartdate2, climsstperiod,
climsststartdate2 = 0
integer climsststartdate2
& climsststartdate1, climsststartdate2,
I , climsststartdate1, climsststartdate2