call CTRL_SET_FNAME(xx_hfacc_file, fname_hfacc, mythid)
& xx_hfacc_file,
il=ilnblnk( xx_hfacc_file )
& xx_hfacc_file(1:il),'.',optimcycle