Télécharger compre.eso

Retour à la liste

Numérotation des lignes :

compre
  1. C COMPRE SOURCE OF166741 24/05/02 21:15:03 11928
  2.  
  3. * gere le common de pointeurs CMPREC pour COMP
  4.  
  5. SUBROUTINE COMPRE(IPINI,IPPRE,MACLE)
  6.  
  7. IMPLICIT INTEGER(I-N)
  8. IMPLICIT REAL*8(A-H,O-Z)
  9.  
  10. -INC CCPRECO
  11.  
  12. INTEGER IPINI,IPPRE
  13. CHARACTER*(*) MACLE
  14.  
  15. DO j = nbepre, 2, -1
  16. preori(j) = preori(j-1)
  17. prepre(j) = prepre(j-1)
  18. precle(j) = precle(j-1)
  19. ENDDO
  20. preori(1) = IPINI
  21. prepre(1) = IPPRE
  22. precle(1) = ' '
  23. precle(1) = MACLE
  24.  
  25. c return
  26. END
  27.  
  28.  
  29.  

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