osse/EnKF/distsub.F

        real function distsub(a,b,n)

        implicit none

        integer i, n
        real*8    a(n), b(n)
        
        distsub=(a(1)-b(1))**2
        do i=2,n
         distsub=distsub+(a(i)-b(i))**2
        enddo
        distsub=sqrt(distsub)
        
        return
        end


1	afe	1.1	real function distsub(a,b,n)
2
3			implicit none
4
5			integer i, n
6			real*8 a(n), b(n)
7
8			distsub=(a(1)-b(1))**2
9			do i=2,n
10			distsub=distsub+(a(i)-b(i))**2
11			enddo
12			distsub=sqrt(distsub)
13
14			return
15			end
16
17