Télécharger la plaquette Cast3M


fr en

Télécharger dtchel.eso

Retour à la liste

Numérotation des lignes : 

dtchel

  1. C DTCHEL    SOURCE    CB215821  20/11/09    10:36:29     10766          
  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. -INC PPARAM
  19.  
  20. *
  21. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  22. * -----------
  23. *
  24. *     IPCHEL (E/S)  POINTEUR SUR LE CHAMELEM
  25. *
  26. * AUTEUR, DATE DE CREATION:
  27. * -------------------------
  28. *
  29. *     DENIS ROBERT,LE 02/02/88.
  30. *
  31. * LANGAGE:
  32. * --------
  33. *
  34. *     ESOPE + FORTRAN77
  35. *
  36. ************************************************************************
  37.       MCHELM=IPCHEL
  38.       SEGACT,MCHELM
  39.       I1=IMACHE(/1)
  40.       DO 1 I=1,I1
  41.          MCHAML=ICHAML(I)
  42.          SEGACT,MCHAML
  43.          I2=IELVAL(/1)
  44.          DO 2 J=1,I2
  45.             MELVAL=IELVAL(J)
  46.             SEGSUP,MELVAL
  47.  2          CONTINUE
  48. *        END DO
  49.          N2=0
  50.          segadj mchaml
  51. ***      SEGSUP,MCHAML
  52.  1       CONTINUE
  53. *     END DO
  54.       L1=0
  55.       N1=0
  56.       N3=0
  57.       segadj mchelm
  58. ***   SEGSUP,MCHELM
  59.       IPCHEL=0
  60. *
  61.       END
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  

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