Télécharger copret.eso

Retour à la liste

Numérotation des lignes :

  1. C COPRET SOURCE CB215821 16/09/30 21:15:05 9105
  2. SUBROUTINE COPRET(IPINI,IPTEST,MACLE)
  3. * y a t il deja eu preconditionnement
  4. IMPLICIT INTEGER(I-N)
  5. -INC CCPRECO
  6. INTEGER IPINI,IPTEST
  7. CHARACTER*16 macle
  8.  
  9. iptest = 0
  10. do j = 1,30
  11. if (preori(j).eq.ipini.and.precle(j).eq.macle)
  12. & iptest = prepre(j)
  13. enddo
  14.  
  15. return
  16. end
  17.  
  18.  
  19.  

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