Télécharger actima.eso

Retour à la liste

Numérotation des lignes :

  1. C ACTIMA SOURCE PV 16/11/17 21:58:03 9180
  2. SUBROUTINE ACTIMA(IMAT)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C***********************************************************************
  6. C NOM : ACTIMA
  7. C DESCRIPTION : Active 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
  30. POINTEUR IMAT.IMATRI
  31. POINTEUR MATEL.IZAFM
  32. *
  33. INTEGER INBME,INBSOU
  34. INTEGER NBME,NBSOUS
  35. *
  36. * Executable statements
  37. *
  38. SEGACT IMAT
  39. NBSOUS=IMAT.LIZAFM(/1)
  40. NBME =IMAT.LIZAFM(/2)
  41. DO 1 INBME=1,NBME
  42. DO 12 INBSOU=1,NBSOUS
  43. MATEL=IMAT.LIZAFM(INBSOU,INBME)
  44. SEGACT MATEL
  45. 12 CONTINUE
  46. 1 CONTINUE
  47. *
  48. * Normal termination
  49. *
  50. RETURN
  51. *
  52. * End of subroutine ACTIMA
  53. *
  54. END
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  

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