Procedures | Cast3M

   1 : * DEADJACO  PROCEDUR  GOUNAND   11/04/29    21:15:23     6947           
   2 : ************************************************************************
   3 : * NOM         : DEADJACO
   4 : * DESCRIPTION : Le déterminant de la matrice jacobienne
   5 : *               de la transformation géométrique (par élément)
   6 : *
   7 : *
   8 : *
   9 : * LANGAGE     : GIBIANE-CAST3M
  10 : * AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  11 : *               mél : gounand@semt2.smts.cea.fr
  12 : **********************************************************************
  13 : * VERSION    : v1, 05/04/2006, version initiale
  14 : * HISTORIQUE : v1, 05/04/2006, création
  15 : * HISTORIQUE :
  16 : * HISTORIQUE :
  17 : ************************************************************************
  18 : * Prière de PRENDRE LE TEMPS de compléter les commentaires
  19 : * en cas de modification de ce sous-programme afin de faciliter
  20 : * la maintenance !
  21 : ************************************************************************
  22 : *
  23 : *
  24 : 'DEBPROC' DEADJACO ;
  25 : 'ARGUMENT' _mt*'MAILLAGE' ;
  26 : 'ARGUMENT' gdisc*'MOT' ;
  27 : 'ARGUMENT' methgau*'MOT' ;
  28 : *
  29 : * Calcul du résidu
  30 : *
  31 : vdim  = DEADUTIL 'DIMM' _mt ;
  32 : numop  = 1 ;
  33 : numvar = 1 ;
  34 : numder = vdim ;
  35 : numdat = 0 ;
  36 : numcof = 1 ;
  37 : *
  38 :    A = ININLIN numop numvar numdat numcof numder ;   
  39 :    A . 'VAR' . 1 . 'NOMDDL' = 'MOTS' 'DUMM' ;
  40 :    A . 'VAR' . 1 . 'DISC'   = 'CSTE' ;
  41 :    A . 'VAR' . 1 . 'VALEUR' = 1.D0 ;
  42 :    A . 'COF' . 1 . 'COMPOR' = 'CHAINE' 'VOLORI' ;
  43 :    A . 'COF' . 1 . 'LDAT'   = 'LECT' ;
  44 : *   
  45 :    A . 1 . 1 . 0  = 'LECT' 1 ;
  46 : *
  47 :    numcof = 0 ;
  48 :    B = ININLIN numop numvar numdat numcof numder ;   
  49 :    B . 'VAR' . 1 . 'NOMDDL' = 'MOTS' 'DUMM' ;
  50 :    B . 'VAR' . 1 . 'DISC'   = 'CSTE' ;
  51 :    B . 'VAR' . 1 . 'VALEUR' = 1.D0 ;
  52 :    B . 1 . 1 . 0  = 'LECT' ;
  53 : *
  54 : detj = 'NLIN' gdisc _mt A B 'EREF' 'ERRJ' methgau ;      
  55 : *
  56 : 'RESPRO' detj ;
  57 : *
  58 : * End of procedure file DEADJACO
  59 : *
  60 : 'FINPROC' ;
  61 : 
  62 :  
  63 :