Télécharger la plaquette Cast3M


fr en

Télécharger idtemp.eso

Retour à la liste

Numérotation des lignes : 

idtemp

  1. C IDTEMP    SOURCE    OF166741  24/10/07    21:15:27     12016          
  2.  
  3.       SUBROUTINE IDTEMP(MFR,IFOU,NPINT,IPNOMC,NBROBL,NBRFAC)
  4.  
  5. *--------------------------------------------------------------------*
  6. *                                                                    *
  7. *     RECHERCHE DES NOMS DE COMPOSANTES DE TEMPERATURE               *
  8. *     ________________________________________________               *
  9. *                                                                    *
  10. *     ENTREES:                                                       *
  11. *                                                                    *
  12. *        MFR       FORMULATION DE L'ELEMENT                          *
  13. *        IFOU      IFOUR DE CCOPTIO                                  *
  14. *        NPINT     Nombre de point d'integration dans l'epaisseur    *
  15. *                  = 0 si inutile                                    *
  16. *                                                                    *
  17. *     SORTIES:                                                       *
  18. *                                                                    *
  19. *        IPNOMC    Pointeur sur les listes de noms de composantes    *
  20. *                  obligatoires et facultatives                      *
  21. *                                                                    *
  22. *        NBROBL    nombre de composantes obligatoires                *
  23. *                                                                    *
  24. *        NBRFAC    nombre de composantes facultatives                *
  25. *                                                                    *
  26. *--------------------------------------------------------------------*
  27.       IMPLICIT INTEGER(I-N)
  28.       IMPLICIT REAL*8(A-H,O-Z)
  29.  
  30. -INC PPARAM
  31. -INC SMMODEL
  32.  
  33.       NBROBL=0
  34.       NBRFAC=0
  35.       NOMID=0
  36. *
  37. *---     COQUES ET COQUES EPAISSES
  38. *
  39. *      write(6,*) ' idtemp  mfr ' , mfr
  40.       IF (MFR.EQ.3.OR.MFR.EQ.5.OR.MFR.EQ.9) THEN
  41.         IF(NPINT.EQ.0) THEN
  42.            NBROBL=3
  43.            SEGINI NOMID
  44.            LESOBL(1)='TINF    '
  45.            LESOBL(2)='T       '
  46.            LESOBL(3)='TSUP    '
  47.         ELSE
  48.            NBROBL = 1
  49.            SEGINI NOMID
  50.            LESOBL(1)='T       '
  51.         ENDIF
  52. *
  53. *---     TOUS LES CAS SAUF COQUES ET COQUES EPAISSES
  54. *
  55.       ELSE
  56.         NBROBL=1
  57.         SEGINI NOMID
  58.         LESOBL(1)='T       '
  59.       ENDIF
  60. *
  61.       IF (NOMID.EQ.0) SEGINI NOMID
  62.       IPNOMC=NOMID
  63.  
  64.       RETURN
  65.       END
  66.  
  67.  
  68.  
  69.  

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