Télécharger fusspg.eso

Retour à la liste

Numérotation des lignes :

  1. C FUSSPG SOURCE CHAT 05/01/13 00:13:15 5004
  2. SUBROUTINE FUSSPG(MELEM0,IRET)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5.  
  6. -INC SMELEME
  7. POINTEUR MELEM1.MELEME,IRES.MELEME
  8. IRES=IRET
  9. MELEM1=MELEM0
  10. SEGACT MELEM1
  11. IF(IRES.EQ.0)THEN
  12. NBNN=1
  13. NBELEM=MELEM1.NUM(/2)
  14. N1=MELEM1.NUM(/2)
  15. NBSOUS=0
  16. NBREF=0
  17. SEGINI IRES
  18. IRES.ITYPEL=1
  19. CALL RSETI(IRES.NUM,MELEM1.NUM,N1)
  20. SEGDES IRES,MELEM1
  21. IRET=IRES
  22. RETURN
  23. ELSE
  24. SEGACT MELEM1,IRES
  25. NBNN=1
  26. N1=MELEM1.NUM(/2)
  27. N2=IRES.NUM(/2)
  28. NBELEM=N1+N2
  29. NBSOUS=0
  30. NBREF=0
  31. SEGADJ IRES
  32. CALL RSETI(IRES.NUM(1,N2+1),MELEM1.NUM,N1)
  33. SEGDES IRES,MELEM1
  34. IRET=IRES
  35. RETURN
  36. ENDIF
  37. END
  38.  
  39.  

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