INTEGER apressurestartdate1
& apressurestartdate1, apressurestartdate2,
I apressurestartdate1, apressurestartdate2,
& apressurefile, apressurestartdate1, apressurestartdate2,
apressurestartdate1 = 0