Sources Esope | Cast3M

compre
C COMPRE    SOURCE    CB215821  17/12/07    21:15:04     9656           
        SUBROUTINE COMPRE(IPINI,IPPRE,MACLE)
* gere le common de pointeurs CMPREC pour COMP
      IMPLICIT INTEGER(I-N)
-INC CCPRECO
        INTEGER IPINI,IPPRE
        CHARACTER*16 macle
 
        do j = 29,1,-1
          preori(j+1) = preori(j)
          prepre(j+1) = prepre(j)
          precle(j+1) = precle(j)
        enddo
        preori(1) = ipini
        prepre(1) = ippre
        precle(1) = macle
 
        return
        end