Esope source files

   1 : C ZERMAK    SOURCE    MAGN      09/07/30    21:23:25     6458           
   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 : -INC CCOPTIO
  34 : -INC SMMATRIK
  35 :       INTEGER NRIGE,NMATRI,NKID,NKMT
  36 : *
  37 :       INTEGER IMPR,IRET
  38 : *     
  39 : * Executable statements
  40 : *
  41 :       IF (IMPR.GT.2) WRITE(IOIMP,*) 'Entrée dans zermak.eso' 
  42 : *
  43 : * Objet MATRIK vide
  44 : *
  45 :       NRIGE=7
  46 :       NMATRI=0
  47 :       NKID =9
  48 :       NKMT =7
  49 :       SEGINI MATRIK
  50 :       SEGDES MATRIK
  51 : *
  52 : * Normal termination
  53 : *
  54 :       IRET=0
  55 :       RETURN
  56 : *
  57 : * Format handling
  58 : *
  59 : *
  60 : * Error handling
  61 : *
  62 :  9999 CONTINUE
  63 :       IRET=1
  64 :       WRITE(IOIMP,*) 'An error was detected in subroutine zermak'
  65 :       RETURN
  66 : *
  67 : * End of subroutine ZERMAK
  68 : *
  69 :       END
  70 : 
  71 :  
  72 :  
  73 :