Esope source files

   1 : C PROMA2    SOURCE    CHAT      05/01/13    02:33:03     5004           
   2 :       SUBROUTINE PROMA2(D,DEPSI,NSTRS,SIG)
   3 : C======================================================================         
   4 : C                                                                               
   5 : C  CALCULE LE PRODUIT D*DEPSI=SIG                                         
   6 : C                                                                                                                                   
   7 : C=======================================================================        
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8(A-H,O-Z)                                                                                                       
  10 :       DIMENSION D(4,4),DEPSI(9),SIG(6)                                 
  11 : C                                                                               
  12 :       DO 100 I=1,NSTRS
  13 :       SIG(I)=0.D0
  14 :       DO 100 J=1,NSTRS
  15 :       SIG(I)=SIG(I)+D(I,J)*DEPSI(J)
  16 :   100 CONTINUE                                                                  
  17 : C                                                                               
  18 :       RETURN                                                                    
  19 :       END                                                                       
  20 :  
  21 :  
  22 :