set_photon Subroutine

public subroutine set_photon(pos, dir)

Arguments

Type IntentOptional Attributes Name
type(vector), intent(in) :: pos
type(vector), intent(in) :: dir

Source Code

        subroutine set_photon(pos, dir)

            type(vector), intent(in) :: pos, dir

            photon_origin%pos = pos
            photon_origin%nxp = dir%x
            photon_origin%nyp = dir%y
            photon_origin%nzp = dir%z

        end subroutine set_photon