set_filename

INTERFACE:

   character(len=256) function set_filename (rem_dir, loc_fn)

DESCRIPTION:

ARGUMENTS:

     implicit none
     character(len=*), intent(in)  :: rem_dir !remote directory
     character(len=*), intent(in)  :: loc_fn  !local full path filename

REVISION HISTORY:

   Created by Mariana Vertenstein