C CHATIT    SOURCE    PV        09/03/12    21:17:00     6325           
       SUBROUTINE CHATIT(IPOI1,CHAR,IPOI2)                                      
*                                                                               
*  APPELE PAR PRCHAN,CHANGE LE TITRE D'UN MCHAML                                
*******************************************************************             
* ENTREES :                                                                     
* IPOI1 = POINTEUR DU MCHAML POUR LEQUEL ON VEUT CHANAGER LE TITRE              
* CHAR  = CHAINE DE CARACTERES REPRESENTANT LE TITRE                            
*                                                                               
* SORITIES :                                                                    
*                                                                               
* IPOI2 = POINTEUR DU MCHAML AVEC LE NOUVELLE TITRE                             
*                                                                               
************************************************************************        
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
-INC SMCHAML                                                                    
-INC CCOPTIO                                                                    
      CHARACTER*(*) CHAR                                                        
*                                                                               
      CALL COPIE8(IPOI1,IPOI2)                                                  
      L1=LEN(CHAR)                                                              
      MCHELM = IPOI2                                                            
      SEGACT MCHELM                                                             
      N3 = INFCHE(/2)                                                           
      N1 = IMACHE(/1)                                                           
      SEGADJ MCHELM                                                             
      TITCHE=CHAR(1:L1)                                                         
      SEGDES MCHELM                                                             
*                                                                               
      RETURN                                                                    
      END