source: LMDZ.3.3/trunk/libf/dyn3d/add_vec.F @ 371

Last change on this file since 371 was 2, checked in by lmdz, 25 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 152 bytes
RevLine 
[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.