INTEGER climustrstartdate1
& climustrstartdate1, climustrstartdate2,
I climustrstartdate1, climustrstartdate2,
& climustrfile, climustrstartdate1, climustrstartdate2,
climustrstartdate1 = 0