C SIGMOY    SOURCE    CHAT      06/08/24    22:07:37     5529           
      SUBROUTINE SIGMOY(IPMODL,IPCHE1,IPCHE2)                                   
*_______________________________________________________________________        
*                                                                               
*      CALCUL DU SIGMA MOYENNE A PARTIR                                         
*         DU SIGMA OBTENU DIRECTEMENT                                           
*                                                                               
*_______________________________________________________________________        
*                                                                               
*      ENTREE :                                                                 
*      --------                                                                 
*           IPMODL   POINTEUR SUR UN MMODEL                                     
*           IPCHE1   POINTEUR SUR MCHAML DE CONTRAINTES                         
*                                                                               
*                                                                               
*      SORTIE :                                                                 
*      --------                                                                 
*           IPCHE2   POINTEUR SUR MCHAML MOYENNE                                
*                    = 0 SI IMPOSSIBLE                                          
*                                                                               
*      PASSAGE AUX NOUVEAUX CHAMELEM PAR JM CAMPENON LE 02/91                   
*                                                                               
*_______________________________________________________________________        
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
*                                                                               
*     PASSAGE AUX NOEUDS                                                        
*                                                                               
      CALL CHASUP (IPMODL,IPCHE1,IPCHA1,IRET,1)                                 
      IF (IRET.NE.0) GOTO 630                                                   
*                                                                               
*     ON TRANSFORME LE MCHAML EN CHPOINT                                        
*                                                                               
      CALL CHAMPO (IPCHA1,1,IPCHP,IRET)                                         
      IF (IRET.NE.1) GOTO 620                                                   
*                                                                               
*     ON FAIT LA TRANSFORMATION INVERSE CHPOINT --> MCHAML                      
*                                                                               
      CALL CHAME1 (0,IPMODL,IPCHP,' ',IPCHE2,5)                                 
      IF (IERR.NE.0) GOTO 610                                                   
*                                                                               
      CALL DTCHAM(IPCHA1)                                                       
      CALL DTCHPO(IPCHP )                                                       
      RETURN                                                                    
*                                                                               
*     EN CAS D'ERREUR                                                           
*                                                                               
 610  CONTINUE                                                                  
      CALL DTCHPO(IPCHP)                                                        
*                                                                               
 620  CONTINUE                                                                  
      CALL DTCHAM(IPCHA1)                                                       
*                                                                               
 630  CONTINUE                                                                  
      IPCHE2=0                                                                  
      RETURN                                                                    
      END