Esope source files

   1 : C GINT2     SOURCE    CHAT      05/01/13    00:18:22     5004           
   2 :       SUBROUTINE GINT2                                                          
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO                                                                    
   5 : * -INC CCGIB                                                                    
   6 : C     Quand IERR ou unit change                                                 
   7 : C     mise @ jour var gibiane                                                   
   8 :       IERR1=IERR                                                                
   9 :       IOLEC1=IOLEC                                                              
  10 :       IOIMP1=IOIMP                                                              
  11 :       IIMPI1=IIMPI                                                              
  12 :       IECHO1=IECHO                                                              
  13 :       RETURN                                                                    
  14 :       END                                                                       
  15 :