Sources/bibio/acc.f

!
! $Header: /home/cvsroot/LMDZ4/libf/filtrez/acc.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
!
        subroutine acc(vec,d,im)
        dimension vec(im,im),d(im)
        do 10 j=1,im
        do 9 i=1,im
 9      d(i)=vec(i,j)*vec(i,j)
        sum=ssum(im,d,1)
        sum=sqrt(sum)
        do 10 i=1,im
 10     vec(i,j)=vec(i,j)/sum
        return
        end
1	guez	3	!
2			! $Header: /home/cvsroot/LMDZ4/libf/filtrez/acc.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
3			!
4			subroutine acc(vec,d,im)
5			dimension vec(im,im),d(im)
6			do 10 j=1,im
7			do 9 i=1,im
8			9 d(i)=vec(i,j)*vec(i,j)
9			sum=ssum(im,d,1)
10			sum=sqrt(sum)
11			do 10 i=1,im
12			10 vec(i,j)=vec(i,j)/sum
13			return
14			end