& xx_apressurestartdate1, xx_apressurestartdate2,
& , xx_apressurestartdate1
integer xx_apressurestartdate1
call CAL_FULLDATE( xx_apressurestartdate1,
xx_apressurestartdate1 = 0