Télécharger descour.procedur

Retour à la liste

Numérotation des lignes :

  1. * DESCOUR PROCEDUR CHAT 93/01/08 21:15:21 780
  2. 'DEBPROC' DESCOUR TAB*'TABLE' I*'ENTIER' BLOCI*'MAILLAGE'
  3. MM*'MOT' J*'FLOTTANT' ;
  4. *******************************************************************
  5. * DESCRIPTION D UNE ZONE DE COURANTS *
  6. * TAB TABLE QUI CONTIENDRA LE DESCIPTIF DE TOUTES LES *
  7. * ZONES DE COURANTS *
  8. * I NUMERO D ORDRE DE LA ZONE DE COURANT *
  9. * BLOCI ZONE DE COURANT TYPE MAILLAGE *
  10. * MM MOT 'AMP' OU 'AT' *
  11. * J FLOTTANT DENSITE DE COURANT OU AMPERES TOURS *
  12. *******************************************************************
  13. STN= TABLE ;
  14. STN.'GEO'= BLOCI ;
  15. 'SI' ( 'EGA' MM 'AMP') ;
  16. STN.'AMP' = J ;
  17. 'FINSI' ;
  18. 'SI' ( EGA MM 'AT' ) ;
  19. STN.'AT' = J ;
  20. 'FINSI' ;
  21. 'SI' ( 'EGA' MM 'FIL' ) ;
  22. STN.'FIL' = J ;
  23. 'FINSI' ;
  24. TAB.I= STN ;
  25. 'FINPROC' ;
  26.  

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