My Project
 All Classes Files Functions Variables Macros
acc.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  subroutine acc(vec,d,im)
5  dimension vec(im,im),d(im)
6  do j=1,im
7  do i=1,im
8  d(i)=vec(i,j)*vec(i,j)
9  enddo
10  sum=ssum(im,d,1)
11  sum=sqrt(sum)
12  do i=1,im
13  vec(i,j)=vec(i,j)/sum
14  enddo
15  enddo
16  return
17  end