Parent Directory | Revision Log | Revision Graph
o refining osse setup
1 | subroutine ranvar(xens,ave,n,nens,var) |
2 | |
3 | implicit none |
4 | |
5 | real, intent(in) :: xens(n,nens) |
6 | real, intent(in) :: ave(n) |
7 | real, intent(out) :: var(n) |
8 | real, rnens |
9 | integer i, nens, n |
10 | |
11 | rnens=nens |
12 | var=0. |
13 | do i=1,nens |
14 | var(:)=var(:)+(xens(:,i)-ave(:))*(xens(:,i)-ave(:)) |
15 | enddo |
16 | var=(1./(rnens-1.))*var |
17 | end subroutine ranvar |
ViewVC Help | |
Powered by ViewVC 1.1.22 |