Télécharger dtsham.eso

Retour à la liste

Numérotation des lignes :

  1. C DTSHAM SOURCE PV 09/03/12 21:19:32 6325
  2. *$$$$ DTSHAM
  3. SUBROUTINE DTSHAM(IRET)
  4. *---------------------------------------------------------------*
  5. * DESTRUCTION D'UN NOUVEAU SOUS-CHAMELEM ( SEGMENT MCHAML ) *
  6. * *
  7. * PP 16/8/91 *
  8. *---------------------------------------------------------------*
  9. IMPLICIT INTEGER(I-N)
  10. -INC SMCHAML
  11. MCHAML=IRET
  12. SEGACT MCHAML
  13. DO 200 IB=1,IELVAL(/1)
  14. MELVAL=IELVAL(IB)
  15. SEGSUP MELVAL
  16. 200 CONTINUE
  17. SEGSUP MCHAML
  18. IRET=0
  19. RETURN
  20. END
  21.  
  22.  
  23.  
  24.  

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