1 : C UMAERR SOURCE FANDEUR 14/01/22 21:15:19 7891 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 : -INC CCOPTIO 30 : -INC CCHAMP 31 : 32 : CHARACTER*(*) CMATE 33 : CHARACTER*72 CHERRU(NERMAX) 34 : 35 : NBLIG=0 36 : 37 : RETURN 38 : END 39 : 40 : 41 : 42 : 43 :
© Cast3M 2003 - All rights reserved.
Disclaimer