block_obj_SetPeriodicity Subroutine

private pure subroutine block_obj_SetPeriodicity(this, periods)

Sets block periodicity in each direction.

Type Bound

block_obj

Arguments

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

A block object
logical, intent(in) :: periods(3)

Periodicity

Called by

proc~~block_obj_setperiodicity~~CalledByGraph proc~block_obj_setperiodicity block_obj%block_obj_SetPeriodicity proc~collision_obj_setupcollisionblock collision_obj%collision_obj_SetupCollisionBlock proc~collision_obj_setupcollisionblock->proc~block_obj_setperiodicity proc~collision_obj_setupcollisionblock2 collision_obj%collision_obj_SetupCollisionBlock2 proc~collision_obj_setupcollisionblock2->proc~block_obj_setperiodicity proc~setupcaseblock SetUpCaseBlock proc~setupcaseblock->proc~block_obj_setperiodicity proc~setupcaseblock~10 SetUpCaseBlock proc~setupcaseblock~10->proc~block_obj_setperiodicity proc~setupcaseblock~11 SetUpCaseBlock proc~setupcaseblock~11->proc~block_obj_setperiodicity proc~setupcaseblock~12 SetUpCaseBlock proc~setupcaseblock~12->proc~block_obj_setperiodicity proc~setupcaseblock~13 SetUpCaseBlock proc~setupcaseblock~13->proc~block_obj_setperiodicity proc~setupcaseblock~14 SetUpCaseBlock proc~setupcaseblock~14->proc~block_obj_setperiodicity proc~setupcaseblock~2 SetUpCaseBlock proc~setupcaseblock~2->proc~block_obj_setperiodicity proc~setupcaseblock~3 SetUpCaseBlock proc~setupcaseblock~3->proc~block_obj_setperiodicity proc~setupcaseblock~4 SetUpCaseBlock proc~setupcaseblock~4->proc~block_obj_setperiodicity proc~setupcaseblock~5 SetUpCaseBlock proc~setupcaseblock~5->proc~block_obj_setperiodicity proc~setupcaseblock~6 SetUpCaseBlock proc~setupcaseblock~6->proc~block_obj_setperiodicity proc~setupcaseblock~7 SetUpCaseBlock proc~setupcaseblock~7->proc~block_obj_setperiodicity proc~setupcaseblock~8 SetUpCaseBlock proc~setupcaseblock~8->proc~block_obj_setperiodicity proc~setupcaseblock~9 SetUpCaseBlock proc~setupcaseblock~9->proc~block_obj_setperiodicity proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~collision_obj_setupcollisionblock proc~grans_obj_preparesolvercollision grans_obj_PrepareSolverCollision proc~grans_obj_preparesolvercollision->proc~collision_obj_setupcollisionblock program~main main program~main->proc~setupcaseblock program~main~10 main program~main~10->proc~setupcaseblock~10 program~main~11 main program~main~11->proc~setupcaseblock~11 program~main~12 main program~main~12->proc~setupcaseblock~12 program~main~13 main program~main~13->proc~setupcaseblock~13 program~main~14 main program~main~14->proc~setupcaseblock~14 program~main~2 main program~main~2->proc~setupcaseblock~2 program~main~3 main program~main~3->proc~setupcaseblock~3 program~main~4 main program~main~4->proc~setupcaseblock~4 program~main~5 main program~main~5->proc~setupcaseblock~5 program~main~6 main program~main~6->proc~setupcaseblock~6 program~main~7 main program~main~7->proc~setupcaseblock~7 program~main~8 main program~main~8->proc~setupcaseblock~8 program~main~9 main program~main~9->proc~setupcaseblock~9 interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolvercollision interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

Source Code

    pure subroutine block_obj_SetPeriodicity(this,periods)
      !> Sets block periodicity in each direction.
      implicit none
      class(block_obj), intent(inout) :: this                                  !! A block object
      logical,          intent(in)    :: periods(3)                            !! Periodicity

      this%periods = periods

      return
    end subroutine block_obj_SetPeriodicity