integer climustrstartdate1
& climustrstartdate1, climustrstartdate2,
CALL CAL_FULLDATE( climustrstartdate1, climustrstartdate2,
& climustrstartdate1, climustrstartdate2,climustrperiod,
climustrstartdate1 = 0