diff --git a/R/TransfoParam_LRQ.R b/R/TransfoParam_LRQ.R
index 99572f86e107a018d0b357356c4cf5c67c9b890b..5400ee69db6e9f02269314d8bc7949c9c53c954f 100644
--- a/R/TransfoParam_LRQ.R
+++ b/R/TransfoParam_LRQ.R
@@ -23,12 +23,12 @@ TransfoParam_LRQ <- function(ParamIn, Direction) {
   if (Direction == "TR") {
     ParamOut <- ParamIn
     ParamOut[, 1] <- 20 * (ParamIn[, 1] + 10) / 20.0
-    ParamOut[, 2] <- 20 * (ParamIn[, 2] + 10) / 20.0
+    ParamOut[, 2] <- 500000 * (ParamIn[, 2] + 10) / 20
   }
   if (Direction == "RT") {
     ParamOut <- ParamIn
     ParamOut[, 1] <- ParamIn[, 1] * 20.0 / 20 - 10
-    ParamOut[, 2] <- ParamIn[, 2] * 20.0 / 20 - 10
+    ParamOut[, 2] <- ParamIn[, 2] * 20.0 / 500000 - 10
   }