feat: add option to run only backward simulation

Refs #7

example/PARAMETR/CHOIX.TXT

@@ -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

src/CALCULS3.PAS

@@ -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;
 

src/DECLARA.PAS

@@ -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}

src/PARAM.PAS

@@ -102,6 +102,7 @@ procedure P_ChoixEntreeOptions;
         else
          YCodeTpot:=false;
        end;
+      readln(YFitext,YChoixSubProg);
       close(YFitext);
      end
     else

src/VGEST.PAS

@@ -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;