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    PV090527  25/01/07    14:43:03     12115          
  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. -INC SMCOORD
  20. C
  21.       IRET=1
  22.       MCHEL1=IPO1
  23.       SEGINI,MCHELM=MCHEL1
  24.       IPO2=MCHELM
  25.       NSOUS=IMACHE(/1)
  26.       IF(TITCHE.EQ.'GRADIENT') THEN
  27.       GO TO 10
  28.       ELSE IF(TITCHE.EQ.'GRADIENT DE FLEXION') THEN
  29.       GO TO 10
  30.       ENDIF
  31. C
  32. C    ERREUR   IL FAUT UN MCHAML DE SOUS TYPE GRADIENT
  33. C                                         OU GRAFLEXI
  34. C
  35.       MOTERR(1:24)='GRADIENT'
  36.       MOTERR(25:48)='GRADIENT DE FLEXION'
  37.       CALL ERREUR(109)
  38.  
  39.       IRET=0
  40.       CALL GINT2
  41.       GOTO 666
  42.  10   CONTINUE
  43. C
  44.       DO 200 IA=1,NSOUS
  45.       MCHAM1=ICHAML(IA)
  46.       SEGINI,MCHAML=MCHAM1
  47.       ICHAML(IA)=MCHAML
  48.       IF(IELVAL(/1).NE.9) THEN
  49. C
  50. C    ERREUR DANS LES TAILLES DES CHAMPS PAR ELEMENTS
  51. C
  52.       MOTERR(1:8)='TAGRA'
  53.       IRET=0
  54.       CALL ERREUR(146)
  55.       GOTO 777
  56.       ENDIF
  57. C    PERMUTATION DES COMPOSANTES
  58.       N2=IELVAL(2)
  59.       N4=IELVAL(4)
  60.       N3=IELVAL(3)
  61.       N7=IELVAL(7)
  62.       N6=IELVAL(6)
  63.       N8=IELVAL(8)
  64.       IELVAL(2)=N4
  65.       IELVAL(4)=N2
  66.       IELVAL(3)=N7
  67.       IELVAL(7)=N3
  68.       IELVAL(6)=N8
  69.       IELVAL(8)=N6
  70.       SEGDES MCHAM1,MCHAML
  71.   200 CONTINUE
  72.       SEGDES MCHEL1,MCHAML
  73.       RETURN
  74.   777 CONTINUE
  75.       SEGDES MCHAML
  76.       SEGSUP MCHAM1
  77.   666 CONTINUE
  78.       SEGDES MCHELM
  79.       SEGSUP MCHEL1
  80.       RETURN
  81.       END
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  

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