calculadora de vectores.....fortran 90

program vectores
IMPLICIT NONE
INTEGER,ALLOCATABLE,DIMENSION(:) :: vector1,vector2,suma,resta,multiplicacion
INTEGER :: ERROR,i
REAL::n
write(*,*)"Dame el tamaño de los vectores"
read*,n
allocate(vector1( n ),vector2( n ),suma( n ),resta( n ),multiplicacion( n ),STAT=error)
IF (error /= 0) THEN
WRITE(*,*) 'NO SUFICIENTE ESPACIO MEMORIA'
STOP
END IF
!LECTURA DE VECTORES
PRINT*,"DAME LOS VALORES DE EL VECTOR"
DO i=1,n
PRINT*, 'ELEMENTO',i,' DE VECTOR A'
READ(*,*) vector1(i)
END DO

PRINT*,"AHORA EL OTRO VECTOR"
DO i=1,n
PRINT*, 'ELEMENTO',i,' DE MVECTOR B'
READ(*,*) vector2(i)
END DO
!realizalas operaciones entre vectores
DO i=1,n

suma(i)=vector1(i)+vector2(i)
END DO


WRITE(*,*) 'VECTORes sumados'
PRINT*,suma
!
!
DO i=1,n

resta(i)=vector1(i)-vector2(i)
END DO


WRITE(*,*) 'VECTORes resta'
PRINT*,resta
!
DO i=1,n

multiplicacion(i)=vector1(i)*vector2(i)
END DO


WRITE(*,*) 'VECTORes multiplicados'
PRINT*,multiplicacion

!
deallocate(vector1,vector2,suma,resta,multiplicacion,STAT=error)
IF (error /= 0) THEN
WRITE(*,*) 'ERROR AL LIBERAR LA MEMORIA'
STOP
END IF
end program vectores