W=0.0 DO 10 I=1,N W=W+X(I) 10 CONTINUE H=W/REAL(N) V=0.0 DO 20 I=1,N V=V+(X(I)-H)**2 20 CONTINUE S=V/REAL(N) SIGMA=SORT(S) END