integer apressurestartdate2
& apressurestartdate1,apressurestartdate2,
CALL CAL_FULLDATE ( apressurestartdate1, apressurestartdate2,
&apressurestartdate1,apressurestartdate2,apressureperiod,
apressurestartdate2 = 0