INTERFACE:
character(len=256) function get_filename (fulpath)DESCRIPTION:
Returns filename given full pathname
ARGUMENTS:
implicit none character(len=*), intent(in) :: fulpath !full pathnameREVISION HISTORY:
Created by Mariana VertensteinLOCAL VARIABLES: