RosettaCodeData/Task/Averages-Root-mean-square/Fortran/averages-root-mean-square.f
2013-04-10 14:58:50 -07:00

1 line
34 B
Fortran

print *,sqrt( sum(x**2)/size(x) )