From 22a871125932f40c1b8769ca0696c05ff780bc3c Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@amuncode.org>
Date: Fri, 20 Feb 2015 13:27:05 -0200
Subject: [PATCH] EQUATIONS: Descrease the maximum Lorentz factor.

This is required in order to avoid numerical problems.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
---
 src/equations.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/equations.F90 b/src/equations.F90
index 578d896..dfb091a 100644
--- a/src/equations.F90
+++ b/src/equations.F90
@@ -139,8 +139,8 @@ module equations
 
 ! the upper limits for the Lorentz factor and corresponding |v|²
 !
-  real(kind=8)     , save :: lmax    = 1.0d+08
-  real(kind=8)     , save :: vmax    = 0.9999999999999999d+00
+  real(kind=8)     , save :: lmax    = 1.0d+06
+  real(kind=8)     , save :: vmax    = 0.999999999999d+00
 
 ! the upper bound for the sonic Mach number
 !