1 : C DEFER2 SOURCE FANDEUR 14/01/22 21:15:08 7891 2 : 3 : C======================================================================= 4 : C= Parametres : = 5 : C= ------------ = 6 : C= INPLAS (E) Numero de materiau inelastique = 7 : C= MFR (E) Formulation associee a l'element = 8 : C= MELE (E) Numero de l'element fini (cf. NOMTP dans CCHAMP) = 9 : C= IB (E) Numero de l'element dans la zone elementaire = 10 : C= IGAU (E) Numero du point de Gauss = 11 : C= KERR1 (E) Indice d'erreur = 12 : C= KERRE (E) Indice d'erreur = 13 : C======================================================================= 14 : 15 : SUBROUTINE DEFER2 (INPLAS,MFR,MELE,IB,IGAU,KERR1,KERRE) 16 : 17 : IMPLICIT INTEGER(I-N) 18 : IMPLICIT REAL*8 (A-H,O-Z) 19 : 20 : -INC CCOPTIO 21 : -INC CCHAMP 22 : 23 : PARAMETER (NUERRM=5) 24 : CHARACTER*72 CHERRU(NUERRM) 25 : 26 : IF (KERRE.EQ.0) RETURN 27 : IF (KERR1.EQ.2) RETURN 28 : 29 : C= Impression de quelques messages d erreurs 30 : C= ------------------------------------------- 31 : INTERR(1)=IB 32 : INTERR(2)=IGAU 33 : INTERR(3)=ABS(INPLAS) 34 : MOTERR(1:4)=NOMTP(MELE) 35 : 36 : C= --- 37 : C= 1 - Cas ou KERR1 = 1 38 : C= --- 39 : IF (KERR1.EQ.1) THEN 39 : CALL ERREUR(KERRE) 39 : CALL ERREUR(267) 40 : C= --- 41 : C= 2 - Cas ou KERR1 = 0 42 : C= --- 43 : ELSE IF (KERR1.EQ.0) THEN 44 : IF (KERRE.EQ.1) THEN 44 : CALL ERREUR(267) 45 : ELSE IF (KERRE.EQ.2) THEN 45 : CALL ERREUR(268) 46 : ELSE IF (KERRE.EQ.7) THEN 46 : CALL ERREUR(355) 47 : ELSE IF (KERRE.EQ.21) THEN 47 : CALL ERREUR(276) 48 : ELSE IF (KERRE.EQ.22) THEN 48 : CALL ERREUR(275) 49 : ELSE IF (KERRE.EQ.30) THEN 49 : CALL ERREUR(270) 50 : ELSE IF (KERRE.EQ.31) THEN 50 : CALL ERREUR(271) 51 : ELSE IF (KERRE.EQ.32) THEN 51 : CALL ERREUR(272) 52 : ELSE IF (KERRE.EQ.33) THEN 52 : CALL ERREUR(273) 53 : ELSE IF (KERRE.EQ.34) THEN 53 : CALL ERREUR(325) 54 : ELSE IF (KERRE.EQ.35) THEN 54 : CALL ERREUR(331) 55 : ELSE IF (KERRE.EQ.36) THEN 55 : CALL ERREUR(330) 56 : ELSE IF (KERRE.EQ.37) THEN 56 : CALL ERREUR(354) 57 : ELSE IF (KERRE.EQ.38) THEN 57 : CALL ERREUR(360) 58 : ELSE IF (KERRE.EQ.48) THEN 58 : CALL ERREUR(366) 59 : ELSE IF (KERRE.EQ.49) THEN 59 : CALL ERREUR(365) 60 : ELSE IF (KERRE.EQ.50) THEN 60 : CALL ERREUR(464) 61 : ELSE IF (KERRE.EQ.51) THEN 61 : CALL ERREUR(529) 62 : ELSE IF (KERRE.EQ.52) THEN 62 : CALL ERREUR(366) 63 : ELSE IF (KERRE.EQ.53) THEN 63 : CALL ERREUR(530) 64 : ELSE IF (KERRE.EQ.54) THEN 64 : CALL ERREUR(564) 65 : ELSE IF (KERRE.EQ.55) THEN 65 : CALL ERREUR(561) 66 : ELSE IF (KERRE.EQ.56) THEN 66 : CALL ERREUR(562) 67 : ELSE IF (KERRE.EQ.57) THEN 67 : CALL ERREUR(604) 68 : ELSE IF (KERRE.EQ.58) THEN 68 : CALL ERREUR(605) 69 : ELSE IF (KERRE.EQ.59) THEN 69 : CALL ERREUR(606) 70 : ELSE IF (KERRE.EQ.60) THEN 70 : CALL ERREUR(619) 71 : ELSE IF (KERRE.EQ.61) THEN 71 : CALL ERREUR(652) 72 : ELSE IF (KERRE.EQ.62) THEN 72 : CALL ERREUR(653) 73 : ELSE IF (KERRE.EQ.63) THEN 73 : CALL ERREUR(268) 74 : ELSE IF (KERRE.EQ.64) THEN 74 : CALL ERREUR(655) 75 : ELSE IF (KERRE.EQ.65) THEN 75 : CALL ERREUR(656) 76 : ELSE IF (KERRE.EQ.66) THEN 76 : CALL ERREUR(657) 77 : ELSE IF (KERRE.EQ.67) THEN 77 : CALL ERREUR(658) 78 : ELSE IF (KERRE.EQ.68) THEN 78 : CALL ERREUR(659) 79 : ELSE IF (KERRE.EQ.69) THEN 79 : CALL ERREUR(714) 80 : ELSE IF (KERRE.EQ.70) THEN 80 : CALL ERREUR(654) 81 : ELSE IF (KERRE.EQ.71) THEN 81 : CALL ERREUR(412) 82 : ELSE IF (KERRE.EQ.72) THEN 82 : CALL ERREUR(923) 83 : ELSE IF (KERRE.EQ.73) THEN 83 : CALL ERREUR(924) 84 : ELSE IF (KERRE.EQ.75) THEN 84 : CALL ERREUR(876) 85 : ELSE IF (KERRE.EQ.82) THEN 85 : CALL ERREUR(895) 86 : ELSE IF (KERRE.EQ.90) THEN 86 : CALL ERREUR(958) 87 : ELSE IF (KERRE.EQ.99) THEN 88 : MOTERR(1:4)=NOMAC(INPLAS) 89 : MOTERR(5:12)=NOMFR(MFR) 89 : CALL ERREUR(269) 90 : ELSE 90 : CALL ERREUR (563) 91 : ENDIF 92 : C= --- 93 : C= 3 - Cas ou KERR1 < 0 94 : C= Modeles EXTERNES integres par UMAT ou CREEP 95 : C= Code erreur renvoye par la programmation de l'utilisateur 96 : C= --- 97 : C= Dans le cas d'un modele NON_LINEAIRE UTILISATEUR integre par 98 : C= UMAT, l'utilisateur a alors la possibilite de completer le 99 : C= message d'erreur (965) en adaptant le sousprogramme UMAERR 100 : C= a son modele (via le numero declare dans l'operateur MODELE). 101 : C= --- 102 : ELSE IF (KERR1.LT.0) THEN 103 : C* CMATE=MOTERR(5:20) 104 : IF (ABS(KERRE).EQ.92) THEN 105 : ISIGN=ABS(KERRE)/KERRE 106 : IRET=ISIGN*(-1-KERR1) 107 : INTERR(1)=-1 108 : INTERR(2)=IRET 108 : CALL ERREUR(965) 109 : IF (IRET.EQ.251) THEN 109 : CALL ERREUR(251) 109 : CALL ERREUR(5) 110 : ENDIF 110 : CALL UMAERR(MOTERR(5:20),IRET,NBLIG,CHERRU,NUERRM) 111 : NBLIG=MAX(0,MIN(NBLIG,NUERRM)) 112 : DO i=1,NBLIG 113 : WRITE(IOIMP,10) CHERRU(i) 114 : ENDDO 115 : 10 FORMAT(1X,A) 116 : ELSE IF (ABS(KERRE).EQ.93) THEN 117 : ISIGN=ABS(KERRE)/KERRE 118 : IRET=ISIGN*(-1-KERR1) 119 : INTERR(1)=-2 120 : INTERR(2)=IRET 120 : CALL ERREUR(962) 121 : IF (IRET.EQ.251) THEN 121 : CALL ERREUR(251) 121 : CALL ERREUR(5) 122 : ENDIF 123 : ELSE 123 : CALL ERREUR(563) 124 : ENDIF 125 : ENDIF 126 : 127 : RETURN 128 : END 129 : 130 :
© Cast3M 2003 - All rights reserved.
Disclaimer