C PROMA2    SOURCE    CHAT      05/01/13    02:33:03     5004           
      SUBROUTINE PROMA2(D,DEPSI,NSTRS,SIG)
C======================================================================         
C                                                                               
C  CALCULE LE PRODUIT D*DEPSI=SIG                                         
C                                                                                                                                   
C=======================================================================        
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                                                                       
      DIMENSION D(4,4),DEPSI(9),SIG(6)                                 
C                                                                               
      DO 100 I=1,NSTRS
      SIG(I)=0.D0
      DO 100 J=1,NSTRS
      SIG(I)=SIG(I)+D(I,J)*DEPSI(J)
  100 CONTINUE                                                                  
C                                                                               
      RETURN                                                                    
      END