solid_set_SetOverwrite Subroutine

private pure subroutine solid_set_SetOverwrite(this, overwrite)

Sets file overwritting

Type Bound

solid_set

Arguments

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

A collection of solids
logical, intent(in) :: overwrite

Toggle

Called by

proc~~solid_set_setoverwrite~~CalledByGraph proc~solid_set_setoverwrite solid_set%solid_set_SetOverwrite proc~solid_set_init solid_set%solid_set_Init proc~solid_set_init->proc~solid_set_setoverwrite

Source Code

    pure subroutine solid_set_SetOverwrite(this,overwrite)
      !> Sets file overwritting
      class(solid_set), intent(inout) :: this                                  !! A collection of solids
      logical,          intent(in)    :: overwrite                             !! Toggle
      ! Work variables
      integer :: n

      this%overwrite=overwrite
      do n=1,this%count
        this%p(n)%overwrite=this%overwrite
      end do
      return
    end subroutine solid_set_SetOverwrite