Télécharger la plaquette Cast3M


fr en

Télécharger umaerr.eso

Retour à la liste

Numérotation des lignes : 

umaerr

  1. C UMAERR    SOURCE    BP208322  15/06/22    21:23:30     8543
  2.  
  3. C=======================================================================
  4. C=                           U M A E R R                               =
  5. C=                           -----------                               =
  6. C=                                                                     =
  7. C=  Parametres :                                                       =
  8. C=  ------------                                                       =
  9. C=   CMATE    (E)   Nom du materiau NON_LINEAIRE UTILISATEUR (16 car.) =
  10. C=   KINC     (E)   Indicateur d'erreur (different de 1) de UMAT       =
  11. C=   NBLIG    (S)   Nombre de lignes supplementaires a afficher        =
  12. C=   CHERRU   (S)   Definition des NBLIG lignes a afficher             =
  13. C=   NERMAX   (E)   Nombre maximal de lignes pouvant etre affichees    =
  14. C=                                                                     =
  15. C=  Remarques :                                                        =
  16. C=  -----------                                                        =
  17. C=   Les lignes sont limitees a 72 caracteres et la valeur de NERMAX a =
  18. C=   ete fixee a 5. Ces valeurs sont figees dans DEFER2 (defer2.eso).  =
  19. C=   Pour eviter tout probleme, il vaut mieux avoir NBLIG <= NERMAX.   =
  20. C=   Rappellons que ces lignes completent le message d'erreur affiche  =
  21. C=   par defaut (de numero 965).                                       =
  22. C=======================================================================
  23.  
  24.       SUBROUTINE UMAERR (CMATE,KINC,NBLIG,CHERRU,NERMAX)
  25.  
  26.       IMPLICIT INTEGER(I-N)
  27.       IMPLICIT REAL*8 (A-H,O-Z)
  28.  
  29.  
  30. -INC PPARAM
  31. -INC CCOPTIO
  32. -INC CCHAMP
  33.  
  34.       CHARACTER*(*) CMATE
  35.       CHARACTER*72 CHERRU(NERMAX)
  36.  
  37.       NBLIG=0
  38.  
  39.       RETURN
  40.       END
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  

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