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