arrays.f90

! Codigo usado na aula do dia 13-11-2017
program arrays
real :: a(2), b(2), c(2), soma, media
real :: x(3), y(3), maximo(1)
real :: pe, co

a = 0.; b = 0.; c = 0.
x = (/2,4,2/); y = (/1,3,2/)

a = b * c ! produto entre dois arrays

! comando anterior equivale a:
do i = 1,2
    a(i) = b(i) * c(i)
end do

a =  10. * c
b = .5
c = sin(b)

! Retorna o maior valor de um array
! maxloc retorna o indice do maior valor
maximo = x(maxloc(x))

! Calcula a soma de todos os elementos de um array
soma = SUM(x)

! Calcula a media aritmetica dos valores de um array
media = SUM(x)/SIZE(x)

! Calcula o produto escalar entre s arrays
pe = SUM(x*y)

! Calcula o modulo(comprimento) do produto dos arrays x e y
co = sqrt(sum(x*y))


print '(50("-"))'
print*,"a: ", a
print*,"b: ", b
print*,"c: ", c
print*,"maximo: ", maximo
print*,"soma: ", soma
print*,"media: ", media
print*,"x: ", x
print*,"y: ", y
print*,"pe: ", pe
print*,"co: ", co
print '(50("-"))'

end program arrays