Commit 69616c37 authored by Dorchies David's avatar Dorchies David
Browse files

Merge branch '7-split-vgest-into-several-elementary-tools' into 'master'

Resolve "Split VGEST into several elementary tools"

Closes #7

See merge request !3
parents 5d5f1a64 aec28418
...@@ -9,6 +9,7 @@ BATCH ...@@ -9,6 +9,7 @@ BATCH
1 1
4 4
1 1
0
...@@ -31,3 +32,6 @@ ligne 10 : code indiquant le mode de r ...@@ -31,3 +32,6 @@ ligne 10 : code indiquant le mode de r
ligne 11 (utilisée seulement si 4 ou 5 en ligne 10) : code indiquant la nature de Tpot : ligne 11 (utilisée seulement si 4 ou 5 en ligne 10) : code indiquant la nature de Tpot :
1 : Tpot est la durée potentielle minimale Tpot1 de reconstitution du volume utilisable maximal (obtention de V=Vtot ou V=0, selon la nature de l'objectif (soutien ou laminage) et le sens des calculs) 1 : Tpot est la durée potentielle minimale Tpot1 de reconstitution du volume utilisable maximal (obtention de V=Vtot ou V=0, selon la nature de l'objectif (soutien ou laminage) et le sens des calculs)
2 : Tpot est la durée potentielle minimale Tpot2 d'épuisement du volume utilisable (obtention de V=Vtot ou V=0, selon la nature de l'objectif (soutien ou laminage) et le sens des calculs) 2 : Tpot est la durée potentielle minimale Tpot2 d'épuisement du volume utilisable (obtention de V=Vtot ou V=0, selon la nature de l'objectif (soutien ou laminage) et le sens des calculs)
ligne 12 : code indiquant les sous-programmes à lancer:
0 : tous les sous-programmes
1 : uniquement la simulation en chronologie inverse
...@@ -853,6 +853,7 @@ procedure C3_CalculChroniquesVolume; ...@@ -853,6 +853,7 @@ procedure C3_CalculChroniquesVolume;
gotoxy(Ax-36,Ay); gotoxy(Ax-36,Ay);
clreol; clreol;
writeln(' : termin '); writeln(' : termin ');
if YChoixSubProg=1 then exit;
write(' calcul de Vges en sens chrono (iter. en cours sur Vges initial : '); write(' calcul de Vges en sens chrono (iter. en cours sur Vges initial : ');
A_lecture_xy; A_lecture_xy;
......
...@@ -182,6 +182,7 @@ VAR {entiers} ...@@ -182,6 +182,7 @@ VAR {entiers}
YAnFinV : integer; YAnFinV : integer;
YAnPremier : integer; YAnPremier : integer;
YChoix : integer; {0 pour saisie clavier et autre pour lecture sur fichier (options de calcul)} YChoix : integer; {0 pour saisie clavier et autre pour lecture sur fichier (options de calcul)}
YChoixSubProg : integer; {0 pour tout le programme, 1 pour backward simulation uniquement}
YCode : integer; {code de bonne traduction de chaŒne en num‚rique} YCode : integer; {code de bonne traduction de chaŒne en num‚rique}
YComplet : integer; {1 si d‚bit aval et d‚bits d‚cal‚s aux prises et restit. existent, 0 sinon} YComplet : integer; {1 si d‚bit aval et d‚bits d‚cal‚s aux prises et restit. existent, 0 sinon}
YCompteur : integer; {rang du calcul} YCompteur : integer; {rang du calcul}
......
...@@ -102,6 +102,7 @@ procedure P_ChoixEntreeOptions; ...@@ -102,6 +102,7 @@ procedure P_ChoixEntreeOptions;
else else
YCodeTpot:=false; YCodeTpot:=false;
end; end;
readln(YFitext,YChoixSubProg);
close(YFitext); close(YFitext);
end end
else else
......
...@@ -854,6 +854,8 @@ BEGIN ...@@ -854,6 +854,8 @@ BEGIN
C3_CalculChroniquesVolume; C3_CalculChroniquesVolume;
close(YFicSortie); close(YFicSortie);
if YChoixSubProg=0 then begin
{--CALCUL DE LA PARTIE FRACTIONNAIRE DES DATES DE VOLUME, pour chaque--} {--CALCUL DE LA PARTIE FRACTIONNAIRE DES DATES DE VOLUME, pour chaque--}
{--lac. Par rapport aux dates des dbits aval, ces dates de volume --} {--lac. Par rapport aux dates des dbits aval, ces dates de volume --}
{--dcales de YdecalDateQ+0.5. A cet instant dans le programme, les --} {--dcales de YdecalDateQ+0.5. A cet instant dans le programme, les --}
...@@ -1145,8 +1147,8 @@ BEGIN ...@@ -1145,8 +1147,8 @@ BEGIN
close(YFicSortie); close(YFicSortie);
E_Message10; E_Message10;
end {if YChoixSubProg=0}
end {fin du cas o on fait les calculs} end {fin du cas o on fait les calculs}
else {cas o les calculs n'ont pas pu tre faits} else {cas o les calculs n'ont pas pu tre faits}
if YSaisie then if YSaisie then
E_Message11; E_Message11;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment