Télécharger comfin.eso

Retour à la liste

Numérotation des lignes :

  1. C COMFIN SOURCE CB215821 17/10/12 21:15:08 9589
  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. mobl = pilobl(/1)
  25. mran = pilobl(/2)
  26. mfac = pilfac(/1)
  27. do mr = 1,mran
  28. do ic = 1,mobl
  29. if (pilobl(ic,mr).gt.0) then
  30. deche = pilobl(ic,mr)
  31. endif
  32. enddo
  33. enddo
  34. segsup,nomid,pilnec
  35. enddo
  36.  
  37. segsup liluc,wrk52,wrk522
  38.  
  39. return
  40. end
  41.  
  42.  
  43.  

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