Esope source files

   1 : C TAGRAD    SOURCE    CHAT      05/01/13    03:31:20     5004           
   2 :       SUBROUTINE TAGRAD                                                         
   3 : C---------------------------------------------------------------------          
   4 : C                                                                               
   5 : C         CALCUL DE TRANSPOSE DE GRADIENT OU GRAFLEXI                           
   6 : C                                                                               
   7 : C     CH1  =  TAGR  CHEL ;                                                      
   8 : C     CHEL =  OBJET DE TYPE  MCHAML  DE SOUS TYPE GRADIENT                    
   9 : C                                              OU GRAFLEXI                    
  10 : C     CH1  =  OBJET DE TYPE  MCHAML  DE SOUS TYPE GRADIENT                    
  11 : C             OU GRAFLEXI, TRANSPOSE DE CHEL                                                 
  12 : C                                                                               
  13 : C--------------------------------------------------------------------           
  14 :       IMPLICIT INTEGER(I-N)
  15 : -INC CCOPTIO                                                                    
  16 : C                                                                               
  16 :       CALL LIROBJ('MCHAML',IPO1,1,IRT1)                                       
  17 :       IF(IERR.NE.0) RETURN                                                      
  18 :       IF(IRT1.EQ.0) GOTO 666                                                    
  19 : C                                                                               
  19 :       CALL TAGRA(IPO1,IPO2,IRET)                                                
  20 :       IF(IRET.EQ.0) RETURN                                                      
  21 : C                                                                               
  21 :       CALL ECROBJ('MCHAML',IPO2)                                              
  22 :       RETURN                                                                    
  23 : C                                                                               
  24 :   666 CONTINUE                                                                  
  25 :       MOTERR(1:8)='MCHAML'                                                    
  25 :       CALL ERREUR(37)                                                           
  26 :       RETURN                                                                    
  27 :       END                                                                       
  28 :  
  29 :