lagrangian_set_SetOverwrite Subroutine

private pure subroutine lagrangian_set_SetOverwrite(this, overwrite)

Sets file overwritting.

Type Bound

lagrangian_set

Arguments

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

A set of Lagrangian objects
logical, intent(in) :: overwrite

Overwrite value

Called by

proc~~lagrangian_set_setoverwrite~~CalledByGraph proc~lagrangian_set_setoverwrite lagrangian_set%lagrangian_set_SetOverwrite proc~marker_set_prepare marker_set%marker_set_Prepare proc~marker_set_prepare->proc~lagrangian_set_setoverwrite proc~respart_set_setoverwrite ResPart_set%ResPart_set_SetOverwrite proc~respart_set_setoverwrite->proc~lagrangian_set_setoverwrite proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~marker_set_prepare proc~respart_set_prepare ResPart_set%ResPart_set_Prepare proc~respart_set_prepare->proc~respart_set_setoverwrite interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver 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 lagrangian_set_SetOverwrite(this,overwrite)
      !> Sets file overwritting.
      implicit none
      class(lagrangian_set), intent(inout) :: this                             !! A set of Lagrangian objects
      logical,               intent(in)    :: overwrite                        !! Overwrite value

      this%overwrite=overwrite

      return
    end subroutine lagrangian_set_SetOverwrite