ADDED   mttroot/mtt/bin/trans/p/mtt_par_update.p
Index: mttroot/mtt/bin/trans/p/mtt_par_update.p
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/p/mtt_par_update.p
@@ -0,0 +1,49 @@
+PROCEDURE mtt_numpar_update(VAR new_numpar : ParameterVector;
+				   old_numpar : ParameterVector);
+VAR i : INTEGER;
+   
+BEGIN {mtt_numpar_update}
+
+   for i:=1 TO MTT_Npar DO {copy values}
+      new_numpar[i] := old_numpar[i];
+   
+   WHILE NOT eof(numparfile) DO {read and update values}
+      IF NOT (numparfile^ = chr("#")) THEN
+      BEGIN
+	 read(numparfile,i); read(numparfile,new_numpar[i]);
+      END
+      ELSE
+	 readln(numparfile);
+   
+END {mtt_numpar_update};
+
+PROCEDURE mtt_state_update(VAR new_state : StateVector;
+			       old_state : StateVector);
+
+VAR i : INTEGER;
+   
+BEGIN {mtt_state_update}
+
+   for i:=1 TO MTT_Nx DO {copy values}
+      new_state[i] := old_state[i];
+
+   WHILE NOT eof(statefile) DO {read and update values}
+      IF NOT (statefile^ = chr("#")) THEN
+      BEGIN
+	 read(statefile,i); read(statefile,new_state[i]);
+      END
+      ELSE
+	 readln(statefile);
+      
+END {mtt_state_update};
+
+PROCEDURE mtt_simpar_update(VAR dt : REAL);
+BEGIN {mtt_simpar_update}
+
+   WHILE NOT eof(simparfile) DO {read and update values}
+   BEGIN
+      IF NOT (simparfile^ = chr("#")) THEN
+	 read(simparfile,dt);
+      readln(simparfile); 
+   END
+END {mtt_simpar_update};