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