stringtool_obj_RemovePath Function

private pure function stringtool_obj_RemovePath(filename) result(val)

Removes path from filename.

Type Bound

stringtool_obj

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename

File name

Return Value character(len=:), allocatable

Returned string with path removed


Called by

proc~~stringtool_obj_removepath~~CalledByGraph proc~stringtool_obj_removepath stringtool_obj%stringtool_obj_RemovePath proc~eulerian_set_readhdf5 eulerian_set%eulerian_set_ReadHDF5 proc~eulerian_set_readhdf5->proc~stringtool_obj_removepath

Source Code

    pure function stringtool_obj_RemovePath(filename) result(val)
      !> Removes path from filename.
      character(len=*), intent(in)  :: filename                                !! File name
      character(len=:), allocatable :: val                                     !! Returned string with path removed
      ! Work variables
      integer :: last_slash

      val=trim(adjustl(filename))

      ! Find last path separator and last dot
      last_slash = index(val, '/', back=.true.)

      if (last_slash > 0) &
         val = val(last_slash+1:len_trim(val))

      return
    end function stringtool_obj_RemovePath