Télécharger toposauv.procedur

Retour à la liste

Numérotation des lignes :

  1. * TOPOSAUV PROCEDUR CB215821 18/01/29 21:15:14 9715
  2. ************************************************************************
  3. ** Procedure called by TOPOPTIM for saving some data
  4. **
  5. ** Author:
  6. ** Guenhael Le Quilliec (LaMe - Polytech Tours)
  7. **
  8. ** Version:
  9. ** 1.0 2017/04/18
  10. ************************************************************************
  11.  
  12. DEBP TOPOSAUV tab0*'TABLE' ;
  13. SI (tab0.'MES_SAUVEGARDES'.'TOPOLOGIE' OU
  14. tab0.'MES_SAUVEGARDES'.'MAILLAGE' OU
  15. tab0.'MES_SAUVEGARDES'.'RESOLUTION') ;
  16. cy0 = tab0.'CYCLE' ;
  17. SI (EXIS tab0.'CYCLES_SAUVEGARDES' cy0) ;
  18. froz0 = EXIS tab0 'ZONE_FIGEE' ;
  19. SI tab0.'MES_SAUVEGARDES'.'TOPOLOGIE' ;
  20. tab0.'TOPOLOGIE'.cy0 = tab0.'WTABLE'.'TOPOLOGIE' ;
  21. SI froz0 ;
  22. tab0.'TOPOLOGIE'.cy0 = tab0.'TOPOLOGIE'.cy0 +
  23. tab0.'WTABLE'.'UN'.(2) ;
  24. FINS ;
  25. FINS ;
  26. SI tab0.'MES_SAUVEGARDES'.'MAILLAGE' ;
  27. tab0.'MAILLAGE'.cy0 = tab0.'WTABLE'.'MAILLAGE'.'A' ;
  28. SI froz0 ;
  29. tab0.'MAILLAGE'.cy0 = tab0.'MAILLAGE'.cy0 ET
  30. tab0.'WTABLE'.'MAILLAGE'.(2) ;
  31. FINS ;
  32. FINS ;
  33. SI tab0.'MES_SAUVEGARDES'.'RESOLUTION' ;
  34. tab0.'RESOLUTION'.cy0 = tab0.'WTABLE'.'RESOLUTION' ;
  35. FINS ;
  36. FINS ;
  37. FINS ;
  38. FINP ;
  39.  
  40.  
  41.  

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