osse/filter/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	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