Télécharger idtemp.eso

Retour à la liste

Numérotation des lignes :

  1. C IDTEMP SOURCE CHAT 12/06/07 21:15:30 7389
  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 SMMODEL
  31.  
  32. NBROBL=0
  33. NBRFAC=0
  34. NOMID=0
  35. *
  36. *--- COQUES ET COQUES EPAISSES
  37. *
  38. * write(6,*) ' idtemp mfr ' , mfr
  39. IF (MFR.EQ.3.OR.MFR.EQ.5.OR.MFR.EQ.9) THEN
  40. IF(NPINT.EQ.0) THEN
  41. NBROBL=3
  42. SEGINI NOMID
  43. LESOBL(1)='TINF '
  44. LESOBL(2)='T '
  45. LESOBL(3)='TSUP '
  46. ELSE
  47. NBROBL = 1
  48. SEGINI NOMID
  49. LESOBL(1)='T '
  50. ENDIF
  51. *
  52. *--- TOUS LES CAS SAUF COQUES ET COQUES EPAISSES
  53. *
  54. ELSE
  55. NBROBL=1
  56. SEGINI NOMID
  57. LESOBL(1)='T '
  58. ENDIF
  59. *
  60. IF (NOMID.EQ.0) SEGINI NOMID
  61. SEGDES,NOMID
  62. IPNOMC=NOMID
  63.  
  64. RETURN
  65. END
  66.  
  67.  
  68.  
  69.  
  70.  

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