Fortran - repetir la ejecución

Saludos, estoy estudiando la carrera, y como mi primer lenguaje me están "enseñando" fortran, nos han dejado programas relativamente sencillos, (para la pésima calidad de enseñanza que nos dan respecto al lenguaje).

Pues bien tengo el siguiente código:

Program N_trios

Real :: X, Y, G, e=2.7182
Integer :: I
write (*,*) "Escribe los valores del trio numerico, I, X y Y"
read (*,*) I, X, Y
select case (I)
Case (0)
G = X**2+Y**2
write (*,*) "f(x,y)= X^2+Y^2" ," f(x,y)= " ,G
print *, "G= ", G, " X= ", X, " Y= ", Y
case (1)
G = e**X+e**Y
write (*,*) "f(x,y)= e^x+e^y", " f(x,y)= ", G
print *, "G= ", G, " X= ", X, " Y= ", Y
case (2)
G = Y+SIN(X)
write (*,*) "f(x,y)= Y+Sen(x)", " f(x,y)= ", G
print *, "G= ", G, " X= ", X, " Y= ", Y
case (3)
G = cos(x)
write (*,*) "f(x,y)= cos(x)", " f(x,y)= ", G
print *, "G= ", G, " X= ", X, " Y= ", Y
case (4:5)
G = sqrt(X**2+Y**2)
write (*,*) "f(x,y)= SQRT(X^2+Y^2)", " f(x,y)= ", G
print *, "G= ", G, " X= ", X, " Y= ", Y
case default
G = X-3
Write (*,*) "f(x,y)= X-3", " f(x,y)= ", G
print *, "G= ", G, " X= ", X, " Y= ", Y

End Select

End Program N_trios

Pero necesito hacer que se repita, se pide que al entregar los resultados, haga una pregunta quieres introducir otro trío numérico? Yes, de lo contrario No, al escribir Yes el programa debe hacer todo el proceso de nuevo.

Eh intentado usando do, o cycle, pero o se cicla o en cuanto corre, se cierra.