trunk/filtrez/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	!
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