Télécharger la plaquette Cast3M


fr en

Télécharger idelnl.eso

Retour à la liste

Numérotation des lignes : 

idelnl

  1. C IDELNL    SOURCE    PASCAL    19/07/26    21:15:14     10198          
  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.  
  27. -INC PPARAM
  28. -INC CCOPTIO
  29.       CHARACTER*8  TABOBL(ITA),TABFAC(ITA)
  30. *
  31.       IRET=1
  32.  
  33. *--------------------------------------------------------------------*
  34. *                                                                    *
  35. *    T Y P E   EQUIPLAS                                              *
  36. *                                                                    *
  37. *--------------------------------------------------------------------*
  38.       IF (IPLAC.EQ.1) THEN
  39. *        MODELE EQUIPLAS
  40. *
  41.          JGM0  = JGOBL
  42.          JGOBL = JGM0+1
  43.          TABOBL(JGM0+1) = 'ECRO'
  44.          GOTO 9999
  45.       ENDIF
  46.       GOTO 99
  47. *
  48.  9999 CONTINUE
  49.       IRET=1
  50.       RETURN
  51. *
  52. *     SI PROBLEME , ON SORT AVEC IRET A 0
  53. *
  54.   99  CONTINUE
  55.       IRET=0
  56.       CALL ERREUR(261)
  57.       RETURN
  58.       END
  59.  
  60.  
  61.  

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