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
1
4
1
0
......@@ -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 :
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)
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;
gotoxy(Ax-36,Ay);
clreol;
writeln(' : termin ');
if YChoixSubProg=1 then exit;
write(' calcul de Vges en sens chrono (iter. en cours sur Vges initial : ');
A_lecture_xy;
......
......@@ -182,6 +182,7 @@ VAR {entiers}
YAnFinV : integer;
YAnPremier : integer;
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}
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}
......
......@@ -102,6 +102,7 @@ procedure P_ChoixEntreeOptions;
else
YCodeTpot:=false;
end;
readln(YFitext,YChoixSubProg);
close(YFitext);
end
else
......
......@@ -854,6 +854,8 @@ BEGIN
C3_CalculChroniquesVolume;
close(YFicSortie);
if YChoixSubProg=0 then begin
{--CALCUL DE LA PARTIE FRACTIONNAIRE DES DATES DE VOLUME, pour chaque--}
{--lac. Par rapport aux dates des dbits aval, ces dates de volume --}
{--dcales de YdecalDateQ+0.5. A cet instant dans le programme, les --}
......@@ -1145,8 +1147,8 @@ BEGIN
close(YFicSortie);
E_Message10;
end {if YChoixSubProg=0}
end {fin du cas o on fait les calculs}
else {cas o les calculs n'ont pas pu tre faits}
if YSaisie then
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