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