include_pskewness.f90 Source File

  1. include_pskewness.f90

Contents

Source Code

include_pskewness.f90

Source Code

  avg = mean(x)
  sd = pstdev(x)
  n = SIZE(x)
  res = SUM((x(:)-avg)**3) / sd**3  / n