;+
;
; change grid_oldgrid by grid_newgrid
;
; @version
; $Id$
;
;-
FUNCTION new_filename, file_in, oldgrid, newgrid

@common
@com_eg

   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