@Jedson

program array
!Bloco de Declaração de Variáveis!
Implicit none
    integer(4)::DIM,i,j
    Real(8),allocatable::u(:),v(:), A(:,:),B(:,:), PROD_ESC_uv(:), PROD_VEC_uv(:)
    
!Leitura do arquivo de entrada!
    Read(*,*)DIM
    Read(*,*) !Blank!
    allocate(u(DIM),v(DIM));u=0.0;v=0.0

program VETORES
Implicit None
    Integer(4)::DIM, i
    Real(8), ALLOCATABLE::u(:),v(:)
    Real (8)::PROD_ESC
    READ (*,*) DIM
    WRITE (*,*) DIM
    READ(*,*) !BLANK
    
    ALLOCATE (u(DIM),v(DIM),)

program VETORES
Implicit None
    Integer(4)::i
    Real(8), Dimension(3)::u,v, vetorial
    Real(8):: ESCALAR
    READ(*,*) u(1),u(2),u(3)
    READ(*,*)
    READ(*,*) v(1),v(2),v(3)

    write(*,*) u

program SEGUNDO_GRAU
    Implicit none
    !Bloco de Variáveis
    Integer(4):: a,b,c
    Real(8):: x1, x2, delta 
    !.................
    
  ! Leitura dos dados
    read(*,*)a
    read (*,*)b