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