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    CB215821  19/08/20    21:18:24     10287          
  2.       SUBROUTINE IDGRAF(MFR,IFOU,IPNOMC,NBROBL,NBRFAC)
  3. *--------------------------------------------------------------------*
  4. *                                                                    *
  5. *    RECHERCHE DES NOMS DE COMPOSANTES DE GRADIENTS EN FLEXION       *
  6. *    _________________________________________________________       *
  7. *                                                                    *
  8. *    ENTREES:                                                        *
  9. *                                                                    *
  10. *        MFR       NUMERO DE LA FORMULATION                          *
  11. *        IFOU      VALEUR DE IFOUR DE CCOPTIO                        *
  12. *                                                                    *
  13. *    SORTIES:                                                        *
  14. *                                                                    *
  15. *        IPNOMC    POINTEUR SUR LES LISTES DE COMPOSANTES            *
  16. *        NBROBL    LEUR NOMBRE ( 0 SI RIEN TROUVE )                  *
  17. *        NBRFAC    LEUR NOMBRE ( 0 SI RIEN TROUVE )                  *
  18. *                                                                    *
  19. *--------------------------------------------------------------------*
  20. *
  21.       IMPLICIT INTEGER(I-N)
  22.       SEGMENT NOMID
  23.        CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  24.  
  25.       ENDSEGMENT
  26. *
  27.       NBROBL=0
  28.       NBRFAC=0
  29.       NOMID =0
  30. *
  31.       IF (MFR.EQ.3.OR.MFR.EQ.9) THEN
  32. *
  33. *     1/ COQUE TRIDIMENTIONNELLE  ( COQ3,DKT,COQ4 )
  34. *
  35.          IF (IFOU.EQ.2) THEN
  36.             NBROBL=9
  37.             SEGINI NOMID
  38.             LESOBL(1)='BX,X'
  39.             LESOBL(2)='BX,Y'
  40.             LESOBL(3)='BX '
  41.             LESOBL(4)='BY,X'
  42.             LESOBL(5)='BY,Y'
  43.             LESOBL(6)='BY '
  44.             LESOBL(7)='BZ,X'
  45.             LESOBL(8)='BZ,Y'
  46.             LESOBL(9)='BZ '
  47.  
  48. *
  49. *     2/COQUE AXI ET FOURIER ( COQ2 )
  50. *
  51.         ELSEIF (IFOU.EQ.1.OR.IFOU.EQ.0.OR.IFOU.EQ.-1.OR.
  52.      .           IFOU.EQ.-2)THEN
  53.           NBROBL=2
  54.           SEGINI,NOMID
  55.           LESOBL(1)='BU,S'
  56.           LESOBL(2)='BU,T'
  57.         ENDIF
  58. *
  59.       ELSEIF (MFR.EQ.75) THEN
  60. C =====
  61. C  Joint Unidimensionnel JOI1
  62. C =====
  63.        IF (IFOU.EQ.2) THEN
  64.           NBROBL=9
  65.           SEGINI,NOMID
  66.           LESOBL(1)='RX,X '
  67.           LESOBL(2)='RX,Y '
  68.           LESOBL(3)='RX,Z '
  69.           LESOBL(4)='RY,X '
  70.           LESOBL(5)='RY,Y '
  71.           LESOBL(6)='RY,Z '
  72.           LESOBL(7)='RZ,X '
  73.           LESOBL(8)='RZ,Y '
  74.           LESOBL(9)='RZ,Z '
  75.        ELSE IF (IFOU.EQ.-2.OR.IFOU.EQ.-1) THEN
  76.         NBROBL=2
  77.         SEGINI,NOMID
  78.           LESOBL(1)='RZ,X '
  79.           LESOBL(2)='RZ,Y '
  80.        ENDIF
  81.  
  82. *
  83. C   CAS DES POUTRES ET TUYAUX
  84.  
  85.       ELSEIF (MFR.EQ.7.OR.MFR.EQ.13) THEN
  86. C
  87.         IF (IFOU.EQ.2) THEN
  88.           NBROBL=3
  89.           SEGINI,NOMID
  90.           LESOBL(1)='BU,S'
  91.           LESOBL(2)='BV,S'
  92.           LESOBL(3)='BW,S'
  93. C
  94.         ELSE
  95.           NBROBL=1
  96.           SEGINI,NOMID
  97.           LESOBL(1)='BW,S'
  98.         ENDIF
  99.  
  100.       ENDIF
  101. *
  102.       IF(NOMID.EQ.0)SEGINI NOMID
  103.       IPNOMC=NOMID
  104.       END
  105.  
  106.  
  107.  

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