Télécharger pas_verm.procedur

Retour à la liste

Numérotation des lignes :

  1. * PAS_VERM PROCEDUR PASCAL 22/12/07 21:15:03 11514
  2. 'DEBPROC' PAS_VERM PRECED*'TABLE' chetat1*'MCHAML';
  3. *---------- verifications qu'il existe bien les donnees necessaires
  4. *---------- au matériaux
  5. conti=PRECED.'CONTINUATION';
  6. WTAB=PRECED.'WTABLE';
  7. LDEVA = 'EXTR' WTAB.'CARACTERISTIQUES' 'DEVA';
  8. LPAR0 = 'EXTR' WTAB.'MODELE' 'PARA';
  9. LDEVA_DI = 'DIME' LDEVA;
  10. nocom='EXTR' CHETAT1 'COMP';
  11. 'SI' ('NEG' LDEVA_DI 0);
  12.  
  13. 'REPETER' BOU_VA1 LDEVA_DI;
  14. ITE1 = &BOU_VA1;
  15. NOM1 = 'EXTR' LDEVA ITE1;
  16. 'SI' (WTAB.'FREQUENTIEL' 'ET' ('EGA' NOM1 'FREQ')) ; 'ITER' BOU_VA1 ; 'FINSI' ;
  17. 'SI' (WTAB.'FOR_METALLU' 'ET' ('EGA' NOM1 'TPOI')) ; 'ITER' BOU_VA1 ; 'FINSI' ;
  18. 'SI' ('NON' ('EXISTE' nocom NOM1));
  19. 'MESS' 'Il manque la variable ' NOM1 ;
  20. 'ERRE' ' ';
  21. 'FINSI' ;
  22. 'FIN' BOU_VA1;
  23. 'SI' WTAB.'FOR_MECA' ;
  24. MA = 'VIDE' 'MCHAML' ;
  25. 'SI' WTAB.'MEC1' ;
  26. MA = MA 'ET' (WTAB.'MAT_MEC') ;
  27. 'FINSI' ;
  28. 'SI' WTAB.'POR1' ;
  29. MA = MA 'ET' WTAB.'MAT_POR' ;
  30. 'FINSI' ;
  31. 'SI' ('EXIS' WTAB 'MAT_CHA') ;
  32. MA = MA 'ET' WTAB.'MAT_CHA' ;
  33. 'FINSI' ;
  34. LDEVAM='EXTR' MA 'DEVA';
  35. LDEVA_DM = 'DIME' LDEVAM;
  36. 'SI' ('NEG' LDEVA_DM 0);
  37. 'SI' ('NON' (('EGA' LDEVA_DM 1) 'ET'
  38. ( 'EGA' (LDEVAM 'EXTR' 1) 'ALPH' ) ));
  39. WTAB.'RECALCUL'= VRAI;
  40. 'FINSI';
  41. WTAB.'MATVAR'=VRAI;WTAB.'LDEVA'=LDEVAM;
  42. 'SI' WTAB.'FREQUENTIEL' ; WTAB.'MATVAR'= FAUX; 'FINSI';
  43. 'FINSI';
  44. 'FINSI';
  45. 'FINSI';
  46. *------- le modèle depend-t-il de parametres externes? Si oui verification
  47. *------- de leur presence.
  48. 'SI' WTAB.'PARA_EXTE';
  49. TEMP0=conti.'TEMPS';
  50. LPAR0_DI = 'DIME' LPAR0;
  51. 'REPETER' BOU_PA1 LPAR0_DI;
  52. NOM1 = 'EXTR' LPAR0 &BOU_PA1;
  53. 'SI' ('NON' ('EXISTE' nocom NOM1));
  54. 'MESS' 'Il manque la variable ' NOM1 ;
  55. 'ERRE' ' ';
  56. 'FINSI';
  57. 'FIN' BOU_PA1;
  58. 'SI' WTAB.'FOR_MECA' ;
  59. WTAB.'PARA_EXTE'=FAUX;
  60. 'SI' WTAB.'MEC1' ;
  61. MO=WTAB.'MOD_MEC';
  62. 'SI' WTAB.'POR1' ;
  63. MO= MO 'ET' WTAB.'MOD_POR';
  64. 'FINSI';
  65. 'SINON';
  66. MO=WTAB.'MOD_POR';
  67. 'FINSI';
  68. LPAR0 = 'EXTR' MO 'PARA';
  69. LPAR0_DI = 'DIME' LPAR0;
  70. 'SI' ( LPAR0_DI 'NEG' 0) ;
  71. WTAB.'PARA_EXTE'=VRAI;
  72. WTAB.'LPAR0'= LPAR0 ;
  73. 'FINSI';
  74. 'FINSI';
  75. 'FINSI';
  76. 'FINPROC';
  77.  
  78.  

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