& tauybarfile,
character*(MAX_LEN_FNAM) tauybarfile
tauybarfile = 'tauybar'
& tauxbarfile, tauybarfile,
ils=ilnblnk( tauybarfile )
write(fnametauybar,'(2a,i10.10)') tauybarfile(1:ils),'.',
ilps=ilnblnk( tauybarfile )
& tauybarfile(1:ilps), '.', eccoiter
& yadprefix, tauybarfile(1:ilps), '.', eccoiter