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    MB234859  25/08/04    21:15:18     12339          
  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. C
  26. -INC PPARAM
  27. -INC CCOPTIO
  28. -INC SMMODEL
  29. C
  30.       NBROBL = 0
  31.       NBRFAC = 0
  32. C
  33.       IMODEL=IPMODE
  34.       NOMID =IMODEL.LNOMID(11)
  35. C
  36. C     Ne pas recreer le NOMID si deja present
  37.       IF (NOMID.NE.0) THEN
  38.         NBROBL=LESOBL(/2)
  39.         NBRFAC=LESFAC(/2)
  40.         IPNOMC=NOMID
  41.         RETURN
  42.       ENDIF
  43. C
  44.       MELE=IMODEL.NEFMOD
  45.       MFR =NUMMFR(MELE)
  46.       MFR2=NUMFOR(IMODEL)
  47. C     =================================================================
  48. C     FORMULATION MECANIQUE
  49. C     =================================================================
  50.       IF (MFR2.EQ.2) THEN
  51. C
  52. C       Elements COQUES
  53. C       ===============
  54.         IF (MFR.EQ.3.OR.MFR.EQ.9) THEN
  55.           IF (IFOUR.EQ.2) THEN
  56.             NBROBL=9
  57.             SEGINI NOMID
  58.             LESOBL(1)='BX,X'
  59.             LESOBL(2)='BX,Y'
  60.             LESOBL(3)='BX '
  61.             LESOBL(4)='BY,X'
  62.             LESOBL(5)='BY,Y'
  63.             LESOBL(6)='BY '
  64.             LESOBL(7)='BZ,X'
  65.             LESOBL(8)='BZ,Y'
  66.             LESOBL(9)='BZ '
  67.           ELSEIF (IFOUR.EQ.1.OR.IFOUR.EQ.0.OR.IFOUR.EQ.-1.OR.
  68.      .             IFOUR.EQ.-2)THEN
  69.             NBROBL=2
  70.             SEGINI,NOMID
  71.             LESOBL(1)='BU,S'
  72.             LESOBL(2)='BU,T'
  73.           ENDIF
  74. C
  75. C       Element JOINT JOI1
  76. C       ==================
  77.         ELSEIF (MFR.EQ.75) THEN
  78.           IF (IFOUR.EQ.2) THEN
  79.             NBROBL=9
  80.             SEGINI,NOMID
  81.             LESOBL(1)='RX,X '
  82.             LESOBL(2)='RX,Y '
  83.             LESOBL(3)='RX,Z '
  84.             LESOBL(4)='RY,X '
  85.             LESOBL(5)='RY,Y '
  86.             LESOBL(6)='RY,Z '
  87.             LESOBL(7)='RZ,X '
  88.             LESOBL(8)='RZ,Y '
  89.             LESOBL(9)='RZ,Z '
  90.           ELSE IF (IFOUR.EQ.-2.OR.IFOUR.EQ.-1) THEN
  91.             NBROBL=2
  92.             SEGINI,NOMID
  93.             LESOBL(1)='RZ,X '
  94.             LESOBL(2)='RZ,Y '
  95.           ENDIF
  96. C
  97. C       Elements POUTRES ET TUYAUX
  98. C       ==========================
  99.         ELSEIF (MFR.EQ.7.OR.MFR.EQ.13) THEN
  100.           IF (IFOUR.EQ.2) THEN
  101.             NBROBL=3
  102.             SEGINI,NOMID
  103.             LESOBL(1)='BU,S'
  104.             LESOBL(2)='BV,S'
  105.             LESOBL(3)='BW,S'
  106.           ELSE
  107.             NBROBL=1
  108.             SEGINI,NOMID
  109.             LESOBL(1)='BW,S'
  110.           ENDIF
  111.         ENDIF
  112. C     =================================================================
  113.       ENDIF
  114. C
  115.       IPNOMC=NOMID
  116.       END
  117.  
  118.  

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