Télécharger la plaquette Cast3M


fr en

Télécharger dtlent.eso

Retour à la liste

Numérotation des lignes : 

dtlent

  1. C DTLENT    SOURCE    CHAT      05/01/12    22:57:38     5004
  2.       SUBROUTINE DTLENT (IPLIST)
  3. ************************************************************************
  4. *
  5. *                             D T L E N T
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     DESTRUCTION D'UN 'LISTENTI'.
  12. *
  13. * MODE D'APPEL:
  14. * -------------
  15. *
  16. *     CALL DTLENT (IPLIST)
  17. *
  18. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  19. * -----------
  20. *
  21. *     IPLIST  ENTIER    (E)  POINTEUR DU 'LISTENTI' A DETRUIRE.
  22. *                       (S)  MIS A ZERO.
  23. *
  24. * AUTEUR, DATE DE CREATION:
  25. * -------------------------
  26. *
  27. *     PASCAL MANIGOT     25 JANVIER 1985
  28. *
  29. * LANGAGE:
  30. * --------
  31. *
  32. *     ESOPE + FORTRAN77
  33. *
  34. ************************************************************************
  35. *
  36.       IMPLICIT INTEGER(I-N)
  37. -INC SMLENTI
  38. *
  39.       MLENTI = IPLIST
  40.       SEGSUP,MLENTI
  41.       IPLIST = 0
  42. *
  43.       END
  44.  
  45.  

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