Esope source files

   1 : C MUSCVE    SOURCE    CHAT      05/01/13    01:55:52     5004           
   2 :       SUBROUTINE MUSCVE(V1,SCAL,IDIMC,VSL)
   3 : C     ***************************************************************
   4 : C     MULTIPLIE UN VECTEUR PAR UN SCALAIRE VSL = SCAL * V1
   5 : C     ***************************************************************
   6 :       IMPLICIT INTEGER(I-N)
   7 :       INTEGER IDIMC
   8 :       REAL*8    V1(*),SCAL,VSL(*)
   9 : C
  10 :       INTEGER I
  11 : C
  12 :       IF(IDIMC.LE.0) RETURN
  13 :       DO 10 I=1,IDIMC
  14 :        VSL(I) = SCAL * V1(I)
  15 :    10 CONTINUE
  16 :       END
  17 :  
  18 :