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