I , climsaltstartdate1, climsaltstartdate2
call CAL_FULLDATE( climsaltstartdate1, climsaltstartdate2,
& climsaltstartdate1, climsaltstartdate2, climsaltperiod,
climsaltstartdate2 = 0
integer climsaltstartdate2
& climsaltstartdate1, climsaltstartdate2,