C SAVEPI    SOURCE    FANDEUR   10/12/14    21:19:32     6812           

      SUBROUTINE SAVEPI (ICOLAC)

C=======================================================================
C
C  BUT:  CHANGER LES POINTEURS
C        SI IIICHA =1 ON  CHANGE  LES POINTEURS
C
C=======================================================================
C
C   PROGRAMME PAR FARVACQUE- REPRIS PAR LENA
C   APPELE PAR    SAUV
C   APPELLE       EXPIL
C
C=======================================================================
C  TABLEAU KCOLA :   VOIR  TYPFIL
C=======================================================================
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
-INC CCOPTIO
-INC TMCOLAC
C
      SEGACT ICOLAC
      NITLAC=KCOLA(/1)
      IIICHA=1
C
      DO 386 IFILE=1,NITLAC
         SEGACT ICOLAC
         ITLACC=KCOLA(IFILE)
         M1=1
         IF(IPSAUV.NE.0) M1=KCOLAC(IFILE)+1
         M2=ITLAC(/1)
         IF(M1.LE.M2) THEN
            CALL EXPIL (IFILE,ICOLAC,M1,M2 ,IIICHA)
         ENDIF
 386  CONTINUE
C
      SEGDES ICOLAC
C
      RETURN
      END