Timbalactu

Oi pessoa estou com um problema que não estou conseguindo identificar ou resolver, preciso gerar vários números aleatórios entre 0 e 1 e se esses numeros forem > 0.5 então minha variável se igual a -1 e se forem menores se iguala a 1 entretando algo esta dando errado o código que fiz é esse: program valor_medio !---------------------------------------------------------------------- Implicit none Real N1(10), N2(100) Integer i, x1(10), x2(100) !---------------------------------------------------------------------- print*,'GERANDO VARIÁVEIS ALEATÓRIAS' print*,'-> Para 10 variáveis' call random_number(N1) do i=1,10 if (N1(i).lt.0.5) then (x1(i).eq.1) else if (N1(i).ge.0.5) then (x1(i) = -1) end if write(*,*) x1(i) end do end program