call CTRL_SET_FNAME(xx_bottomdrag_file, fname_bottomdrag, mythid)
& xx_bottomdrag_file,
il=ilnblnk( xx_bottomdrag_file )
& xx_bottomdrag_file(1:il),'.',optimcycle
& xx_bottomdrag_file, 23, 123, 1, 1, 1,
& , xx_bottomdrag_file
character*(MAX_LEN_FNAM) xx_bottomdrag_file
xx_bottomdrag_file = 'xx_bottomdrag'