source:
LMDZ.3.3/trunk/libf/dyn3d/add_vec.F
@
266
Last change on this file since 266 was 2, checked in by , 25 years ago | |
---|---|
|
|
File size: 152 bytes |
Rev | Line | |
---|---|---|
[2] | 1 | SUBROUTINE add_vec(n,x,y,z) |
2 | INTEGER n,i | |
3 | REAL x(n),y(n),z(n) | |
4 | DO i=1,n | |
5 | z(i)=x(i)+y(i) | |
6 | ENDDO | |
7 | RETURN | |
8 | END |
Note: See TracBrowser
for help on using the repository browser.