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