Esope source files

   1 : C SAVEPI    SOURCE    FANDEUR   10/12/14    21:19:32     6812           
   2 : 
   3 :       SUBROUTINE SAVEPI (ICOLAC)
   4 : 
   5 : C=======================================================================
   6 : C
   7 : C  BUT:  CHANGER LES POINTEURS
   8 : C        SI IIICHA =1 ON  CHANGE  LES POINTEURS
   9 : C
  10 : C=======================================================================
  11 : C
  12 : C   PROGRAMME PAR FARVACQUE- REPRIS PAR LENA
  13 : C   APPELE PAR    SAUV
  14 : C   APPELLE       EXPIL
  15 : C
  16 : C=======================================================================
  17 : C  TABLEAU KCOLA :   VOIR  TYPFIL
  18 : C=======================================================================
  19 : C
  20 :       IMPLICIT INTEGER(I-N)
  21 :       IMPLICIT REAL*8(A-H,O-Z)
  22 : C
  23 : -INC CCOPTIO
  24 : -INC TMCOLAC
  25 : C
  26 :       SEGACT ICOLAC
  27 :       NITLAC=KCOLA(/1)
  28 :       IIICHA=1
  29 : C
  30 :       DO 386 IFILE=1,NITLAC
  31 :          SEGACT ICOLAC
  32 :          ITLACC=KCOLA(IFILE)
  33 :          M1=1
  34 :          IF(IPSAUV.NE.0) M1=KCOLAC(IFILE)+1
  35 :          M2=ITLAC(/1)
  36 :          IF(M1.LE.M2) THEN
  36 :             CALL EXPIL (IFILE,ICOLAC,M1,M2 ,IIICHA)
  37 :          ENDIF
  38 :  386  CONTINUE
  39 : C
  40 :       SEGDES ICOLAC
  41 : C
  42 :       RETURN
  43 :       END
  44 : 
  45 :