Télécharger la plaquette Cast3M


fr en

Télécharger idqudi.eso

Retour à la liste

Numérotation des lignes : 

idqudi

  1. C IDQUDI    SOURCE    GOUNAND   24/11/06    21:15:10     12073          
  2.       SUBROUTINE IDQUDI(ITELEM,ITQUAF,MYDISC)
  3.       IMPLICIT REAL*8 (A-H,O-Z)
  4.       IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM         : IDQUDI
  7. C PROJET      : Noyau linéaire NLIN
  8. C DESCRIPTION : Etant donne un type d'element, on renvoie le type du
  9. C               QUAF correspondant et sa famille de discretisation
  10. C
  11. C
  12. C LANGAGE     : ESOPE
  13. C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  14. C               mél : gounand@semt2.smts.cea.fr
  15. C***********************************************************************
  16. C APPELES          :
  17. C APPELE PAR       :
  18. C***********************************************************************
  19. C ENTREES            : ITELEM
  20. C SORTIES            : ITQUAF, MYDISC
  21. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  22. C***********************************************************************
  23. C VERSION    : v1, 25/10/2024, version initiale
  24. C HISTORIQUE : v1, 25/10/2024, création
  25. C HISTORIQUE :
  26. C HISTORIQUE :
  27. C***********************************************************************
  28.  
  29. -INC PPARAM
  30. -INC CCOPTIO
  31. -INC CCGEOME
  32. *
  33.       CHARACTER*4 MYDISC,NMELEM,NMELEQ
  34.       PARAMETER (NQUAF=7)
  35.       CHARACTER*4 NMQUAF(NQUAF)
  36.       CHARACTER*4 NMQUAI(NQUAF)
  37.       CHARACTER*4 NMLINE(NQUAF)
  38. *
  39. * Fonctions appelées
  40. *
  41. *
  42.       INTEGER ICOMP ,ISOUS
  43.       INTEGER        NSOUS,NDDL,ITQUAF
  44. *
  45.       DATA NMQUAF/'SEG3','TRI7','QUA9','CU27','PR21','TE15','PY19'/
  46.       DATA NMQUAI/'SEG3','TRI6','QUA8','CU20','PR15','TE10','PY13'/
  47.       DATA NMLINE/'SEG2','TRI3','QUA4','CUB8','PRI6','TET4','PYR5'/
  48. *
  49. * Executable statements
  50. *
  51. * Est-ce un QUAF ?
  52.       NMELEM=NOMS(ITELEM)
  53.       CALL PLACE5(NMQUAF,NQUAF,IQUAF,NMELEM)
  54.       IF (IQUAF.EQ.0) THEN
  55.          CALL PLACE5(NMLINE,NQUAF,ILINE,NMELEM)
  56.          IF (ILINE.EQ.0) THEN
  57.             CALL PLACE5(NMQUAI,NQUAF,IQUAI,NMELEM)
  58.             IF (IQUAI.EQ.0) THEN
  59.                MOTERR(1:8)=NMELEM//'    '
  60. * Le type d'element fini %m1:8 ne convient pas.
  61.                CALL ERREUR(926)
  62.                RETURN
  63.             ELSE
  64.                MYDISC='QUAI'
  65.                NMELEQ=NMQUAF(IQUAI)
  66.             ENDIF
  67.          ELSE
  68.             MYDISC='LINE'
  69.             NMELEQ=NMQUAF(ILINE)
  70.          ENDIF
  71.          CALL PLACE5(NOMS,NOMBR,ITQUAF,NMELEQ)
  72.       ELSE
  73.          MYDISC='QUAF'
  74.          ITQUAF=ITELEM
  75.       ENDIF
  76. *
  77. * Normal termination
  78. *
  79.       RETURN
  80. *
  81. * Format handling
  82. *
  83. *
  84. * Error handling
  85. *
  86. *
  87. * End of subroutine IDQUDI
  88. *
  89.       END
  90.  
  91.  

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