Procedures | Cast3M

   1 : * ININLIN   PROCEDUR  GOUNAND   05/12/21    21:33:04     5281           
   2 : ************************************************************************
   3 : * NOM         : ININLIN
   4 : * DESCRIPTION : Initialise les tables arguments pour ininlin
   5 : *
   6 : *
   7 : *
   8 : * LANGAGE     : GIBIANE-CAST3M
   9 : * AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  10 : *               mél : gounand@semt2.smts.cea.fr
  11 : **********************************************************************
  12 : * VERSION    : v1, 10/05/2004, version initiale
  13 : * HISTORIQUE : v1, 10/05/2004, création
  14 : * HISTORIQUE : v2, 12/12/2005, version pour nlin final
  15 : * HISTORIQUE :
  16 : ************************************************************************
  17 : *
  18 : *
  19 : 'DEBPROC' ININLIN nop*'ENTIER'
  20 :                  nvar*'ENTIER'
  21 :                  ndat*'ENTIER'
  22 :                  ncof*'ENTIER'
  23 :                  vdim*'ENTIER' ;
  24 :    A = 'TABLE' ;
  25 :    A . 'NUMOP'  = nop  ;
  26 :    A . 'NUMVAR' = nvar ;
  27 :    A . 'NUMDAT' = ndat ;
  28 :    A . 'NUMCOF' = ncof ;
  29 :    A . 'NUMDER' = vdim ;
  30 : *   
  31 :    'SI' ('<EG' nvar 0) ;
  32 :       cherr = 'nvar =' nvar ' (should be > 0)' ;
  33 :       'ERREUR' cherr ;
  34 :    'FINSI' ;      
  35 :    A . 'VAR' = 'TABLE' ;
  36 :    'REPETER' ivar nvar ;
  37 :       A . 'VAR' . &ivar = 'TABLE' ;
  38 :    'FIN' ivar ;
  39 :    'SI' ('<' ndat 0) ;
  40 :       cherr = 'ndat =' ndat ' (should be >= 0)' ;
  41 :       'ERREUR' cherr ;
  42 :    'FINSI' ;      
  43 :    A . 'DAT' = 'TABLE' ;
  44 :    'SI' ('>' ndat 0) ;
  45 :       'REPETER' idat ndat ;
  46 :          A . 'DAT' . &idat = 'TABLE' ;
  47 :       'FIN' idat ;
  48 :    'FINSI' ;      
  49 : *   
  50 :    'SI' ('<' ncof 0) ;
  51 :       cherr = 'ncof =' ncof ' (should be >= 0)' ;
  52 :       'ERREUR' cherr ;
  53 :    'FINSI' ;      
  54 :    A . 'COF' = 'TABLE' ;
  55 :    'SI' ('>' ncof 0) ;
  56 :       'REPETER' icof ncof ;
  57 :          A . 'COF' . &icof = 'TABLE' ;
  58 :       'FIN' icof ;
  59 :    'FINSI' ;      
  60 : *
  61 :    'REPETER' iop nop ;
  62 :       A . &iop = 'TABLE' ;
  63 :       'REPETER' ivar nvar ;
  64 :          A . &iop . &ivar = 'TABLE' ;
  65 : *         'REPETER' idim ('+' vdim 1) ;
  66 : *            A . &iop . &ivar . ('-' &idim 1) = 'TABLE' ;
  67 : *         'FIN' idim ;
  68 :       'FIN' ivar ;
  69 :    'FIN' iop ;
  70 : *   
  71 : 'FINPROC' A ;   
  72 : *
  73 : * End of procedure file ININLIN
  74 : *
  75 :