Parent Directory | Revision Log | Patch
trunk/filtrez/acc.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC | trunk/Sources/filtrez/acc.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC | |
---|---|---|
# | Line 3 | Line 3 |
3 | ! 12:53:09 lmdzadmin Exp $ | ! 12:53:09 lmdzadmin Exp $ |
4 | ||
5 | SUBROUTINE acc(vec, d, im) | SUBROUTINE acc(vec, d, im) |
6 | DIMENSION vec(im, im), d(im) | implicit none |
7 | integer im, i, j | |
8 | real vec(im, im), d(im) | |
9 | real sum, ssum | |
10 | ||
11 | DO j = 1, im | DO j = 1, im |
12 | DO i = 1, im | DO i = 1, im |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |