Esope source files

   1 : C SICCNT    SOURCE    CHAT      06/03/29    21:33:28     5360           
   2 : C SICCNT    SOURCE    AG        99/7/12    21:39:16     3409           
   3 :       SUBROUTINE SICCNT  (SIGFV,iAXEP,IaRR)
   4 :       
   5 : *   Reorganisation des deformations sur la base de iAXEP      
   6 : 
   7 :       IMPLICIT INTEGER(I-N)
   8 :       IMPLICIT REAL*8(A-H,O-Z)
   9 : 
  10 :       REAL*8 STEMP(6),SIGFV(6)
  11 :       
  12 :       IaRR=0
  13 :       DO 10 ILOOP=1,6
  14 : 10       STEMP(ILOOP)=SIGFV(ILOOP)     
  15 :       
  16 :       
  17 :       
  18 :       IF (iAXEP.EQ.0.OR.iAXEP.EQ.3) THEN
  19 :          SIGFV(1)=STEMP(1)
  20 :          SIGFV(2)=STEMP(2)
  21 :          SIGFV(3)=STEMP(3)
  22 :          SIGFV(4)=STEMP(4)
  23 :          SIGFV(5)=STEMP(5)
  24 :          SIGFV(6)=STEMP(6)
  25 :       ELSEIF (iAXEP.EQ.1) THEN
  26 :          SIGFV(1)=STEMP(3)
  27 :          SIGFV(2)=STEMP(2)
  28 :          SIGFV(3)=STEMP(1)
  29 :          SIGFV(4)=STEMP(6)
  30 :          SIGFV(5)=STEMP(5)
  31 :          SIGFV(6)=STEMP(4)
  32 :       ELSEIF (iAXEP.EQ.2) THEN
  33 :          SIGFV(1)=STEMP(1)
  34 :          SIGFV(2)=STEMP(3)
  35 :          SIGFV(3)=STEMP(2)
  36 :          SIGFV(4)=STEMP(5)
  37 :          SIGFV(5)=STEMP(4)
  38 :          SIGFV(6)=STEMP(6)
  39 :       ELSE   
  40 :          IaRR=1
  41 :       ENDIF
  42 :       
  43 :       
  44 :       RETURN                                                                    
  45 :       END                                                                       
  46 : 
  47 : 
  48 :  
  49 :  
  50 :