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