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