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_writehdf5 eulerian_set%eulerian_set_WriteHDF5 proc~eulerian_set_writehdf5->proc~stringtool_obj_removepath proc~marker_set_writehdf5 marker_set%marker_set_WriteHDF5 proc~marker_set_writehdf5->proc~stringtool_obj_removepath proc~particle_set_writehdf5 particle_set%particle_set_WriteHDF5 proc~particle_set_writehdf5->proc~stringtool_obj_removepath proc~respart_set_writehdf5 ResPart_set%ResPart_set_WriteHDF5 proc~respart_set_writehdf5->proc~stringtool_obj_removepath proc~respart_set_writehdf5->proc~marker_set_writehdf5 proc~silo_obj_init silo_obj%silo_obj_Init proc~silo_obj_init->proc~stringtool_obj_removepath proc~solid_set_writehdf5 solid_set%solid_set_WriteHDF5 proc~solid_set_writehdf5->proc~stringtool_obj_removepath proc~solid_set_writehdf5->proc~marker_set_writehdf5 proc~eulerian_set_writesilo eulerian_set%eulerian_set_WriteSILO proc~eulerian_set_writesilo->proc~silo_obj_init proc~particle_set_writesilo particle_set%particle_set_WriteSilo proc~particle_set_writesilo->proc~silo_obj_init proc~respart_set_writesilo ResPart_set%ResPart_set_WriteSILO proc~respart_set_writesilo->proc~silo_obj_init proc~cdifs_obj_writeoutputdata cdifs_obj_WriteOutputData proc~cdifs_obj_writeoutputdata->proc~respart_set_writesilo proc~grans_obj_writeoutputdata grans_obj_WriteOutputData proc~grans_obj_writeoutputdata->proc~respart_set_writesilo interface~cdifs_obj_writeoutputdata cdifs_obj%cdifs_obj_WriteOutputData interface~cdifs_obj_writeoutputdata->proc~cdifs_obj_writeoutputdata interface~grans_obj_writeoutputdata grans_obj%grans_obj_WriteOutputData interface~grans_obj_writeoutputdata->proc~grans_obj_writeoutputdata proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->interface~cdifs_obj_writeoutputdata proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->interface~grans_obj_writeoutputdata interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

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