Télécharger dtchel.eso

Retour à la liste

Numérotation des lignes :

  1. C DTCHEL SOURCE PV 13/04/08 21:15:11 7750
  2. SUBROUTINE DTCHEL(IPCHEL)
  3. ************************************************************************
  4. *
  5. * D T C H E L
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * DESTRUCTION D'UN OBJET DE TYPE "CHAMELEM"
  12. *
  13. * MODULES UTILISES:
  14. * -----------------
  15. *
  16. IMPLICIT INTEGER(I-N)
  17. -INC SMCHAML
  18. *
  19. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  20. * -----------
  21. *
  22. * IPCHEL (E/S) POINTEUR SUR LE CHAMELEM
  23. *
  24. * AUTEUR, DATE DE CREATION:
  25. * -------------------------
  26. *
  27. * DENIS ROBERT,LE 02/02/88.
  28. *
  29. * LANGAGE:
  30. * --------
  31. *
  32. * ESOPE + FORTRAN77
  33. *
  34. ************************************************************************
  35. MCHELM=IPCHEL
  36. SEGACT,MCHELM
  37. I1=IMACHE(/1)
  38. DO 1 I=1,I1
  39. MCHAML=ICHAML(I)
  40. SEGACT,MCHAML
  41. I2=IELVAL(/1)
  42. DO 2 J=1,I2
  43. MELVAL=IELVAL(J)
  44. SEGSUP,MELVAL
  45. 2 CONTINUE
  46. * END DO
  47. N2=0
  48. segadj mchaml
  49. *** SEGSUP,MCHAML
  50. 1 CONTINUE
  51. * END DO
  52. L1=0
  53. N1=0
  54. N3=0
  55. segadj mchelm
  56. *** SEGSUP,MCHELM
  57. IPCHEL=0
  58. *
  59. END
  60.  
  61.  
  62.  
  63.  
  64.  

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