Télécharger idfro.eso

Retour à la liste

Numérotation des lignes :

idfro
  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.  
  22. -INC PPARAM
  23. -INC CCOPTIO
  24. *
  25. IRET=1
  26. jgn=8
  27. *
  28.  
  29. IF ((IPLAC.EQ.1).OR.(IPLAC.EQ.2).OR.(IPLAC.EQ.3)) THEN
  30. INMAT=1
  31. JGM=0
  32. SEGINI MLMOTS
  33. MOOBL=MLMOTS
  34. *
  35. JGM=1
  36. SEGINI MLMOTS
  37. MOFAC=MLMOTS
  38. MOTS(1)='JEU'
  39.  
  40.  
  41. ELSE IF (IPLAC.EQ.4) THEN
  42. *
  43. * FROTTEMENT DE COULOMB
  44. * ---------------------
  45.  
  46. INMAT=1
  47. JGM=1
  48. SEGINI MLMOTS
  49. MOOBL=MLMOTS
  50. MOTS(1)='MU '
  51. *
  52. JGM=3
  53.  
  54. SEGINI MLMOTS
  55. MOFAC=MLMOTS
  56. MOTS(1)='COHE'
  57. MOTS(2)='ADHE'
  58. MOTS(3)='JEU'
  59. ELSE IF (IPLAC.EQ.5) THEN
  60. *
  61. * FROTTEMENTS DE CABLES
  62. * ---------------------
  63.  
  64. INMAT=1
  65. JGM=2
  66. SEGINI MLMOTS
  67. MOOBL=MLMOTS
  68. MOTS(1)='FF '
  69. MOTS(2)='PHIF'
  70. jgm=0
  71. segini mlmots
  72. mofac=mlmots
  73. ELSE
  74. IRET=0
  75. CALL ERREUR (261)
  76. ENDIF
  77. RETURN
  78. END
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  

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