Télécharger idelnl.eso

Retour à la liste

Numérotation des lignes :

  1. C IDELNL SOURCE CHAT 05/01/13 00:28:53 5004
  2. C IDPLEN SOURCE AC2 97/04/29 21:20:29 2680
  3. SUBROUTINE IDELNL (MFR,MOOBL,MOFAC,IPLAC,IRET)
  4. *--------------------------------------------------------------------*
  5. * Noms de composantes de mat{riaux elastiques non lineaires *
  6. *--------------------------------------------------------------------*
  7. * *
  8. * ENTREES: *
  9. * ------- *
  10. * MFR num{ro de formulation *
  11. * IPMODL objet mod}le {l{mentaire ( segment actif ) *
  12. * MOOBL pointeur sur les mots obligatoires *
  13. * MOFAC pointeur sur les mots facultatif *
  14. * IPLAC numero du materiau dans MODPLA *
  15. * *
  16. * SORTIE : *
  17. * ------- *
  18. * *
  19. * IRET : 0 SI PROBLEME *
  20. * *
  21. *--------------------------------------------------------------------*
  22. *
  23. IMPLICIT INTEGER(I-N)
  24. -INC SMLMOTS
  25. -INC CCOPTIO
  26. *
  27. JGN=8
  28. IRET=1
  29. *
  30. *--------------------------------------------------------------------*
  31. * *
  32. * T Y P E EQUIPLAS *
  33. * *
  34. *--------------------------------------------------------------------*
  35. IF (IPLAC.EQ.1) THEN
  36. *
  37. * MODELE EQUIPLAS
  38. *
  39. IF (MOOBL.NE.0) THEN
  40. MLMOTS = MOOBL
  41. JGA = MOTS(/2)
  42. JGM = JGA+1
  43. SEGADJ,MLMOTS
  44. ELSE
  45. JGA = 0
  46. JGM = 1
  47. SEGINI,MLMOTS
  48. ENDIF
  49. MOOBL = MLMOTS
  50. MOTS(JGA+1) = 'TRAC'
  51. GOTO 9999
  52. *
  53. ENDIF
  54. GOTO 99
  55. *
  56. 9999 CONTINUE
  57. IRET=1
  58. RETURN
  59. *
  60. * SI PROBLEME , ON SORT AVEC IRET A 0
  61. *
  62. 99 CONTINUE
  63. IRET=0
  64. CALL ERREUR(261)
  65. RETURN
  66. END
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  

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