source: trunk/LMDZ.MARS/libf/dyn3d/multscal.F @ 798

Last change on this file since 798 was 38, checked in by emillour, 15 years ago

Ajout du modè Martien (mon LMDZ.MARS.BETA, du 28/01/2011) dans le rértoire mars, pour pouvoir suivre plus facilement les modifs.
EM
File size: 188 bytes
Line 
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.