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 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
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