subroutine get_filename (fulpath, filname)!----------------------------------------------------------------------- ! ! Purpose: ! returns filename given full pathname!! Method: ! ! Author: Mariana Vertenstein! !-----------------------------------------------------------------------! $Id: get_filename.F90,v 1.1.12.1 2001/11/07 18:16:07 mvertens Exp $!-----------------------------------------------------------------------! ------------------------ arguments --------------------------------  character(len=*), intent(in)  :: fulpath !full pathname  character(len=*), intent(out) :: filname !full pathname! -------------------------------------------------------------------! ------------------------ local variables --------------------------  integer i               !loop index  integer klen            !length of fulpath character string! -------------------------------------------------------------------  klen = len_trim(fulpath)  do i = klen, 1, -1     if (fulpath(i:i) == '/') go to 10  end do  i = 010 filname = fulpath(i+1:klen)    returnend subroutine get_filename