Télécharger comfin.eso

Retour à la liste

Numérotation des lignes :

  1. C COMFIN SOURCE CB215821 19/08/20 21:15:59 10287
  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.  
  15. liluc = ipil
  16. wrk52 = iwrk52
  17.  
  18. do jp = 1, liluc(/1)
  19. pilnec=liluc(jp,2)
  20. segsup,pilnec
  21. enddo
  22.  
  23. segsup liluc,wrk52,wrk522
  24.  
  25. end
  26.  
  27.  
  28.  

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