C     Authors               : Jean-Baptiste LEBLOND and Leo MORIN
C     Contact (J.B. Leblond): jbl@lmm.jussieu.fr
C 
C     Copyright 2015 Sorbonne Universites, Universite Pierre et Marie Curie
C     (Paris 6), Institut Jean Le Rond d'Alembert, Tour 55-65, 4 place Jussieu,
C     75252 Paris Cedex 05, France
C
C     This program is free software: you can redistribute it and/or modify
C     it under the terms of the GNU Lesser General Public License as 
C     published by the Free Software Foundation, either version 3 of the
C     License, or (at your option) any later version.
C
C     This program is distributed in the hope that it will be useful,
C     but WITHOUT ANY WARRANTY; without even the implied warranty of
C     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
C     GNU Lesser General Public License for more details.
C
C     You should have received a copy of the GNU Lesser General Public License
C     along with this program. If not, see <http://www.gnu.org/licenses/>.
C	
C 
C 
C
C	 
C 	  
C     Strings of characters for error messages in subroutine UMAT
C     ***********************************************************
C
      CHARACTER*500 STRINGA1,STRINGA2,STRINGA3,STRINGA4,STRINGA5,
     .              STRINGA6,STRINGA7
C
      CHARACTER     WORDA*51
      CHARACTER     WORDB1*40,WORDB2*34,WORDB3*43,WORDB4*38,WORDB5*31,
     .              WORDB6*43,WORDB7*51,WORDB8*41,WORDB9*50,
     .              WORDB10*51,WORDB11*38,WORDB12*47
C
      CHARACTER*500 STRINGB1,STRINGB2,STRINGB3,STRINGB4,STRINGB5,
     .              STRINGB6,STRINGB7,STRINGB8,STRINGB9,STRINGB10,
     .              STRINGB11,STRINGB12,STRINGB13,STRINGB14,STRINGB15,
     .              STRINGB16,STRINGB17,STRINGB18,STRINGB19
C
      CHARACTER     WORDC1*33,WORDC2*32,WORDC3*33,WORDC4*33,WORDC5*33,
     .              WORDC6*33
      CHARACTER     WORDD1*34,WORDD2*32,WORDD3*45,WORDD4*23
      CHARACTER     WORDE1*53,WORDE2*28,WORDE3*39,WORDE4*38,WORDE5*26,
     .              WORDE6*45,WORDE7*26,WORDE8*45,WORDE9*24,WORDE10*39,
     .              WORDE11*36,WORDE12*26,WORDE13*37,WORDE14*33,
     .              WORDE15*38,WORDE16*37,WORDE17*32,WORDE18*23
C 
C     General errors
C     --------------
C 
      WORDA  = ' *** ERROR UMAT - ELEMENT %I INTEGRATION POINT %I -'
C
      WORDB1 = ' THE NAME OF THE MATERIAL MUST BE MADLEB'
      WORDB2 = ' THE NUMBER OF DIAGONAL COMPONENTS'
      WORDB3 = ' OF THE STRESS AND STRAIN TENSORS MUST BE 3'
      WORDB4 = ' THE NUMBER OF OFF-DIAGONAL COMPONENTS'
      WORDB5 = ' THE TOTAL NUMBER OF COMPONENTS'
      WORDB6 = ' OF THE STRESS AND STRAIN TENSORS MUST BE 6'
      WORDB7 = ' *** ERROR UMAT - THE NUMBER OF INTERNAL PARAMETERS'
      WORDB8 = ' FOR THE MODEL OF MADOU-LEBLOND MUST BE 9'
      WORDB9 = ' *** ERROR UMAT - THE NUMBER OF MATERIAL CONSTANTS'
      WORDB10= ' FOR THE MODEL OF MADOU-LEBLOND MUST BE AT LEAST 22'
      WORDB11= ' *** ERROR UMAT - THE NUMBER OF POINTS'
      WORDB12= ' ON THE STRESS-STRAIN CURVE MUST NOT EXCEED 100'
C 
      STRINGA1 = WORDA//WORDB1
      STRINGA2 = WORDA//WORDB2//WORDB3
      STRINGA3 = WORDA//WORDB4//WORDB3
      STRINGA4 = WORDA//WORDB5//WORDB6
      STRINGA5 = WORDB7//WORDB8
      STRINGA6 = WORDB9//WORDB10
      STRINGA7 = WORDB11//WORDB12
C 
C     Errors in subroutines PROJML etc.
C     ---------------------------------
C
      WORDC1 = ' *** ERROR IN SUBROUTINE PROJML -'
      WORDC2 = ' *** ERROR IN SUBROUTINE DSYEV -'
      WORDC3 = ' *** ERROR IN SUBROUTINE CRITML -'
      WORDC4 = ' *** ERROR IN SUBROUTINE YLDSTR -'
      WORDC5 = ' *** ERROR IN SUBROUTINE EVOLML -'
      WORDC6 = ' *** ERROR IN SUBROUTINE CONTML -'
C
      WORDD1 = ' ELEMENT %I INTEGRATION POINT %I -'
      WORDD2 = ' ELEMENT %I INTEGRATION POINT %I'
      WORDD3 = ' ITERATION %I ON EPSB ITERATION %I ON DLAMB -'
      WORDD4 = ' ITERATION %I ON EPSB -'
C
      WORDE1 = ' NB. OF POINTS ON THE STRESS-STRAIN CURVE EXCEEDS 100'
      WORDE2 = ' ERROR ON SEMI-AXES OF VOIDS'
      WORDE3 = ' NO CONVERGENCE OF ITERATIONS ON LAMBDA'
      WORDE4 = ' INVALID ARGUMENT OF SUBROUTINE FUNCRD'
      WORDE5 = ' FOR THE CALCULATION OF IA'
      WORDE6 = ' NO CONVERGENCE OF ITERATIONS ON IA IN FUNCRD'
      WORDE7 = ' FOR THE CALCULATION OF IB'
      WORDE8 = ' NO CONVERGENCE OF ITERATIONS ON IB IN FUNCRD'
      WORDE9 = ' NON-INVERTIBLE MATRIX T'
      WORDE10= ' THE FIRST EQUIVALENT STRAIN IS NONZERO'
      WORDE11= ' THE FIRST EQUIVALENT STRESS IS ZERO'
      WORDE12= ' NON-INVERTIBLE MATRIX MAT'
      WORDE13= ' NO CONVERGENCE OF ITERATIONS ON SIGH'
      WORDE14= ' UNSUCCESSFUL RELAXATION ON DLAMB'
      WORDE15= ' NO CONVERGENCE OF ITERATIONS ON DLAMB'
      WORDE16= ' NO CONVERGENCE OF ITERATIONS ON EPSB'
      WORDE17= ' NON-INVERTIBLE MATRIX Id-(1-f)S'
      WORDE18= ' ZERO EQUIVALENT STRESS'
C 
      STRINGB1 = WORDC1//WORDE1
      STRINGB2 = WORDC2//WORDD2
      STRINGB3 = WORDC3//WORDD1//WORDE2
      STRINGB4 = WORDC3//WORDD1//WORDE3
      STRINGB5 = WORDC3//WORDD1//WORDE4//WORDE5
      STRINGB6 = WORDC3//WORDD1//WORDE6
      STRINGB7 = WORDC3//WORDD1//WORDE4//WORDE7
      STRINGB8 = WORDC3//WORDD1//WORDE8
      STRINGB9 = WORDC3//WORDD1//WORDE9
      STRINGB10= WORDC4//WORDE10
      STRINGB11= WORDC4//WORDE11
      STRINGB12= WORDC1//WORDD1//WORDD3//WORDE12
      STRINGB13= WORDC1//WORDD1//WORDD3//WORDE13
      STRINGB14= WORDC1//WORDD1//WORDD3//WORDE14
      STRINGB15= WORDC1//WORDD1//WORDD4//WORDE15
      STRINGB16= WORDC1//WORDD1//WORDE16
      STRINGB17= WORDC5//WORDD1//WORDE17
      STRINGB18= WORDC5//WORDD1//WORDE18
      STRINGB19= WORDC6//WORDD2