source: LMDZ.3.3/trunk/libf/dyn3d/multipl.F @ 2851

Last change on this file since 2851 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: 369 bytes
Line 
1      SUBROUTINE multipl(n,x1,x2,y)
2      IMPLICIT NONE
3c=======================================================================
4c
5c   multiplication de deux vecteurs
6c
7c=======================================================================
8c
9      INTEGER n,i
10      REAL x1(n),x2(n),y(n)
11c
12      DO 10 i=1,n
13         y(i)=x1(i)*x2(i)
1410    CONTINUE
15c
16      RETURN
17      END
Note: See TracBrowser for help on using the repository browser.