select arrays

program eleccion
implicit none

integer, allocatable, dimension(:,:):: mat1, mat2, mat3
integer,allocatable, dimension(:):: vec1, vec2, vec3
integer:: prod
integer:: caso, num,x,y, caso2integer:: fi1, co1, fi2, co2
character(len=2):: respuesta

4 print*, '¨Que operacion desea realizar querido usuario :3 '
print*,'1-Producto(2vectores) 2-Producto(1vector y 1 matriz) 3-Producto(2matrices)'
read*, caso

select case(caso)
case(1)
1 print*, 'Introduzca el numero de elementos de los vectores'
read*, num
if(num==0)then
go to 1
end if

allocate(vec1(num))
print*, 'Introduzcalos componentes de el vector 1'
read*, vec1
allocate(vec2(num))
print*, 'Introduzca los componentes de el vector 2'
read*, vec2

prod=dot_product(vec1,vec2)
print*, 'El resultado de laoperacion es:',prod
print*, 'Desea realizar otro calculo querido usuario :3?'
print*, 'SI o NO'
read*, respuesta
if(respuesta=='si'.or.respuesta=='SI')then
go to 4
end if

case(2)
2 print*,'Introduzca el numero de elementos del vector'
read*, num
if(num==0)then
go to 2
end if

allocate(vec1(num))
print*, 'Introduzca las componentes del vector'
read*, vec1
print*, 'Introduzca el numerode filas de la matriz'
read*, fi1

3 print*,'Introduzca el numero de columnas de la matriz'
read*, co1
if(num/=co1)then
print*,'Valor no valido, vuelva a intentarlo'
go to 3
end ifallocate(mat1(fi1,co1))
print*,'Introduzca las componentes de la matriz por filas'

read*, ((mat1(x,y),x=1,fi1),y=1,co1)
allocate(vec2(fi1))
vec2=matmul(mat1,vec1)
print*,'El producto de la operacion es elvector', vec2
print*, 'Desea realizar otro calculo querido usuario?'
print*, 'SI o NO'
read*, respuesta
if(respuesta=='si'.or.respuesta=='SI')then
go to 4
end if

case(3)
print*,'Introduzcael numero de filas de la matriz A'
read*, fi1
print*,'Introduzca el numero de columnas de la matriz A'
read*, co1
allocate(mat1(fi1,co1))
5 print*, 'Introduzca el numero de filas de la matriz...