Télécharger dtcham.eso

Retour à la liste

Numérotation des lignes :

dtcham
  1. C DTCHAM SOURCE CB215821 25/06/20 21:15:03 12290
  2. SUBROUTINE DTCHAM(IRET)
  3. *-----------------------------------------------------------------------
  4. * DESTRUCTION D'UN NOUVEAU CHAMELEM ( MCHAML )
  5. *-----------------------------------------------------------------------
  6. IMPLICIT INTEGER(I-N)
  7. -INC SMCHAML
  8. -INC PPARAM
  9.  
  10. C On ne supprime plus rien... Supprimer cette source peut-etre
  11. MCHELM=IRET
  12. call oooprl(1)
  13. SEGACT MCHELM
  14. DO 100 IA=1,IMACHE(/1)
  15. MCHAML=ICHAML(IA)
  16. SEGACT MCHAML
  17. DO 200 IB=1,IELVAL(/1)
  18. MELVAL=IELVAL(IB)
  19. C SEGSUP MELVAL
  20. 200 CONTINUE
  21. n2 = 0
  22. segadj mchaml
  23. ** SEGSUP MCHAML
  24. 100 CONTINUE
  25. l1=0
  26. n1=0
  27. n3=0
  28. segadj mchelm
  29. *** SEGSUP MCHELM
  30. *** IRET=0
  31. call oooprl(0)
  32. RETURN
  33. END
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  

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