call CTRL_SET_FNAME(xx_edtauy_file, fname_edtauy, mythid)
& xx_edtauy_file,
il=ilnblnk( xx_edtauy_file )
& xx_edtauy_file(1:il),'.',optimcycle
& xx_edtauy_file, 26, 126, 1, 1, 1,
& , xx_edtauy_file
character*(MAX_LEN_FNAM) xx_edtauy_file
xx_edtauy_file = 'xx_edtauy'