& nnzobs, gencost_datafile(k), mult_gencost(k),
il=ilnblnk(gencost_datafile(igen_amsre))
& gencost_datafile(igen_amsre)(1:il), '_', yday
& gencost_datafile,
character*(MAX_LEN_FNAM) gencost_datafile(NGENCOST)
gencost_datafile(k) = ' '
if ( gencost_datafile(k) .ne. ' ' ) then