C ABSOLU    SOURCE    CHAT      12/08/09    21:15:01     7484           
C   VALEUR ABSOLUE                                                              
C                                                                               
      SUBROUTINE ABSOLU                                                         

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC CCOPTIO                                                                    
C                                                                               
C     CHPOINT                                                                   
C                                                                               
      CALL LIROBJ('CHPOINT ',IPO1,0,IRETOU)                                     
      IF (IRETOU.EQ.0) GOTO 10                                                  
      CALL OPCHPO(IPO1,9,IPO2)                                                  
      CALL ECROBJ('CHPOINT ',IPO2)                                              
      RETURN                                                                    
C                                                                               
C     MCHAML                                                                    
C                                                                               
  10  CONTINUE                                                                  
      CALL LIROBJ('MCHAML',IPO1,0,IRETOU)                                       
      IF (IRETOU.EQ.0) GOTO 20                                                  
      CALL OPCHEL(IPO1,9,IPO2)                                                  
      CALL ECROBJ('MCHAML',IPO2)                                                
      RETURN                                                                    
C                                                                               
C     LISTREEL                                                                  
C                                                                               
  20  CONTINUE                                                                  
      CALL LIROBJ('LISTREEL',IPO1,0,IRETOU)                                     
      IF (IRETOU.EQ.0) GOTO 30                                                  
      CALL OPLREE(IPO1,9,IPO2)                                                  
      CALL ECROBJ('LISTREEL',IPO2)                                              
      RETURN                                                                    
C                                                                               
C     ENTIER                                                                    
C                                                                               
  30  CONTINUE                                                                  
      CALL LIRENT(IR,0,IRETOU)                                                  
      IF (IRETOU.EQ.0) GOTO 40                                                  
      CALL ECRENT(ABS(IR))                                                      
      RETURN                                                                    
C                                                                               
C     FLOTTANT                                                                  
C                                                                               
  40  CONTINUE                                                                  
      CALL LIRREE(XR,0,IRETOU)                                                  
      IF (IRETOU.EQ.0) GO TO 50                                                 
      CALL ECRREE(ABS(XR))                                                      
      RETURN                                                                    
C                                                                               
C     EVOLUTION                                                                  
C                                                                               
  50  CONTINUE                                                                  
      CALL LIROBJ('EVOLUTIO',IPO1,0,IRETOU)                                     
      IF (IRETOU.EQ.0) GO TO 60                                                 
      CALL OPEVOL(IPO1,9,IPO2)                                                  
      CALL ECROBJ('EVOLUTIO',IPO2)                                              
      RETURN                                                                    
C                                                                               
C    PAS D OPERANDE CORRECTE TROUVE                                             
C                                                                               
 60   CALL QUETYP(MOTERR(1:8),0,IRETOU)                                         
      IF(IRETOU.NE.0) THEN                                                      
         CALL ERREUR (39)                                                       
      ELSE                                                                      
         CALL ERREUR(533)                                                       
      ENDIF                                                                     
      RETURN                                                                    
      END