Télécharger @RSCV.procedur

Retour à la liste

Numérotation des lignes :

  1. * @RSCV PROCEDUR CB215821 19/11/18 21:15:02 10383
  2. *----------------------------------------------------------------------
  3. * CETTE METHODE A ETE MISE GRACIEUSEMENT
  4. * A DISPOSITION DE LA COMMUNAUTE CAST3M
  5. * PAR TAMASKOVICS N.
  6. * (Freiberg Institut für Geotechnik )
  7. *----------------------------------------------------------------------
  8. 'DEBM' @RSCV VAL*'LISTREEL' DBG/'ENTIER' ;
  9. *----------------------------------------------------------------------
  10. * La methode @RSCV fait parti de l'objet @RSTH et est appelee avec
  11. * l'abbreviation %'SCV'.
  12. *----------------------------------------------------------------------
  13. 'SI' ('EXIS' DBG ) ;
  14. !DBG = DBG ;
  15. 'SINO' ;
  16. !DBG = 0 ;
  17. 'FINS' ;
  18. *
  19. !IX ='DIME' VAL ;
  20. !IIX = 2 * !IX ;
  21. !VALS ='PROG' !IIX * 0.0 ;
  22. *
  23. !NN = 0.0 ;
  24. !XX = 0.0 ;
  25. !JX = 2 ;
  26. *
  27. 'REPE' I !IX ;
  28. !VALI ='EXTR' VAL &I;
  29. 'REPE' J !JX ;
  30. !JJ =(2 * (&I-1)) + &J;
  31. 'REMP' !VALS !JJ !VALI ;
  32. 'FIN' J ;
  33. 'FIN' I ;
  34. *
  35. 'FINM' !VALS ;
  36.  
  37.  

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