Esope source files

   1 : C SICDEF    SOURCE    CHAT      06/03/29    21:33:33     5360           
   2 : C SICDEF    SOURCE    AG        99/7/12    21:39:16     3409           
   3 :       SUBROUTINE SICDEF  (DORTH,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 DTEMP(6),DORTH(6)
  11 :       
  12 :       iarr=0
  13 :       DO 10 ILOOP=1,6
  14 : 10       DTEMP(ILOOP)=DORTH(ILOOP)     
  15 :       
  16 :       
  17 :       
  18 :       IF (IAXEP.EQ.0.OR.IAXEP.EQ.3) THEN
  19 :          DORTH(1)=DTEMP(1)
  20 :          DORTH(2)=DTEMP(2)
  21 :          DORTH(3)=DTEMP(3)
  22 :          DORTH(4)=DTEMP(4)
  23 :          DORTH(5)=DTEMP(5)
  24 :          DORTH(6)=DTEMP(6)
  25 :       ELSEIF (IAXEP.EQ.1) THEN
  26 :          DORTH(1)=DTEMP(3)
  27 :          DORTH(2)=DTEMP(2)
  28 :          DORTH(3)=DTEMP(1)
  29 :          DORTH(4)=DTEMP(6)
  30 :          DORTH(5)=DTEMP(5)
  31 :          DORTH(6)=DTEMP(4)
  32 :       ELSEIF (IAXEP.EQ.2) THEN
  33 :          DORTH(1)=DTEMP(1)
  34 :          DORTH(2)=DTEMP(3)
  35 :          DORTH(3)=DTEMP(2)
  36 :          DORTH(4)=DTEMP(5)
  37 :          DORTH(5)=DTEMP(4)
  38 :          DORTH(6)=DTEMP(6)
  39 :       ELSE   
  40 :          iarr=1
  41 :       ENDIF
  42 :       
  43 :       
  44 :       RETURN                                                                    
  45 :       END                                                                       
  46 : 
  47 :       
  48 : 
  49 :  
  50 :  
  51 :