include_variance.f90 Source File

  1. include_variance.f90

Contents

Source Code

include_variance.f90

Source Code

avg = mean(x)
res = SUM((x(:) - avg)**2)
res = res / REAL(SIZE(x) - 1,prec)