.

cal/fm3.conductance.r

@@ -12,7 +12,7 @@ fm3.conductance <- function(doc){
 
     c.B    <- 0.9 ## Grenze Korrelation SZ<<<<<<< HEAD
     d.B    <- 0.9 ## Grenze Korrelation Drift
-
+    sz.border <- 1e-3
     t2mm   <- getConstVal(a$cs, "turn_2_mm")
     ms2s   <- getConstVal(a$cc, "ms_2_s")
     mm32l  <- getConstVal(a$cc, "mm^3_2_l")

cal/fm3.pressure_fill.r

@@ -14,11 +14,11 @@ fm3.pressure.fill <- function(doc){
 
     gas            <- a$cma$Gas
     
-    if(length(gas) > 0 &  (gas == "N2" | gas == "Ar") ){
+#    if(length(gas) > 0 &  (gas == "N2" | gas == "Ar") ){
         
-    }else{
+ #   }else{
         gas    <- "N2"
-    }
+  #  }
     paste(msg, "assume gas to be: ", gas)
     
     p.lw             <- list()