ilgen=ilnblnk( xx_gen_file )
& xx_gen_file(1:ilgen), '.', optimcycle
if ( xx_gen_file .EQ. xx_tauu_file .OR.
& xx_gen_file .EQ. xx_tauv_file )
& ( xx_gen_file .EQ. xx_tauu_file .OR.
& xx_gen_file .EQ. xx_tauv_file ) ) then
& xx_gen_file .EQ. xx_tauv_file ) then
character*(MAX_LEN_FNAM) xx_gen_file
I xx_gen_file, xx_genstartdate, xx_genperiod,