Télécharger dtcham.eso

Retour à la liste

Numérotation des lignes :

  1. C DTCHAM SOURCE PV 13/04/08 21:15:03 7750
  2. SUBROUTINE DTCHAM(IRET)
  3. *-----------------------------------------------------------------------
  4. * DESTRUCTION D'UN NOUVEAU CHAMELEM ( MCHAML )
  5. *-----------------------------------------------------------------------
  6. IMPLICIT INTEGER(I-N)
  7. -INC SMCHAML
  8. MCHELM=IRET
  9. SEGACT MCHELM
  10. DO 100 IA=1,IMACHE(/1)
  11. MCHAML=ICHAML(IA)
  12. SEGACT MCHAML
  13. DO 200 IB=1,IELVAL(/1)
  14. MELVAL=IELVAL(IB)
  15. SEGSUP MELVAL
  16. 200 CONTINUE
  17. n2 = 0
  18. segadj mchaml
  19. ** SEGSUP MCHAML
  20. 100 CONTINUE
  21. l1=0
  22. n1=0
  23. n3=0
  24. segadj mchelm
  25. *** SEGSUP MCHELM
  26. *** IRET=0
  27. RETURN
  28. END
  29.  
  30.  
  31.  
  32.  
  33.  

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