Is there a better way to find max vale between variables ?

I did as below, but I not sure it's the best way

*********************

DO case
CASE tMinutos1 > tMinutos2 .and. tMinutos1 > tMinutos2

myMaxValue = tMinutos1

CASE tMinutos2 > tMinutos1 .and. tMinutos2 > tMinutos3

myMaxValue = tMinutos2

CASE tMinutos3 > tMinutos1 .and. tMinutos3 > tMinutos2

myMaxValue = tMinutos3

OTHERWISE
endcase
***********************