Télécharger copret.eso

Retour à la liste

Numérotation des lignes :

copret
  1. C COPRET SOURCE OF166741 24/05/02 21:15:03 11928
  2.  
  3. * Y a-t-il deja eu preconditionnement ?
  4.  
  5. SUBROUTINE COPRET(IPINI,IPTEST,MACLE)
  6.  
  7. IMPLICIT INTEGER(I-N)
  8. IMPLICIT REAL*8(A-H,O-Z)
  9.  
  10.  
  11. -INC CCPRECO
  12.  
  13. INTEGER IPINI,IPTEST
  14. CHARACTER*(*) MACLE
  15. CHARACTER*(16) m16cle
  16.  
  17. m16cle = MACLE
  18. IPTEST = 0
  19. DO j = 1, nbepre
  20. IF (preori(j).EQ.IPINI. AND. precle(j).EQ.m16cle)
  21. & IPTEST = prepre(j)
  22. ENDDO
  23.  
  24. c return
  25. END
  26.  
  27.  
  28.  

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