Parent Directory | Revision Log
Initial import
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 |
ViewVC Help | |
Powered by ViewVC 1.1.21 |