Sources Esope | Cast3M

compre
C COMPRE    SOURCE    OF166741  24/05/02    21:15:03     11928          
 
* gere le common de pointeurs CMPREC pour COMP
 
      SUBROUTINE COMPRE(IPINI,IPPRE,MACLE)
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
-INC CCPRECO
 
      INTEGER IPINI,IPPRE
      CHARACTER*(*) MACLE
 
      DO j = nbepre, 2, -1
        preori(j) = preori(j-1)
        prepre(j) = prepre(j-1)
        precle(j) = precle(j-1)
      ENDDO
      preori(1) = IPINI
      prepre(1) = IPPRE
      precle(1) = '                '
      precle(1) = MACLE
 
c      return
      END