integer climsssstartdate1
& climsssstartdate1, climsssstartdate2,
CALL CAL_FULLDATE( climsssstartdate1, climsssstartdate2,
& climsssstartdate1, climsssstartdate2, climsssperiod,
climsssstartdate1 = 0