source: LMDZ5/branches/testing/libf/filtrez/acc.F @ 5004

Last change on this file since 5004 was 2220, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2186:2216 into testing branch

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 448 bytes
Line 
1!
2! $Header$
3!
4        subroutine acc(vec,d,im)
5        implicit none
6        integer :: im
7        real :: vec(im,im),d(im)
8        integer :: i,j
9        real ::sum
10        real,external :: ssum
11        do j=1,im
12          do i=1,im
13            d(i)=vec(i,j)*vec(i,j)
14          enddo
15          sum=ssum(im,d,1)
16          sum=sqrt(sum)
17          do i=1,im
18            vec(i,j)=vec(i,j)/sum
19          enddo
20        enddo
21        return
22        end
Note: See TracBrowser for help on using the repository browser.