& gencost_barfile(num_var),
& nnzbar, gencost_barfile(k),
& gencost_barfile,
character*(MAX_LEN_FNAM) gencost_barfile(NGENCOST)
ilt=ilnblnk( gencost_barfile(k) )
& gencost_barfile(k)(1:ilt), '.', optimcycle
& yadprefix, gencost_barfile(k)(1:ilt), '.', optimcycle
write(gencost_barfile(k)(1:8),'(a,i2.2)')