get_filepath Function

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