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 j = 1, im
    DO i = 1, im
      d(i) = vec(i, j)*vec(i, j)
    END DO
    sum = ssum(im, d, 1)
    sum = sqrt(sum)
    DO i = 1, im
      vec(i, j) = vec(i, j)/sum
    END DO
  END DO
  RETURN
END SUBROUTINE acc
1	guez	81
2			! $Header: /home/cvsroot/LMDZ4/libf/filtrez/acc.F,v 1.1.1.1 2004/05/19
3			! 12:53:09 lmdzadmin Exp $
4
5			SUBROUTINE acc(vec, d, im)
6			DIMENSION vec(im, im), d(im)
7
8			DO j = 1, im
9			DO i = 1, im
10			d(i) = vec(i, j)*vec(i, j)
11			END DO
12			sum = ssum(im, d, 1)
13			sum = sqrt(sum)
14			DO i = 1, im
15			vec(i, j) = vec(i, j)/sum
16			END DO
17			END DO
18			RETURN
19			END SUBROUTINE acc