Télécharger la plaquette Cast3M


fr en

Télécharger zermak.eso

Retour à la liste

Numérotation des lignes : 

zermak

  1. C ZERMAK    SOURCE    PV        20/09/26    21:21:34     10724          
  2.       SUBROUTINE ZERMAK(MATRIK,IMPR,IRET)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. C***********************************************************************
  6. C NOM         : ZERMAK
  7. C DESCRIPTION : Création d'un objet de type MATRIK vide.
  8. C
  9. C
  10. C
  11. C LANGAGE     : ESOPE
  12. C AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  13. C               mél : gounand@semt2.smts.cea.fr
  14. C***********************************************************************
  15. C APPELES          : -
  16. C APPELE PAR       : YLAP1A : Calcul de la matrice jacobienne du
  17. C                    résidu du laplacien VF 2D.
  18. C***********************************************************************
  19. C ENTREES            : -
  20. C ENTREES/SORTIES    : -
  21. C SORTIES            : MATRIK (type MATRIK) : matrice vide.
  22. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  23. C***********************************************************************
  24. C VERSION    : v1, 01/08/2001, version initiale
  25. C HISTORIQUE : v1, 01/08/2001, création
  26. C HISTORIQUE :
  27. C HISTORIQUE :
  28. C***********************************************************************
  29. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  30. C en cas de modification de ce sous-programme afin de faciliter
  31. C la maintenance !
  32. C***********************************************************************
  33.  
  34. -INC PPARAM
  35. -INC CCOPTIO
  37.       INTEGER NRIGE,NMATRI,NKID,NKMT
  38. *
  39.       INTEGER IMPR,IRET
  40. *
  41. * Executable statements
  42. *
  43.       IF (IMPR.GT.2) WRITE(IOIMP,*) 'Entrée dans zermak.eso'
  44. *
  45. * Objet MATRIK vide
  46. *
  47.       NRIGE=7
  48.       NMATRI=0
  49.       NKID =9
  50.       NKMT =7
  51.       SEGINI MATRIK
  52.       SEGDES MATRIK
  53. *
  54. * Normal termination
  55. *
  56.       IRET=0
  57.       RETURN
  58. *
  59. * Format handling
  60. *
  61. *
  62. * Error handling
  63. *
  64.  9999 CONTINUE
  65.       IRET=1
  66.       WRITE(IOIMP,*) 'An error was detected in subroutine zermak'
  67.       RETURN
  68. *
  69. * End of subroutine ZERMAK
  70. *
  71.       END
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  

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