hit_init Function

private function hit_init(val)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	val

Return Value type(hit_t)

Source Code

    type(hit_t) function hit_init(val)

        real(kind=wp), intent(in) :: val
        type(vector) :: tmp

        tmp = vector(val, val, val)

        hit_init = hit_t(tmp, tmp, val, int(val))

    end function hit_init