Sources Esope | Cast3M

gint2
C GINT2     SOURCE    CHAT      05/01/13    00:18:22     5004
      SUBROUTINE GINT2
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-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