Télécharger comfin.eso

Retour à la liste

Numérotation des lignes :

  1. C COMFIN SOURCE BP208322 17/03/01 21:16:08 9325
  2. SUBROUTINE COMFIN(ipil,iwrk52,wrk522)
  3.  
  4. *-
  5. * supprime le segment pilnec
  6. * ferme les melval
  7. *-
  8. *----------------------------------------------------------------
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11. -INC CCOPTIO
  12. -INC SMCHAML
  13. -INC DECHE
  14. SEGMENT NOMID
  15. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  16. ENDSEGMENT
  17.  
  18. liluc = ipil
  19. wrk52 = iwrk52
  20. *
  21. do jp = 1, liluc(/1)
  22. nomid = liluc(jp,1)
  23. pilnec = liluc(jp,2)
  24. segsup,nomid,pilnec
  25. enddo
  26.  
  27.  
  28. segsup liluc,wrk52,wrk522
  29.  
  30. return
  31. end
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  

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