Télécharger defer2.eso

Retour à la liste

Numérotation des lignes :

  1. C DEFER2 SOURCE BP208322 15/06/22 21:17:01 8543
  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
  40. CALL ERREUR(KERRE)
  41. CALL ERREUR(267)
  42. C= ---
  43. C= 2 - Cas ou KERR1 = 0
  44. C= ---
  45. ELSE IF (KERR1.EQ.0) THEN
  46. IF (KERRE.EQ.1) THEN
  47. CALL ERREUR(267)
  48. ELSE IF (KERRE.EQ.2) THEN
  49. CALL ERREUR(268)
  50. ELSE IF (KERRE.EQ.7) THEN
  51. CALL ERREUR(355)
  52. ELSE IF (KERRE.EQ.21) THEN
  53. CALL ERREUR(276)
  54. ELSE IF (KERRE.EQ.22) THEN
  55. CALL ERREUR(275)
  56. ELSE IF (KERRE.EQ.30) THEN
  57. CALL ERREUR(270)
  58. ELSE IF (KERRE.EQ.31) THEN
  59. CALL ERREUR(271)
  60. ELSE IF (KERRE.EQ.32) THEN
  61. CALL ERREUR(272)
  62. ELSE IF (KERRE.EQ.33) THEN
  63. CALL ERREUR(273)
  64. ELSE IF (KERRE.EQ.34) THEN
  65. CALL ERREUR(325)
  66. ELSE IF (KERRE.EQ.35) THEN
  67. CALL ERREUR(331)
  68. ELSE IF (KERRE.EQ.36) THEN
  69. CALL ERREUR(330)
  70. ELSE IF (KERRE.EQ.37) THEN
  71. CALL ERREUR(354)
  72. ELSE IF (KERRE.EQ.38) THEN
  73. CALL ERREUR(360)
  74. ELSE IF (KERRE.EQ.48) THEN
  75. CALL ERREUR(366)
  76. ELSE IF (KERRE.EQ.49) THEN
  77. CALL ERREUR(365)
  78. ELSE IF (KERRE.EQ.50) THEN
  79. CALL ERREUR(464)
  80. ELSE IF (KERRE.EQ.51) THEN
  81. CALL ERREUR(529)
  82. ELSE IF (KERRE.EQ.52) THEN
  83. CALL ERREUR(366)
  84. ELSE IF (KERRE.EQ.53) THEN
  85. CALL ERREUR(530)
  86. ELSE IF (KERRE.EQ.54) THEN
  87. CALL ERREUR(564)
  88. ELSE IF (KERRE.EQ.55) THEN
  89. CALL ERREUR(561)
  90. ELSE IF (KERRE.EQ.56) THEN
  91. CALL ERREUR(562)
  92. ELSE IF (KERRE.EQ.57) THEN
  93. CALL ERREUR(604)
  94. ELSE IF (KERRE.EQ.58) THEN
  95. CALL ERREUR(605)
  96. ELSE IF (KERRE.EQ.59) THEN
  97. CALL ERREUR(606)
  98. ELSE IF (KERRE.EQ.60) THEN
  99. CALL ERREUR(619)
  100. ELSE IF (KERRE.EQ.61) THEN
  101. CALL ERREUR(652)
  102. ELSE IF (KERRE.EQ.62) THEN
  103. CALL ERREUR(653)
  104. ELSE IF (KERRE.EQ.63) THEN
  105. CALL ERREUR(268)
  106. ELSE IF (KERRE.EQ.64) THEN
  107. CALL ERREUR(655)
  108. ELSE IF (KERRE.EQ.65) THEN
  109. CALL ERREUR(656)
  110. ELSE IF (KERRE.EQ.66) THEN
  111. CALL ERREUR(657)
  112. ELSE IF (KERRE.EQ.67) THEN
  113. CALL ERREUR(658)
  114. ELSE IF (KERRE.EQ.68) THEN
  115. CALL ERREUR(659)
  116. ELSE IF (KERRE.EQ.69) THEN
  117. CALL ERREUR(714)
  118. ELSE IF (KERRE.EQ.70) THEN
  119. CALL ERREUR(654)
  120. ELSE IF (KERRE.EQ.71) THEN
  121. CALL ERREUR(412)
  122. ELSE IF (KERRE.EQ.72) THEN
  123. CALL ERREUR(923)
  124. ELSE IF (KERRE.EQ.73) THEN
  125. CALL ERREUR(924)
  126. ELSE IF (KERRE.EQ.75) THEN
  127. CALL ERREUR(876)
  128. ELSE IF (KERRE.EQ.82) THEN
  129. CALL ERREUR(895)
  130. ELSE IF (KERRE.EQ.90) THEN
  131. CALL ERREUR(958)
  132. ELSE IF (KERRE.EQ.99) THEN
  133. MOTERR(1:4)=NOMAC(INPLAS)
  134. MOTERR(5:12)=NOMFR(MFR)
  135. CALL ERREUR(269)
  136. ELSE
  137. CALL ERREUR (563)
  138. ENDIF
  139. C= ---
  140. C= 3 - Cas ou KERR1 < 0
  141. C= Modeles EXTERNES integres par UMAT ou CREEP
  142. C= Code erreur renvoye par la programmation de l'utilisateur
  143. C= ---
  144. C= Dans le cas d'un modele NON_LINEAIRE UTILISATEUR integre par
  145. C= UMAT, l'utilisateur a alors la possibilite de completer le
  146. C= message d'erreur (965) en adaptant le sousprogramme UMAERR
  147. C= a son modele (via le numero declare dans l'operateur MODELE).
  148. C= ---
  149. ELSE IF (KERR1.LT.0) THEN
  150. C* CMATE=MOTERR(5:20)
  151. IF (ABS(KERRE).EQ.92) THEN
  152. ISIGN=ABS(KERRE)/KERRE
  153. IRET=ISIGN*(-1-KERR1)
  154. INTERR(1)=-1
  155. INTERR(2)=IRET
  156. CALL ERREUR(965)
  157. IF (IRET.EQ.251) THEN
  158. CALL ERREUR(251)
  159. CALL ERREUR(5)
  160. ENDIF
  161. CALL UMAERR(MOTERR(5:20),IRET,NBLIG,CHERRU,NUERRM)
  162. NBLIG=MAX(0,MIN(NBLIG,NUERRM))
  163. DO i=1,NBLIG
  164. WRITE(IOIMP,10) CHERRU(i)
  165. ENDDO
  166. 10 FORMAT(1X,A)
  167. ELSE IF (ABS(KERRE).EQ.93) THEN
  168. ISIGN=ABS(KERRE)/KERRE
  169. IRET=ISIGN*(-1-KERR1)
  170. INTERR(1)=-2
  171. INTERR(2)=IRET
  172. CALL ERREUR(962)
  173. IF (IRET.EQ.251) THEN
  174. CALL ERREUR(251)
  175. CALL ERREUR(5)
  176. ENDIF
  177. ELSE
  178. CALL ERREUR(563)
  179. ENDIF
  180. ENDIF
  181.  
  182. RETURN
  183. END
  184.  
  185.  
  186.  
  187.  

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