Télécharger la plaquette Cast3M


fr en

Télécharger dtlchp.eso

Retour à la liste

Numérotation des lignes : 

dtlchp

  1. C DTLCHP    SOURCE    CHAT      05/01/12    22:57:34     5004
  2.       SUBROUTINE DTLCHP (IPLIST)
  3. ************************************************************************
  4. *
  5. *                             D T L C H P
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     DESTRUCTION D'UN 'LISTCHPO'.
  12. *     SEULE LA TABLE DES REFERENCES EST DETRUITE. LES 'CHPOINTS' QUI Y
  13. *     SONT REFERENCES SONT CONSERVES, MEME S'ILS NE PEUVENT PLUS ETRE
  14. *     ATTEINTS VIA CE 'LISTCHPO'.
  15. *
  16. * MODE D'APPEL:
  17. * -------------
  18. *
  19. *     CALL DTLCHP (IPLIST)
  20. *
  21. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  22. * -----------
  23. *
  24. *     IPLIST  ENTIER    (E)  POINTEUR DU 'LISTCHPO' A DETRUIRE.
  25. *                       (S)  MIS A ZERO.
  26. *
  27. * AUTEUR, DATE DE CREATION:
  28. * -------------------------
  29. *
  30. *     PASCAL MANIGOT     29 MAI 1985
  31. *
  32. * LANGAGE:
  33. * --------
  34. *
  35. *     ESOPE + FORTRAN77
  36. *
  37. ************************************************************************
  38. *
  39.       IMPLICIT INTEGER(I-N)
  40. -INC SMLCHPO
  41. *
  42.       MLCHPO = IPLIST
  43.       SEGSUP,MLCHPO
  44.       IPLIST = 0
  45. *
  46.       END
  47.  
  48.  

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