Télécharger la plaquette Cast3M


fr en

Télécharger tagra.eso

Retour à la liste

Numérotation des lignes : 

tagra

  1. C TAGRA     SOURCE    JB251061  23/05/10    21:15:17     11667          
  2.       SUBROUTINE TAGRA(IPO1,IPO2,IRET)
  3. C---------------------------------------------------------------------
  4. C
  5. C  ENTREES
  6. C     IPO1 =POINTEUR SUR UN CHAMELEM DE GRADIENT OU GRAFLEXI
  7. C
  8. C  SORTIES
  9. C     IPO2 =POINTEUR SUR UN CHAMELEM DE GRADIENT OU GRAFLEXI
  10. C     IRET =1  OU  0   SUIVANT SUCCES OU PAS
  11. C---------------------------------------------------------------------
  12.       IMPLICIT INTEGER(I-N)
  13.       IMPLICIT REAL*8(A-H,O-Z)
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17. -INC CCHAMP
  18. -INC SMCHAML
  19. C
  20.       IRET=1
  21.       MCHEL1=IPO1
  22.       SEGINI,MCHELM=MCHEL1
  23.       IPO2=MCHELM
  24.       NSOUS=IMACHE(/1)
  25.       IF(TITCHE.EQ.'GRADIENT') THEN
  26.       GO TO 10
  27.       ELSE IF(TITCHE.EQ.'GRADIENT DE FLEXION') THEN
  28.       GO TO 10
  29.       ENDIF
  30. C
  31. C    ERREUR   IL FAUT UN MCHAML DE SOUS TYPE GRADIENT
  32. C                                         OU GRAFLEXI
  33. C
  34.       MOTERR(1:24)='GRADIENT'
  35.       MOTERR(25:48)='GRADIENT DE FLEXION'
  36.       CALL ERREUR(109)
  37.  
  38.       IRET=0
  39.       CALL GINT2
  40.       GOTO 666
  41.  10   CONTINUE
  42. C
  43.       DO 200 IA=1,NSOUS
  44.       MCHAM1=ICHAML(IA)
  45.       SEGINI,MCHAML=MCHAM1
  46.       ICHAML(IA)=MCHAML
  47.       IF(IELVAL(/1).NE.9) THEN
  48. C
  49. C    ERREUR DANS LES TAILLES DES CHAMPS PAR ELEMENTS
  50. C
  51.       MOTERR(1:8)='TAGRA'
  52.       IRET=0
  53.       CALL ERREUR(146)
  54.       GOTO 777
  55.       ENDIF
  56. C    PERMUTATION DES COMPOSANTES
  57.       N2=IELVAL(2)
  58.       N4=IELVAL(4)
  59.       N3=IELVAL(3)
  60.       N7=IELVAL(7)
  61.       N6=IELVAL(6)
  62.       N8=IELVAL(8)
  63.       IELVAL(2)=N4
  64.       IELVAL(4)=N2
  65.       IELVAL(3)=N7
  66.       IELVAL(7)=N3
  67.       IELVAL(6)=N8
  68.       IELVAL(8)=N6
  69.       SEGDES MCHAM1,MCHAML
  70.   200 CONTINUE
  71.       SEGDES MCHEL1,MCHAML
  72.       RETURN
  73.   777 CONTINUE
  74.       SEGDES MCHAML
  75.       SEGSUP MCHAM1
  76.   666 CONTINUE
  77.       SEGDES MCHELM
  78.       SEGSUP MCHEL1
  79.       RETURN
  80.       END
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  

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