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