& xx_aqhstartdate1, xx_aqhstartdate2, xx_aqhperiod,
& , xx_aqhperiod
_RL xx_aqhperiod
fldperiod = xx_aqhperiod
if ( xx_aqhperiod .EQ. 0 ) then
& xx_aqhperiod) + 1
& xx_aqhperiod) + 2
xx_aqhperiod = 0. _d 0
& xx_aqh_file, xx_aqh_dummy, xx_aqhperiod,
& xx_aqh_file, xx_aqhstartdate, xx_aqhperiod,