Télécharger desima.eso

Retour à la liste

Numérotation des lignes :

  1. C DESIMA SOURCE PV 16/11/17 21:58:59 9180
  2. SUBROUTINE DESIMA(IMAT)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C***********************************************************************
  6. C NOM : DESIMA
  7. C DESCRIPTION : Désactive un groupe de matrices élémentaires.
  8. C LANGAGE : ESOPE
  9. C AUTEUR : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/TTMF)
  10. C mél : gounand@semt2.smts.cea.fr
  11. C***********************************************************************
  12. C APPELES : -
  13. C APPELE PAR : EXMALI
  14. C***********************************************************************
  15. C ENTREES/SORTIES : IMAT
  16. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  17. C***********************************************************************
  18. C VERSION : v1, 12/05/99, version initiale
  19. C HISTORIQUE : v1, 12/05/99, création
  20. C HISTORIQUE :
  21. C HISTORIQUE :
  22. C***********************************************************************
  23. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  24. C en cas de modification de ce sous-programme afin de faciliter
  25. C la maintenance !
  26. C***********************************************************************
  27. -INC CCOPTIO
  28. POINTEUR IMAT.IMATRI
  29. POINTEUR MATEL.IZAFM
  30. *
  31. INTEGER INBME,INBSOU
  32. INTEGER NBME,NBSOUS
  33. *
  34. * Executable statements
  35. *
  36. SEGACT IMAT
  37. NBSOUS=IMAT.LIZAFM(/1)
  38. NBME =IMAT.LIZAFM(/2)
  39. DO 1 INBME=1,NBME
  40. DO 12 INBSOU=1,NBSOUS
  41. MATEL=IMAT.LIZAFM(INBSOU,INBME)
  42. SEGDES MATEL
  43. 12 CONTINUE
  44. 1 CONTINUE
  45. SEGDES IMAT
  46. *
  47. * Normal termination
  48. *
  49. RETURN
  50. *
  51. * End of subroutine DESIMA
  52. *
  53. END
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  

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