ResPart_set_SetWriteFileName Subroutine

private pure subroutine ResPart_set_SetWriteFileName(this, name)

Uses

  • proc~~respart_set_setwritefilename~~UsesGraph proc~respart_set_setwritefilename ResPart_set%ResPart_set_SetWriteFileName module~leaputils leapUtils proc~respart_set_setwritefilename->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 write.

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_setwritefilename~~CallsGraph proc~respart_set_setwritefilename ResPart_set%ResPart_set_SetWriteFileName proc~stringtool_obj_removeextension stringtool_obj%stringtool_obj_RemoveExtension proc~respart_set_setwritefilename->proc~stringtool_obj_removeextension

Called by

proc~~respart_set_setwritefilename~~CalledByGraph proc~respart_set_setwritefilename ResPart_set%ResPart_set_SetWriteFileName proc~respart_set_prepare ResPart_set%ResPart_set_Prepare proc~respart_set_prepare->proc~respart_set_setwritefilename proc~setupcaserespart SetUpCaseResPart proc~setupcaserespart->proc~respart_set_setwritefilename proc~setupcaserespart~2 SetUpCaseResPart proc~setupcaserespart~2->proc~respart_set_setwritefilename proc~setupcaserp SetUpCaseRP proc~setupcaserp->proc~respart_set_setwritefilename proc~setupcaserp~2 SetUpCaseRP proc~setupcaserp~2->proc~respart_set_setwritefilename proc~setupcaserp~3 SetUpCaseRP proc~setupcaserp~3->proc~respart_set_setwritefilename proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~respart_set_prepare program~main main program~main->proc~setupcaserespart program~main~2 main program~main~2->proc~setupcaserp program~main~4 main program~main~4->proc~setupcaserp~2 program~main~6 main program~main~6->proc~setupcaserp~3 program~main~9 main program~main~9->proc~setupcaserespart~2 interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver

Source Code

    pure subroutine ResPart_set_SetWriteFileName(this,name)
      !> Sets the base name of file to write.
      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

      this%base_filename = stringtool%RemoveExtension(name)
      this%write_file    = this%base_filename//"_centers"
      this%ib%write_file = this%base_filename//"_markers"

      return
    end subroutine ResPart_set_SetWriteFileName