source:
LMDZ.3.3/branches/LF/libf/dyn3d/add_vec.F
@
5306
Last change on this file since 5306 was 2, checked in by , 25 years ago | |
---|---|
|
|
File size: 152 bytes |
Line | |
---|---|
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.