MENU CASE FORTRAN

TAREA:
Hacer un programa que pida al usuario elegir una opción de 3 operaciones disponibles. De acuerdo a esto, el usuario ingresará los valores de X, Y y Z, la estructura debe ser a través deSELECT CASE, y los datos deben ser introducidos por el usuario.

PROGRAM MENUOPERACIONES
IMPLICIT NONE
INTEGER :: opcion !declaramos como entero opcion, este es el valor del menu que el usuario va aescoger
REAL :: a,x,y,z
PRINT*,'Que opcion eliges?, TECLEA UNA OPCION MOSTRADA' !le pedimos al usuario que escoja una opcion
PRINT*,'1.-a=X+Y/X+Z' !esta es la opcion numero 1
PRINT*,'2.-a=X*Y*Z'!esta es la opcion numero 2
PRINT*,'3.-a=X^Y^Z' !esta es la opcion numero 3
READ(*,*) opcion !lee el numero que el usuario escogio
SELECT CASE(opcion) !comienza la seleccion de casosCASE(1) !comienza el caso 1
PRINT*,'Dame el valor de x' !pide el valor d de x
READ(*,*) x !lee el valor de x
PRINT*,'Dame el valor de y' !pide el valor de y
READ(*,*) y !lee el valor dey
PRINT*,'Dame el valor de z' !pide el valor de z
READ(*,*) z !lee el valor de z
a=(x+y)/(x+z) !realiza la operacion y la guarda en la variable a PRINT*,' x= ', x,' y= ', y, 'z= ', z,&!va a imprimir el valor de x, el de y y el de z
&'a=(x+y)/(x+z)=', a !realiza la operacion y muestra el valor en a
CASE(2) !comienza el caso 2
PRINT*,'Dame el valor de x' !pide el valor d dex
READ(*,*) x !lee el valor de x
PRINT*,'Dame el valor de y' !pide el valor de y
READ(*,*) y !lee el valor de y
PRINT*,'Dame el valor de z' !pide el valor de z
READ(*,*) z!lee el valor de z
a=x*y*z !realiza la operacion y la guarda en la variable a
PRINT*,' x= ', x,' y= ', y, 'z= ', z,& !va a imprimir el valor de x, el de y y el de z
&'a=x*y*z=', a !realiza laoperacion y muestra el valor en a
CASE(3) !comienza el caso 3
PRINT*,'Dame el valor de x' !pide el valor d de x
READ(*,*) x !lee el valor de x
PRINT*,'Dame el valor de y' !pide...