Esope source files

   1 : C COMPRE    SOURCE    CHAT      05/01/12    22:16:05     5004           
   2 :         SUBROUTINE COMPRE(IPINI,IPPRE,MACLE)
   3 : * gere le common de pointeurs CMPREC pour COMP
   4 :       IMPLICIT INTEGER(I-N)
   5 : -INC CCPRECO
   6 :         INTEGER IPINI,IPPRE
   7 :         CHARACTER*16 macle
   8 : 
   9 :         do j = 29,1,-1
  10 :           preori(j+1) = preori(j)
  11 :           prepre(j+1) = prepre(j)
  12 :           precle(j+1) = precle(j)
  13 :         enddo
  14 :         preori(1) = ipini
  15 :         prepre(1) = ippre
  16 :         precle(1) = macle
  17 : 
  18 :         return
  19 :         end 
  20 :