Télécharger la plaquette Cast3M


fr en

Télécharger desima.eso

Retour à la liste

Numérotation des lignes : 

desima

  1. C DESIMA    SOURCE    PV        20/09/26    21:16:19     10724          
  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.  
  28. -INC PPARAM
  29. -INC CCOPTIO
  31.       POINTEUR IMAT.IMATRI
  32.       POINTEUR MATEL.IZAFM
  33. *
  34.       INTEGER INBME,INBSOU
  35.       INTEGER  NBME,NBSOUS
  36. *
  37. * Executable statements
  38. *
  39.       SEGACT IMAT
  40.       NBSOUS=IMAT.LIZAFM(/1)
  41.       NBME  =IMAT.LIZAFM(/2)
  42.       DO 1 INBME=1,NBME
  43.          DO 12 INBSOU=1,NBSOUS
  44.             MATEL=IMAT.LIZAFM(INBSOU,INBME)
  45.             SEGDES MATEL
  46.  12      CONTINUE
  47.  1    CONTINUE
  48.       SEGDES IMAT
  49. *
  50. * Normal termination
  51. *
  52.       RETURN
  53. *
  54. * End of subroutine DESIMA
  55. *
  56.       END
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  

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