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    MB234859  25/08/04    21:15:22     12339          
  2. *--------------------------------------------------------------------*
  3. *                                                                    *
  4. *     RECHERCHE DES NOMS DE COMPOSANTES DE TEMPERATURE               *
  5. *     ________________________________________________               *
  6. *                                                                    *
  7. *     ENTREES:                                                       *
  8. *                                                                    *
  9. *        IPMODE    Pointeur sur un MMODEL.KMODEL                     *
  10. *        IFOU      IFOUR DE CCOPTIO                                  *
  11. *                                                                    *
  12. *     SORTIES:                                                       *
  13. *                                                                    *
  14. *        IPNOMC    Pointeur sur les listes de noms de composantes    *
  15. *                  obligatoires et facultatives                      *
  16. *        NBROBL    nombre de composantes obligatoires                *
  17. *        NBRFAC    nombre de composantes facultatives                *
  18. *                                                                    *
  19. *   Remarque : Voir INOMID ou CCOPTIO pour signification IFOUR       *
  20. *--------------------------------------------------------------------*
  21. C
  22.       SUBROUTINE IDTEMP(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 SMMODEL
  29. C
  30.       NBROBL = 0
  31.       NBRFAC = 0
  32. C
  33.       IMODEL=IPMODE
  34.       NOMID =IMODEL.LNOMID(8)
  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. C
  47. C     Elements COQUES ET COQUES EPAISSES
  48. C     ==================================
  49.       IF (MFR.EQ.3.OR.MFR.EQ.5.OR.MFR.EQ.9) THEN
  50.         NPINT=INFMOD(1)
  51.         IF(NPINT.EQ.0) THEN
  52.           NBROBL=3
  53.           SEGINI NOMID
  54.           LESOBL(1)='TINF    '
  55.           LESOBL(2)='T       '
  56.           LESOBL(3)='TSUP    '
  57.         ELSE
  58.           NBROBL = 1
  59.           SEGINI NOMID
  60.           LESOBL(1)='T       '
  61.         ENDIF
  62. C
  63. C     Autres elements
  64. C     ===============
  65.       ELSE
  66.         NBROBL=1
  67.         SEGINI NOMID
  68.         LESOBL(1)='T       '
  69.       ENDIF
  70. C
  71.       IPNOMC=NOMID
  72.       END
  73.  
  74.  

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