call CTRL_SET_FNAME(xx_edtaux_file, fname_edtaux, mythid)
& xx_edtaux_file,
il=ilnblnk( xx_edtaux_file )
& xx_edtaux_file(1:il),'.',optimcycle
& xx_edtaux_file, 25, 125, 1, 1, 1,
& , xx_edtaux_file
character*(MAX_LEN_FNAM) xx_edtaux_file
xx_edtaux_file = 'xx_edtaux'