source: LMDZ.3.3/trunk/libf/dyn3d/multscal.F

Last change on this file 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: 188 bytes
RevLine 
[2]1      SUBROUTINE multscal(n,x,lambda,y)
2      IMPLICIT NONE
3      INTEGER i,n
4      REAL lambda,x(n),y(n)
5      DO 10 i=1,n
6         y(i)=x(i)*lambda
710    CONTINUE
8      RETURN
9      END
Note: See TracBrowser for help on using the repository browser.