Télécharger la plaquette Cast3M


fr en

Télécharger sicdef.eso

Retour à la liste

Numérotation des lignes : 

sicdef

  1. C SICDEF    SOURCE    CB215821  26/10/26    21:16:05     12682          
  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.          DTEMP(ILOOP)=DORTH(ILOOP)
  15. 10    CONTINUE
  16.  
  17.  
  18.  
  19.       IF (IAXEP.EQ.0.OR.IAXEP.EQ.3) THEN
  20.          DORTH(1)=DTEMP(1)
  21.          DORTH(2)=DTEMP(2)
  22.          DORTH(3)=DTEMP(3)
  23.          DORTH(4)=DTEMP(4)
  24.          DORTH(5)=DTEMP(5)
  25.          DORTH(6)=DTEMP(6)
  26.       ELSEIF (IAXEP.EQ.1) THEN
  27.          DORTH(1)=DTEMP(3)
  28.          DORTH(2)=DTEMP(2)
  29.          DORTH(3)=DTEMP(1)
  30.          DORTH(4)=DTEMP(6)
  31.          DORTH(5)=DTEMP(5)
  32.          DORTH(6)=DTEMP(4)
  33.       ELSEIF (IAXEP.EQ.2) THEN
  34.          DORTH(1)=DTEMP(1)
  35.          DORTH(2)=DTEMP(3)
  36.          DORTH(3)=DTEMP(2)
  37.          DORTH(4)=DTEMP(5)
  38.          DORTH(5)=DTEMP(4)
  39.          DORTH(6)=DTEMP(6)
  40.       ELSE
  41.          iarr=1
  42.       ENDIF
  43.  
  44.  
  45.       RETURN
  46.       END
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales