I , climsssstartdate1, climsssstartdate2
call CAL_FULLDATE( climsssstartdate1, climsssstartdate2,
& climsssstartdate1, climsssstartdate2, climsssperiod,
climsssstartdate2 = 0
integer climsssstartdate2
& climsssstartdate1, climsssstartdate2