Esope source files

   1 : C CHATIT    SOURCE    PV        09/03/12    21:17:00     6325           
   2 :        SUBROUTINE CHATIT(IPOI1,CHAR,IPOI2)                                      
   3 : *                                                                               
   4 : *  APPELE PAR PRCHAN,CHANGE LE TITRE D'UN MCHAML                                
   5 : *******************************************************************             
   6 : * ENTREES :                                                                     
   7 : * IPOI1 = POINTEUR DU MCHAML POUR LEQUEL ON VEUT CHANAGER LE TITRE              
   8 : * CHAR  = CHAINE DE CARACTERES REPRESENTANT LE TITRE                            
   9 : *                                                                               
  10 : * SORITIES :                                                                    
  11 : *                                                                               
  12 : * IPOI2 = POINTEUR DU MCHAML AVEC LE NOUVELLE TITRE                             
  13 : *                                                                               
  14 : ************************************************************************        
  15 :       IMPLICIT INTEGER(I-N)
  16 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  17 : -INC SMCHAML                                                                    
  18 : -INC CCOPTIO                                                                    
  19 :       CHARACTER*(*) CHAR                                                        
  20 : *                                                                               
  20 :       CALL COPIE8(IPOI1,IPOI2)                                                  
  21 :       L1=LEN(CHAR)                                                              
  22 :       MCHELM = IPOI2                                                            
  23 :       SEGACT MCHELM                                                             
  24 :       N3 = INFCHE(/2)                                                           
  25 :       N1 = IMACHE(/1)                                                           
  26 :       SEGADJ MCHELM                                                             
  27 :       TITCHE=CHAR(1:L1)                                                         
  28 :       SEGDES MCHELM                                                             
  29 : *                                                                               
  30 :       RETURN                                                                    
  31 :       END                                                                       
  32 :                                                                                 
  33 :  
  34 :  
  35 :