get_filename Function

  function get_filename(string) result(fname)
    character(len=*) :: string
    ! character(len=len_trim(string)) :: fname
    character(len=:),allocatable :: fname
    integer :: i,slen
    slen=len_trim(string)
    do i=slen,1,-1
       if(string(i:i)== '/')exit
    enddo
    fname=trim(adjustl(trim(string(i+1:slen))))
  end function get_filename