Télécharger la plaquette Cast3M


fr en

Télécharger idgraf.eso

Retour à la liste

Numérotation des lignes : 

idgraf

  1. C IDGRAF    SOURCE    OF166741  26/02/23    21:15:14     12480          
  2. *--------------------------------------------------------------------*
  3. *                                                                    *
  4. *    RECHERCHE DES NOMS DE COMPOSANTES DE GRADIENTS EN FLEXION       *
  5. *    _________________________________________________________       *
  6. *                                                                    *
  7. *    ENTREES:                                                        *
  8. *                                                                    *
  9. *        IPMODE    Pointeur sur un MMODEL.KMODEL                     *
  10. *        IFOU      VALEUR DE IFOUR DE CCOPTIO                        *
  11. *                                                                    *
  12. *    SORTIES:                                                        *
  13. *                                                                    *
  14. *        IPNOMC    POINTEUR SUR LES LISTES DE COMPOSANTES            *
  15. *        NBROBL    LEUR NOMBRE ( 0 SI RIEN TROUVE )                  *
  16. *        NBRFAC    LEUR NOMBRE ( 0 SI RIEN TROUVE )                  *
  17. *                                                                    *
  18. *                                                                    *
  19. *   Remarque : Voir INOMID ou CCOPTIO pour signification IFOUR       *
  20. *--------------------------------------------------------------------*
  21. C
  22.       SUBROUTINE IDGRAF(IPMODE,IFOU,IPNOMC,NBROBL,NBRFAC)
  23. C
  24.       IMPLICIT INTEGER(I-N)
  25.       IMPLICIT REAL*8 (A-H,O-Z)
  26. C
  27. -INC PPARAM
  28. -INC CCOPTIO
  29. C
  30. -INC SMMODEL
  31. C
  32.       NBROBL = 0
  33.       NBRFAC = 0
  34. C
  35.       IMODEL=IPMODE
  36.       NOMID =IMODEL.LNOMID(11)
  37. C
  38. C     Ne pas recreer le NOMID si deja present
  39.       IF (NOMID.NE.0) THEN
  40.         NBROBL=LESOBL(/2)
  41.         NBRFAC=LESFAC(/2)
  42.         IPNOMC=NOMID
  43.         RETURN
  44.       ENDIF
  45. C
  46.       MELE=IMODEL.NEFMOD
  47.       MFR =NUMMFR(MELE)
  48.       MFR2=NUMFOR(IMODEL)
  49. C     =================================================================
  50. C     FORMULATION MECANIQUE
  51. C     =================================================================
  52.       IF (MFR2.EQ.2) THEN
  53. C
  54. C       Elements COQUES
  55. C       ===============
  56.         IF (MFR.EQ.3.OR.MFR.EQ.9) THEN
  57.           IF (IFOUR.EQ.2) THEN
  58.             NBROBL=9
  59.             SEGINI NOMID
  60.             LESOBL(1)='BX,X'
  61.             LESOBL(2)='BX,Y'
  62.             LESOBL(3)='BX '
  63.             LESOBL(4)='BY,X'
  64.             LESOBL(5)='BY,Y'
  65.             LESOBL(6)='BY '
  66.             LESOBL(7)='BZ,X'
  67.             LESOBL(8)='BZ,Y'
  68.             LESOBL(9)='BZ '
  69.           ELSEIF (IFOUR.EQ.1.OR.IFOUR.EQ.0.OR.IFOUR.EQ.-1.OR.
  70.      .             IFOUR.EQ.-2)THEN
  71.             NBROBL=2
  72.             SEGINI,NOMID
  73.             LESOBL(1)='BU,S'
  74.             LESOBL(2)='BU,T'
  75.           ENDIF
  76. C
  77. C       Element JOINT JOI1
  78. C       ==================
  79.         ELSEIF (MFR.EQ.75) THEN
  80.           IF (IFOUR.EQ.2) THEN
  81.             NBROBL=9
  82.             SEGINI,NOMID
  83.             LESOBL(1)='RX,X '
  84.             LESOBL(2)='RX,Y '
  85.             LESOBL(3)='RX,Z '
  86.             LESOBL(4)='RY,X '
  87.             LESOBL(5)='RY,Y '
  88.             LESOBL(6)='RY,Z '
  89.             LESOBL(7)='RZ,X '
  90.             LESOBL(8)='RZ,Y '
  91.             LESOBL(9)='RZ,Z '
  92.           ELSE IF (IFOUR.EQ.-2.OR.IFOUR.EQ.-1) THEN
  93.             NBROBL=2
  94.             SEGINI,NOMID
  95.             LESOBL(1)='RZ,X '
  96.             LESOBL(2)='RZ,Y '
  97.           ENDIF
  98. C
  99. C       Elements POUTRES ET TUYAUX
  100. C       ==========================
  101.         ELSEIF (MFR.EQ.7.OR.MFR.EQ.13) THEN
  102.           IF (IFOUR.EQ.2) THEN
  103.             NBROBL=3
  104.             SEGINI,NOMID
  105.             LESOBL(1)='BU,S'
  106.             LESOBL(2)='BV,S'
  107.             LESOBL(3)='BW,S'
  108.           ELSE
  109.             NBROBL=1
  110.             SEGINI,NOMID
  111.             LESOBL(1)='BW,S'
  112.           ENDIF
  113.         ENDIF
  114. C     =================================================================
  115.       ENDIF
  116. C
  117.       IPNOMC=NOMID
  118.       END
  119.  
  120.  
  121.  

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