Télécharger idfro.eso

Retour à la liste

Numérotation des lignes :

  1. C IDFRO SOURCE CHLOE 16/01/08 21:15:01 8771
  2. SUBROUTINE IDFRO (MOOBL,MOFAC,IPLAC,IRET)
  3. *--------------------------------------------------------------------*
  4. * Noms de composantes de materiaux en frottement *
  5. *--------------------------------------------------------------------*
  6. * *
  7. * ENTREES: *
  8. * ------- * *
  9. * MOOBL pointeur sur les mots obligatoires *
  10. * MOFAC POINTEUR SUR LES MOTS FACULTATIFS *
  11. * IPLAC numero du materiau dans MODFRO *
  12. * *
  13. * SORTIES: *
  14. * -------- *
  15. * IRET = 0 si problème *
  16. *--------------------------------------------------------------------*
  17. *
  18. IMPLICIT INTEGER(I-N)
  19. IMPLICIT REAl*8(A-H,O-Z)
  20. -INC SMLMOTS
  21. -INC CCOPTIO
  22. *
  23. IRET=1
  24. jgn=8
  25. *
  26.  
  27. IF ((IPLAC.EQ.1).OR.(IPLAC.EQ.2).OR.(IPLAC.EQ.3)) THEN
  28. INMAT=1
  29. JGM=0
  30. SEGINI MLMOTS
  31. MOOBL=MLMOTS
  32. *
  33. JGM=1
  34. SEGINI MLMOTS
  35. MOFAC=MLMOTS
  36. MOTS(1)='JEU'
  37.  
  38.  
  39. ELSE IF (IPLAC.EQ.4) THEN
  40. *
  41. * FROTTEMENT DE COULOMB
  42. * ---------------------
  43.  
  44. INMAT=1
  45. JGM=1
  46. SEGINI MLMOTS
  47. MOOBL=MLMOTS
  48. MOTS(1)='MU '
  49. *
  50. JGM=3
  51.  
  52. SEGINI MLMOTS
  53. MOFAC=MLMOTS
  54. MOTS(1)='COHE'
  55. MOTS(2)='ADHE'
  56. MOTS(3)='JEU'
  57. ELSE IF (IPLAC.EQ.5) THEN
  58. *
  59. * FROTTEMENTS DE CABLES
  60. * ---------------------
  61.  
  62. INMAT=1
  63. JGM=2
  64. SEGINI MLMOTS
  65. MOOBL=MLMOTS
  66. MOTS(1)='FF '
  67. MOTS(2)='PHIF'
  68. jgm=0
  69. segini mlmots
  70. mofac=mlmots
  71. ELSE
  72. IRET=0
  73. CALL ERREUR (261)
  74. ENDIF
  75. RETURN
  76. END
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  

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