revolution_init Function

private function revolution_init(prim, o) result(out)

Initialise the Revolution modifier for a SDF.

Arguments

Type IntentOptional Attributes Name
class(sdf_base), target :: prim

SDF to modify
real(kind=wp), intent(in) :: o

Amount to revolve by.

Return Value type(revolution)


Source Code

    type(revolution) function revolution_init(prim, o) result(out)
        !! Initialise the Revolution modifier for a SDF.

        !> SDF to modify
        class(sdf_base), target :: prim
        !> Amount to revolve by.
        real(kind=wp), intent(IN) :: o

        out%o = o
        out%prim => prim

        out%optProps = prim%optProps

        out%layer = prim%layer
        out%transform = identity()

    end function revolution_init