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 filenameREVISION HISTORY:
Created by Mariana VertensteinLOCAL VARIABLES: