ResPart_set_SetWriteFileName Subroutine

private pure subroutine ResPart_set_SetWriteFileName(this, name)

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

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~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_SetWriteFileName(this,name)
      !> Sets the base name of file to write.
      implicit none
      class(ResPart_set), intent(inout) :: this                                !! Set of resolved particles
      character(len=*),   intent(in)    :: name                                !! Name of file
      ! Work variables
      integer :: pos
      character(len=str64):: filename

      filename=name

      ! Figure out the base name, removing any extensions
      pos=scan(trim(adjustl(filename)),".",BACK=.true.)
      if (pos.gt.0) filename=filename(1:pos-1)

      this%write_file    = trim(adjustl(filename))//"_centers.h5"
      this%ib%write_file = trim(adjustl(filename))//"_markers.h5"

      return
    end subroutine ResPart_set_SetWriteFileName