if ( xx_genperiod .EQ. 0 ) then
I xx_genstartdate, xx_genperiod,
& ( xx_genperiod .NE. 0 ) ) then
_RL xx_genperiod
I xx_gen_file, xx_genstartdate, xx_genperiod,
I xx_genperiod,
fldperiod = xx_genperiod