rating Function

pure function rating(p)

Arguments

Type IntentOptional Attributes Name
type(part), intent(in) :: p

Return Value integer(kind=ip)


Called by

proc~~rating~~CalledByGraph proc~rating problem_19::rating program~problem_19 problem_19 program~problem_19->proc~rating

Source Code

        pure integer(ip) function rating(p)
            type(part),intent(in) :: p
            rating = sum(p%xmas)
        end function rating