integer climvstrstartdate2
& climvstrstartdate1, climvstrstartdate2
CALL CAL_FULLDATE( climvstrstartdate1, climvstrstartdate2,
& climvstrstartdate1, climvstrstartdate2,climvstrperiod,
climvstrstartdate2 = 0