C TAGRAD    SOURCE    CHAT      05/01/13    03:31:20     5004
      SUBROUTINE TAGRAD
C---------------------------------------------------------------------
C
C         CALCUL DE TRANSPOSE DE GRADIENT OU GRAFLEXI
C
C     CH1  =  TAGR  CHEL ;
C     CHEL =  OBJET DE TYPE  MCHAML  DE SOUS TYPE GRADIENT
C                                              OU GRAFLEXI
C     CH1  =  OBJET DE TYPE  MCHAML  DE SOUS TYPE GRADIENT
C             OU GRAFLEXI, TRANSPOSE DE CHEL
C
C--------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO
C
      CALL LIROBJ('MCHAML',IPO1,1,IRT1)
      IF(IERR.NE.0) RETURN
      IF(IRT1.EQ.0) GOTO 666
C
      CALL TAGRA(IPO1,IPO2,IRET)
      IF(IRET.EQ.0) RETURN
C
      CALL ECROBJ('MCHAML',IPO2)
      RETURN
C
  666 CONTINUE
      MOTERR(1:8)='MCHAML'
      CALL ERREUR(37)
      RETURN
      END