ResPart_set_SetReadFileName Subroutine

private pure subroutine ResPart_set_SetReadFileName(this, name)

Uses

  • proc~~respart_set_setreadfilename~~UsesGraph proc~respart_set_setreadfilename ResPart_set%ResPart_set_SetReadFileName module~leaputils leapUtils proc~respart_set_setreadfilename->module~leaputils module~leapkinds leapKinds module~leaputils->module~leapkinds iso_fortran_env iso_fortran_env module~leapkinds->iso_fortran_env

Sets the base name of file to read.

Type Bound

ResPart_set

Arguments

Type IntentOptional Attributes Name
class(ResPart_set), intent(inout) :: this

Set of resolved particles
character(len=*), intent(in) :: name

Name of file

Calls

proc~~respart_set_setreadfilename~~CallsGraph proc~respart_set_setreadfilename ResPart_set%ResPart_set_SetReadFileName proc~stringtool_obj_removeextension stringtool_obj%stringtool_obj_RemoveExtension proc~respart_set_setreadfilename->proc~stringtool_obj_removeextension

Called by

proc~~respart_set_setreadfilename~~CalledByGraph proc~respart_set_setreadfilename ResPart_set%ResPart_set_SetReadFileName proc~respart_set_prepare ResPart_set%ResPart_set_Prepare proc~respart_set_prepare->proc~respart_set_setreadfilename proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~respart_set_prepare interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver

Source Code

    pure subroutine ResPart_set_SetReadFileName(this,name)
      !> Sets the base name of file to read.
      use leapUtils, only: stringtool_obj
      implicit none
      class(ResPart_set), intent(inout) :: this                                !! Set of resolved particles
      character(len=*),   intent(in)    :: name                                !! Name of file
      ! Work variables
      type(stringtool_obj):: stringtool
      character(len=:),      &
            allocatable   :: filename

      filename = stringtool%RemoveExtension(name)

      this%read_file    = filename//"_centers"
      this%ib%read_file = filename//"_markers"

      return
    end subroutine ResPart_set_SetReadFileName