diff --git a/R/UtilsCalibOptions.R b/R/UtilsCalibOptions.R
index 18a0ad1603ebec7146eb6e3bd6e5fc89a492a0d5..38d1c0337f07dde1676b0c10b9bc187580d223cc 100644
--- a/R/UtilsCalibOptions.R
+++ b/R/UtilsCalibOptions.R
@@ -48,13 +48,8 @@
         ParamOut <- NA * ParamIn
         NParam   <- ncol(ParamIn)
         ParamOut[, (FeatFUN_MOD$NParamSD + 1):NParam] <- FUN_GR(ParamIn[, (FeatFUN_MOD$NParamSD + 1):NParam], Direction)
-
-        if (identical(RunModel_Lag, FUN_SD)){
-          ParamOut[, 1       ] <- FUN_ROUT(as.matrix(ParamIn[, 1]), Direction)
-        } else if (identical(RunModel_LLR, FUN_SD)){
-          ParamOut[, 1:FeatFUN_MOD$NParamSD] <- FUN_ROUT(ParamIn[, 1:FeatFUN_MOD$NParamSD], Direction)
-        }
-
+        ParamOut[, 1:FeatFUN_MOD$NParamSD] <- FUN_ROUT(ParamIn[, 1:FeatFUN_MOD$NParamSD, drop = FALSE],
+                                                                     Direction)
         if (!Bool) {
           ParamOut <- ParamOut[1, ]
         }
@@ -108,11 +103,8 @@
         NParam   <- ncol(ParamIn)
         ParamOut[, 2:(NParam - 4)     ] <- FUN_GR(ParamIn[, 2:(NParam - 4)], Direction)
         ParamOut[, (NParam - 3):NParam] <- FUN_SNOW(ParamIn[, (NParam - 3):NParam], Direction)
-        if (identical(RunModel_Lag, FUN_SD)){
-          ParamOut[, 1       ] <- FUN_ROUT(as.matrix(ParamIn[, 1]), Direction)
-        } else if (identical(RunModel_LLR, FUN_SD)){
-          ParamOut[, 1:FeatFUN_MOD$NParamSD] <- FUN_ROUT(ParamIn[, 1:FeatFUN_MOD$NParamSD], Direction)
-        }
+        ParamOut[, 1:FeatFUN_MOD$NParamSD] <- FUN_ROUT(ParamIn[, 1:FeatFUN_MOD$NParamSD, drop = FALSE],
+                                                       Direction)
         if (!Bool) {
           ParamOut <- ParamOut[1, ]
         }
@@ -133,11 +125,8 @@
           ParamOut[, 2:(NParam - 2)] <- FUN_GR(ParamIn[, 2:(NParam - 2)],  Direction)
         }
         ParamOut[, (NParam - 1):NParam] <- FUN_SNOW(ParamIn[, (NParam - 1):NParam], Direction)
-        if (identical(RunModel_Lag, FUN_SD)){
-          ParamOut[, 1       ] <- FUN_ROUT(as.matrix(ParamIn[, 1]), Direction)
-        } else if (identical(RunModel_LLR, FUN_SD)){
-          ParamOut[, 1:FeatFUN_MOD$NParamSD] <- FUN_ROUT(ParamIn[, 1:FeatFUN_MOD$NParamSD], Direction)
-        }
+        ParamOut[, 1:FeatFUN_MOD$NParamSD] <- FUN_ROUT(ParamIn[, 1:FeatFUN_MOD$NParamSD, drop = FALSE],
+                                                       Direction)
         if (!Bool) {
           ParamOut <- ParamOut[1, ]
         }