Télécharger compre.eso

Retour à la liste

Numérotation des lignes :

  1. C COMPRE SOURCE CB215821 16/09/30 21:15:03 9105
  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.  
  21.  
  22.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales