C GINT2     SOURCE    CHAT      05/01/13    00:18:22     5004           
      SUBROUTINE GINT2                                                          
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
* -INC CCGIB                                                                    
C     Quand IERR ou unit change                                                 
C     mise @ jour var gibiane                                                   
      IERR1=IERR                                                                
      IOLEC1=IOLEC                                                              
      IOIMP1=IOIMP                                                              
      IIMPI1=IIMPI                                                              
      IECHO1=IECHO                                                              
      RETURN                                                                    
      END