Télécharger idelnl.eso

Retour à la liste

Numérotation des lignes :

  1. C IDELNL SOURCE CB215821 17/09/28 21:15:02 9574
  2. SUBROUTINE IDELNL (MFR,TABOBL,TABFAC,JGOBL,JGFAC,ITA,IPLAC,IRET)
  3. *--------------------------------------------------------------------*
  4. * Noms de composantes de materiaux elastiques non lineaires *
  5. *--------------------------------------------------------------------*
  6. * *
  7. * ENTREES: *
  8. * ------- *
  9. * MFR numero de formulation *
  10. * TABOBL Tableau des mots OBLIGATOIRES *
  11. * TABFAC Tableau des mots FACULTATIFS *
  12. * JGOBL Taille utilisee du tableau des mots OBLIGATOIRES *
  13. * JGFAC Taille utilisee du tableau des mots FACULTATIFS *
  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. IMPLICIT REAL*8(A-H,O-Z)
  25.  
  26. -INC CCOPTIO
  27. CHARACTER*8 TABOBL(ITA),TABFAC(ITA)
  28. *
  29. IRET=1
  30.  
  31. *--------------------------------------------------------------------*
  32. * *
  33. * T Y P E EQUIPLAS *
  34. * *
  35. *--------------------------------------------------------------------*
  36. IF (IPLAC.EQ.1) THEN
  37. * MODELE EQUIPLAS
  38. *
  39. JGM0 = JGOBL
  40. JGOBL = JGM0+1
  41. TABOBL(JGM0+1) = 'TRAC'
  42. GOTO 9999
  43. ENDIF
  44. GOTO 99
  45. *
  46. 9999 CONTINUE
  47. IRET=1
  48. RETURN
  49. *
  50. * SI PROBLEME , ON SORT AVEC IRET A 0
  51. *
  52. 99 CONTINUE
  53. IRET=0
  54. CALL ERREUR(261)
  55. RETURN
  56. END
  57.  
  58.  

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