C TRESCA    SOURCE    CB215821  23/07/12    21:15:12     11704          
      SUBROUTINE TRESCA
*---------------------------------------------------------------------
*
*              CALCUL DE LA CONTRAINTE DE TRESCA
*
*     SYNTAXE :
*     ---------
*     CHAL1 = TRESCA MODL1 SIG1 (CAR1) (MOT1)
*
*       MODL1 =  Modele de calcul (type  MMODEL)
*       SIG1  =  Objet de type MCHALM  de CONTRAINTES
*       CAR1  =  Objet de type MCHAML  de CARACTERISTIQUE
*       MOT1  =  Mot qui indique pour les coques ou l'on calcule les
*                contraintes
*       CHEL1 =  Objet de type MCHAML de sous type SCALAIRE (aux pts
*                de gauss pour les contraintes)
*
* Passage aux nouveaux chamelem par jm CAMPENON le 04/91
*
*--------------------------------------------------------------------
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
*
-INC PPARAM
-INC CCOPTIO
*
      CHARACTER*4 MOMOT
*
      MOMOT='    '
      IMIL=0
*
      IPMODL=0
      IPCHE1=0
      IPCHE2=0
*
      CALL LIROBJ ('MMODEL  ',IPMODL,1,IRET)
      CALL ACTOBJ ('MMODEL  ',IPMODL,1)
      IF(IERR.NE.0) RETURN
*
      CALL LIROBJ('MCHAML  ',IPCHE1,1,IRET)
      CALL ACTOBJ('MCHAML  ',IPCHE1,1)
      IF(IERR.NE.0) RETURN
*
*     On lit les CARACTERISTIQUES (facultatif)
*
      CALL LIROBJ('MCHAML  ',IPCHE2,0,IRET)
      IF(IRET .EQ. 1) CALL ACTOBJ('MCHAML  ',IPCHE2,1)
      IF(IERR.NE.0) RETURN
*
*     Lecture d'un mot si necessaire
*
      CALL LIRCHA(MOMOT,0,IRET)
      IF(IERR.NE.0) RETURN
      IF (IRET.NE.0) THEN
       IF (MOMOT.EQ.'SUPE') IMIL=1
       IF (MOMOT.EQ.'INFE') IMIL=-1
       IF (MOMOT.NE.'SUPE'.AND.MOMOT.NE.'INFE'.AND.MOMOT.NE.'MOYE') THEN
          MOTERR=MOMOT
          CALL ERREUR(7)
          RETURN
       ENDIF
      ENDIF
*
      IRET=0
      CALL TRESK(IPMODL,IPCHE1,IPCHE2,IMIL,IPSCAL,IRET)
*
      IF(IRET.NE.0) THEN
        CALL ACTOBJ('MCHAML  ',IPSCAL,1)
        CALL ECROBJ('MCHAML  ',IPSCAL)
      ENDIF
      END