FUNCTION new_filename, file_in, oldgrid, newgrid

@common
@com_eg


;
; change grid_oldgrid by grid_newgrid
;

   file_nam = strmid(file_in, 0,strpos(file_in, 'grid_')+5 )
   file_out = file_nam+newgrid+strmid(file_in, strpos(file_in, 'grid_')+6, strlen(file_in)-1)
   
   return,  file_out

END