Esope source files

   1 : C OTTOPR    SOURCE    CHAT      05/01/13    02:07:47     5004           
   2 :       SUBROUTINE OTTOPR(D,DDEF,DSIGMA)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)
   5 : *
   6 :       PARAMETER (DEUX=2.D0)
   7 : *
   8 :       DIMENSION DDEF(6),DSIGMA(6),D(18)
   9 : *
  10 :       DSIGMA(1)=D(1)*DDEF(1)+D(6)*DDEF(2)+D(5)*DDEF(3)
  11 :       DSIGMA(2)=D(6)*DDEF(1)+D(2)*DDEF(2)+D(4)*DDEF(3)
  12 :       DSIGMA(3)=D(5)*DDEF(1)+D(4)*DDEF(2)+D(3)*DDEF(3)
  13 :       DSIGMA(4)=D(10)*DDEF(1)+D(11)*DDEF(2)+D(12)*DDEF(3)
  14 :      &          +DEUX*D(7)*DDEF(4)
  15 :       DSIGMA(5)=D(13)*DDEF(1)+D(14)*DDEF(2)+D(15)*DDEF(3)
  16 :      &          +DEUX*D(8)*DDEF(5)
  17 :       DSIGMA(6)=D(16)*DDEF(1)+D(17)*DDEF(2)+D(18)*DDEF(3)
  18 :      &          +DEUX*D(9)*DDEF(6)
  19 : *
  20 :       RETURN      
  21 :       END
  22 :  
  23 :  
  24 :  
  25 :  
  26 :  
  27 :  
  28 :  
  29 :