call CTRL_SET_FNAME(xx_etan_file, fname_etan, mythid)
il = ilnblnk(xx_etan_file)
& xx_etan_file(1:il),'.',optimcycle
& xx_etan_file,
il=ilnblnk( xx_etan_file )
& xx_etan_file, 29, 129, 1, 1, 1,
& , xx_etan_file
character*(MAX_LEN_FNAM) xx_etan_file
xx_etan_file = 'xx_etan'