Initialize to smallest possible value Initialize to largest possible value
Loop over all twelve edges in a hex cell
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(vector), | intent(in) | :: | af(6) | |||
integer, | intent(in) | :: | adjacent(12,2) | |||
real(kind=psb_dpk_), | intent(out) | :: | largest | |||
real(kind=psb_dpk_), | intent(out) | :: | smallest |