INTEGER climsststartdate1
& climsststartdate1, climsststartdate2,
I climsststartdate1, climsststartdate2,
& climsstfile, climsststartdate1, climsststartdate2,
climsststartdate1 = 0