C MUSCVE    SOURCE    CHAT      05/01/13    01:55:52     5004           
      SUBROUTINE MUSCVE(V1,SCAL,IDIMC,VSL)
C     ***************************************************************
C     MULTIPLIE UN VECTEUR PAR UN SCALAIRE VSL = SCAL * V1
C     ***************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER IDIMC
      REAL*8    V1(*),SCAL,VSL(*)
C
      INTEGER I
C
      IF(IDIMC.LE.0) RETURN
      DO 10 I=1,IDIMC
       VSL(I) = SCAL * V1(I)
   10 CONTINUE
      END