Télécharger la plaquette Cast3M


fr en

Télécharger ininlin.procedur

Retour à la liste

Numérotation des lignes : 

  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.  
  76.  

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