Télécharger cm2po1.eso

Retour à la liste

Numérotation des lignes :

  1. C CM2PO1 SOURCE PV 13/04/16 21:15:12 7765
  2. SUBROUTINE CM2PO1(MELEM0,MELEME)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. -INC SMELEME
  6. POINTEUR MELEM0.MELEME
  7. -INC SMLENTI
  8.  
  9. CALL KRIPAD(MELEM0,MLENTI)
  10. JG=LECT(/1)
  11. SEGINI MLENT1
  12. N=0
  13. NBELEM=0
  14. DO 1 I=1,JG
  15. I1=LECT(I)
  16. IF(I1.EQ.0)GO TO 1
  17. NBELEM=NBELEM+1
  18. MLENT1.LECT(NBELEM)=I
  19. 1 CONTINUE
  20. SEGSUP MLENTI
  21. NBSOUS=0
  22. NBNN=1
  23. NBREF=0
  24. SEGINI MELEME
  25. ITYPEL=1
  26. CALL RSETI(NUM,MLENT1.LECT,NBELEM)
  27. call crech1(meleme,1)
  28. SEGSUP MLENT1
  29. SEGDES MELEME,MELEM0
  30. RETURN
  31. END
  32.  
  33.  
  34.  
  35.  
  36.  

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