¿Cómo escribir un programa de error cuadrático medio (error cuadrático medio) usando Fortran 90?

programa jaja

implícito ninguno

real, asignable::a(:)

entero::n

real：：aver

real：：var

integer：：i

print*, "Ingrese el número total de datos"

leer*, n

asignar(a(n))

hacer i=1, n

imprimir*, "Por favor ingrese el número " , i, "datos"

leer*, a(i)

end do

aver=sum(a)/n

var=sum((a-aver)**2)/n

write(*,'("el error cuadrático medio es", f12.2)')var

fin